mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(compare-windows): Try to find the next window in

Browse Source 
the current frame before looking at the other frames.
This commit is contained in:
Andreas Schwab 1999-07-14 08:16:49 +00:00
parent 39d523864b
commit 0846761ddf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/compare-w.el
View File

@ -81,7 +81,9 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
'compare-windows-skip-whitespace
compare-windows-whitespace))))
(setq p1 (point) b1 (current-buffer))
(setq w2 (next-window (selected-window) nil 'visible))
(setq w2 (next-window (selected-window)))
(if (eq w2 (selected-window))
(setq w2 (next-window (selected-window) nil 'visible)))
(if (eq w2 (selected-window))
(error "No other window"))
(setq p2 (window-point w2)