diff options
| author | Andreas Schwab | 1999-07-14 08:16:49 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1999-07-14 08:16:49 +0000 |
| commit | 0846761ddf923b31b663eccd9f585b484f2a1130 (patch) | |
| tree | 0bbb413406764186cd87894090ab80d8662f416f | |
| parent | 39d523864b7660a898fb71220b8ab97a5197c791 (diff) | |
| download | emacs-0846761ddf923b31b663eccd9f585b484f2a1130.tar.gz emacs-0846761ddf923b31b663eccd9f585b484f2a1130.zip | |
(compare-windows): Try to find the next window in
the current frame before looking at the other frames.
| -rw-r--r-- | lisp/compare-w.el | 4 |
1 files changed, 3 insertions, 1 deletions
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." | |||
| 81 | 'compare-windows-skip-whitespace | 81 | 'compare-windows-skip-whitespace |
| 82 | compare-windows-whitespace)))) | 82 | compare-windows-whitespace)))) |
| 83 | (setq p1 (point) b1 (current-buffer)) | 83 | (setq p1 (point) b1 (current-buffer)) |
| 84 | (setq w2 (next-window (selected-window) nil 'visible)) | 84 | (setq w2 (next-window (selected-window))) |
| 85 | (if (eq w2 (selected-window)) | ||
| 86 | (setq w2 (next-window (selected-window) nil 'visible))) | ||
| 85 | (if (eq w2 (selected-window)) | 87 | (if (eq w2 (selected-window)) |
| 86 | (error "No other window")) | 88 | (error "No other window")) |
| 87 | (setq p2 (window-point w2) | 89 | (setq p2 (window-point w2) |