diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-02 15:08:03 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-02 15:08:36 -0700 |
| commit | 3d08d06a661344c0ff645e6362e2a2fe1f2e7348 (patch) | |
| tree | 854030021c8ce65cd6f1a62d57d0c4db2e224703 /lisp/startup.el | |
| parent | b28ad0e9f74646b1126af096a41af20d3e01ad68 (diff) | |
| download | emacs-3d08d06a661344c0ff645e6362e2a2fe1f2e7348.tar.gz emacs-3d08d06a661344c0ff645e6362e2a2fe1f2e7348.tar.bz2 emacs-3d08d06a661344c0ff645e6362e2a2fe1f2e7348.zip | |
Treat initial-scratch-message as a doc string
* doc/emacs/building.texi (Lisp Interaction):
* doc/lispref/os.texi (Startup Summary):
* etc/NEWS: Document this.
* lisp/startup.el (initial-scratch-message):
Look up find-file’s key rather than hardcoding it.
(command-line-1): Substitute the doc string.
This also substitutes the quotes, which will help test display
quoting at startup.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c152e0122ae..e0249593893 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1390,11 +1390,11 @@ settings will be marked as \"CHANGED outside of Customize\"." (defcustom initial-scratch-message (purecopy "\ ;; This buffer is for notes you don't want to save, and for Lisp evaluation. -;; If you want to create a file, visit that file with C-x C-f, +;; If you want to create a file, visit that file with \\[find-file], ;; then enter the text in that file's own buffer. ") - "Initial message displayed in *scratch* buffer at startup. + "Initial documentation displayed in *scratch* buffer at startup. If this is nil, no message will be displayed." :type '(choice (text :tag "Message") (const :tag "none" nil)) @@ -2430,7 +2430,7 @@ nil default-directory" name) (get-buffer "*scratch*") (with-current-buffer "*scratch*" (when (zerop (buffer-size)) - (insert initial-scratch-message) + (insert (substitute-command-keys initial-scratch-message)) (set-buffer-modified-p nil)))) ;; Prepend `initial-buffer-choice' to `displayable-buffers'. |