(compare-windows): Try to find the next window in
authorAndreas Schwab <schwab@suse.de>
Wed, 14 Jul 1999 08:16:49 +0000 (08:16 +0000)
committerAndreas Schwab <schwab@suse.de>
Wed, 14 Jul 1999 08:16:49 +0000 (08:16 +0000)
the current frame before looking at the other frames.

lisp/compare-w.el

index 495ff12..d378850 100644 (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)