diff options
author | Andreas Schwab <[email protected]> | 1999-01-04 11:57:27 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 1999-01-04 11:57:27 +0000 |
commit | 05e076c7ea9fc9a7d3c051a93309dccff320d0ea (patch) | |
tree | 0df6035370c52f2b80696247c2df37a57f44f635 /lisp/files.el | |
parent | f0ee23367c2c24520fc759051d3d7a1248d5c13b (diff) |
(recover-session): Preserve point when inserting
explanation.
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/files.el b/lisp/files.el index ac9153bc87..4698ff0bea 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2793,15 +2793,16 @@ Then you'll be asked about a number of files to recover." (let ((ls-lisp-support-shell-wildcards t)) (dired (concat auto-save-list-file-prefix "*") (concat dired-listing-switches "t"))) - (goto-char (point-min)) - (or (looking-at "Move to the session you want to recover,") - (let ((inhibit-read-only t)) - ;; Each line starts with a space - ;; so that Font Lock mode won't highlight the first character. - (insert " Move to the session you want to recover,\n" - " then type C-c C-c to select it.\n\n" - " You can also delete some of these files;\n" - " type d on a line to mark that file for deletion.\n\n"))) + (save-excursion + (goto-char (point-min)) + (or (looking-at " Move to the session you want to recover,") + (let ((inhibit-read-only t)) + ;; Each line starts with a space + ;; so that Font Lock mode won't highlight the first character. + (insert " Move to the session you want to recover,\n" + " then type C-c C-c to select it.\n\n" + " You can also delete some of these files;\n" + " type d on a line to mark that file for deletion.\n\n")))) (use-local-map (nconc (make-sparse-keymap) (current-local-map))) (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish)) |