diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-01-10 01:15:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-01-10 01:15:19 +0000 |
| commit | eb486e20b02b7382efc8fbd2ec1315a510d69ad3 (patch) | |
| tree | 09e880517ab20ba70075ee82d08b863269f70ac4 /lisp/subr.el | |
| parent | 247bc2725b463c492d1990106584a683e00cb464 (diff) | |
| download | emacs-eb486e20b02b7382efc8fbd2ec1315a510d69ad3.tar.gz | |
(momentary-string-display): Use save-excursion.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index c5c12137e55..e7e9867b13e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1905,11 +1905,11 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." (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) |