Mercurial > emacs
changeset 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 | 5ec968f5560c |
| children | c42d28898577 |
| files | lisp/files.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Aug 11 22:11:08 1998 +0000 +++ b/lisp/files.el Wed Aug 12 02:58:02 1998 +0000 @@ -2747,10 +2747,12 @@ (goto-char (point-min)) (or (looking-at "Move to the session you want to recover,") (let ((inhibit-read-only t)) - (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"))) + ;; 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))