diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-20 21:55:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-20 21:55:55 +0000 |
| commit | 827342364655e5ac2ae80d9b34b8abb20c186a0f (patch) | |
| tree | af4c9f726e48900d10b7ffd955f2e3a9f4ede84a /lisp/compare-w.el | |
| parent | 3753ab6f45c99d39e3bbc3e0bba61db5cf0368c9 (diff) | |
| download | emacs-827342364655e5ac2ae80d9b34b8abb20c186a0f.tar.gz | |
(compare-windows): Push mark in both buffers at start.
Diffstat (limited to 'lisp/compare-w.el')
| -rw-r--r-- | lisp/compare-w.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 4987f9abc1b..4f06ef8c53f 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -52,6 +52,12 @@ whitespace is considered to match, and is skipped.") Compares the text starting at point in each window, moving over text in each one as far as they match. +This command pushes the mark in each window +at the prior location of point in that window. +If both windows display the same buffer, +the mark is pushed twice in that buffer: +first in the other window, then in the selected window. + A prefix arg means ignore changes in whitespace. The variable `compare-windows-whitespace' controls how whitespace is skipped. If `compare-ignore-case' is non-nil, changes in case are also ignored." @@ -72,7 +78,9 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored." (setq maxp1 (point-max)) (save-excursion (set-buffer b2) + (push-mark p2 t) (setq maxp2 (point-max))) + (push-mark) (setq success t) (while success |