Mercurial > emacs
comparison lisp/files.el @ 23000:1509bf9a54df
(recover-session): Add leading space on added text lines.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 12 Aug 1998 02:58:02 +0000 |
| parents | 5a3802b71933 |
| children | 7099472e122b |
comparison
equal
deleted
inserted
replaced
| 22999:5ec968f5560c | 23000:1509bf9a54df |
|---|---|
| 2745 (dired (concat auto-save-list-file-prefix "*") | 2745 (dired (concat auto-save-list-file-prefix "*") |
| 2746 (concat dired-listing-switches "t"))) | 2746 (concat dired-listing-switches "t"))) |
| 2747 (goto-char (point-min)) | 2747 (goto-char (point-min)) |
| 2748 (or (looking-at "Move to the session you want to recover,") | 2748 (or (looking-at "Move to the session you want to recover,") |
| 2749 (let ((inhibit-read-only t)) | 2749 (let ((inhibit-read-only t)) |
| 2750 (insert "Move to the session you want to recover,\n" | 2750 ;; Each line starts with a space |
| 2751 "then type C-c C-c to select it.\n\n" | 2751 ;; so that Font Lock mode won't highlight the first character. |
| 2752 "You can also delete some of these files;\n" | 2752 (insert " Move to the session you want to recover,\n" |
| 2753 "type d on a line to mark that file for deletion.\n\n"))) | 2753 " then type C-c C-c to select it.\n\n" |
| 2754 " You can also delete some of these files;\n" | |
| 2755 " type d on a line to mark that file for deletion.\n\n"))) | |
| 2754 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) | 2756 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) |
| 2755 (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish)) | 2757 (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish)) |
| 2756 | 2758 |
| 2757 (defun recover-session-finish () | 2759 (defun recover-session-finish () |
| 2758 "Choose one saved session to recover auto-save files from. | 2760 "Choose one saved session to recover auto-save files from. |