diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 44 |
1 files changed, 30 insertions, 14 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 664fd285754..91491ac25e2 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -283,7 +283,8 @@ from being initialized." (defvar init-file-debug nil) -(defvar init-file-had-error nil) +(defvar init-file-had-error nil + "Non-nil if there was an error loading the user's init file.") (defvar normal-top-level-add-subdirs-inode-list nil) @@ -1149,8 +1150,16 @@ Getting New Versions\tHow to obtain the latest version of Emacs More Manuals / Ordering Manuals Buying printed manuals from the FSF\n") (:face (variable-pitch :weight bold) "Useful File menu items:\n" - :face variable-pitch "\ -Exit Emacs\t\t(Or type Control-x followed by Control-c) + :face variable-pitch + "Exit Emacs\t\t(Or type " + :face default + "Control-x" + :face variable-pitch + " followed by " + :face default + "Control-c" + :face variable-pitch + ") Recover Crashed Session\tRecover files you were editing before a crash @@ -1265,16 +1274,19 @@ where FACE is a valid face specification, as it can be used with :face 'variable-pitch "You can do basic editing with the menu bar and scroll bar \ using the mouse.\n\n") - (if fancy-splash-outer-buffer - (fancy-splash-insert - :face 'variable-pitch - (substitute-command-keys - (concat - "Type \\[recenter] to begin editing" - (if (equal (buffer-name fancy-splash-outer-buffer) - "*scratch*") - ".\n" - " your file.\n")))))) + (when fancy-splash-outer-buffer + (fancy-splash-insert + :face 'variable-pitch + "Type " + :face 'default + (substitute-command-keys + "\\[recenter]") + :face 'variable-pitch + " to begin editing" + (if (equal (buffer-name fancy-splash-outer-buffer) + "*scratch*") + ".\n" + " your file.\n")))) (defun fancy-splash-tail () "Insert the tail part of the splash screen into the current buffer." @@ -1301,7 +1313,11 @@ using the mouse.\n\n") t) (fancy-splash-insert :face '(variable-pitch :foreground "red") "\n\nIf an Emacs session crashed recently, " - "type Meta-x recover-session RET\nto recover" + "type " + :face '(fixed-pitch :foreground "red") + "Meta-x recover-session RET" + :face '(variable-pitch :foreground "red") + "\nto recover" " the files you were editing.")))) (defun fancy-splash-screens-1 (buffer) |