Mercurial > emacs

changeset 24948:970c0b904d35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compare-windows): Try to find the next window in the current frame before looking at the other frames.
author Andreas Schwab <schwab@suse.de>
date Wed, 14 Jul 1999 08:16:49 +0000
parents 4f788869cb29
children 1dfff6fa0f05
files lisp/compare-w.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/compare-w.el	Tue Jul 13 19:08:57 1999 +0000
+++ b/lisp/compare-w.el	Wed Jul 14 08:16:49 1999 +0000
@@ -81,7 +81,9 @@
 			     '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)