From 0846761ddf923b31b663eccd9f585b484f2a1130 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 14 Jul 1999 08:16:49 +0000 Subject: [PATCH] (compare-windows): Try to find the next window in the current frame before looking at the other frames. --- lisp/compare-w.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 495ff12d110..d3788508cd3 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) -- 2.39.2