Mercurial > emacs
diff lisp/compare-w.el @ 24948:970c0b904d35
(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 | ac1673121774 |
children | 253f761ad37b |
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)