Mercurial > emacs
changeset 75175:c6f5de1b0b6e
(momentary-string-display): Use save-excursion.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 10 Jan 2007 01:15:07 +0000 |
| parents | 5fb06d3ea025 |
| children | e705cf4db592 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Wed Jan 10 01:14:26 2007 +0000 +++ b/lisp/subr.el Wed Jan 10 01:15:07 2007 +0000 @@ -1905,11 +1905,11 @@ (recenter (/ (window-height) 2))) ;; If that pushed message start off the screen, ;; scroll to start it at the top of the screen. - (move-to-window-line 0) - (if (> (point) pos) - (progn + (save-excursion + (move-to-window-line 0) + (if (> (point) pos) (goto-char pos) - (recenter 0))) + (recenter 0))) (message (or message "Type %s to continue editing.") (single-key-description exit-char)) (let (char)