mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(recover-session): Preserve point when inserting

Browse source 
explanation.
This commit is contained in:
Andreas Schwab 1999-01-04 11:57:27 +00:00
parent f0ee23367c
commit 05e076c7ea
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/files.el
View file

@ -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))