(recover-session): Add leading space on added text lines.

diff --git a/lisp/files.el b/lisp/files.el
index bc2a666b0234ef8049d933ed60b83ed99cd1e5ab..d3c8629759d913d99eefe1386e0b0fca5b9eb17d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2747,10 +2747,12 @@ Then you'll be asked about a number of files to recover."
   (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))