diff options
| author | Richard M. Stallman | 1997-04-23 05:06:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-04-23 05:06:35 +0000 |
| commit | 45d642dffa9f8bfc243c453907ef1c140362f39e (patch) | |
| tree | cc1dcc500d43168d4adfaeb2da8998e912862963 | |
| parent | 69b73c8a97fd9f83f0c31b2b0a6a7d5129da11ee (diff) | |
| download | emacs-45d642dffa9f8bfc243c453907ef1c140362f39e.tar.gz emacs-45d642dffa9f8bfc243c453907ef1c140362f39e.zip | |
(compare-windows): Allow windows on different frames.
| -rw-r--r-- | lisp/compare-w.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 479bd72125e..bdfcd006c95 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el | |||
| @@ -72,7 +72,7 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored." | |||
| 72 | 'compare-windows-skip-whitespace | 72 | 'compare-windows-skip-whitespace |
| 73 | compare-windows-whitespace)))) | 73 | compare-windows-whitespace)))) |
| 74 | (setq p1 (point) b1 (current-buffer)) | 74 | (setq p1 (point) b1 (current-buffer)) |
| 75 | (setq w2 (next-window (selected-window))) | 75 | (setq w2 (next-window (selected-window) nil 'visible)) |
| 76 | (if (eq w2 (selected-window)) | 76 | (if (eq w2 (selected-window)) |
| 77 | (error "No other window")) | 77 | (error "No other window")) |
| 78 | (setq p2 (window-point w2) | 78 | (setq p2 (window-point w2) |