X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4bef911093051ec6dfca2e1415e42baee60f8e37..ca2ddd8ed551b1ffb4ecc0142add2c642b79adce:/lisp/compare-w.el

diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index 495ff12d11..d3788508cd 100644
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -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)