procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

(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)