(startup-echo-area-message): Check for about-emacs.
This commit is contained in:
@@ -1,3 +1,7 @@
|
||||
2008-02-28 Kim F. Storm <storm@cua.dk>
|
||||
|
||||
* startup.el (startup-echo-area-message): Check for about-emacs.
|
||||
|
||||
2008-02-28 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* startup.el: Always add initial message to *scratch* buffer if
|
||||
|
||||
@@ -1893,7 +1893,7 @@ Type \\[describe-distribution] for information on "))
|
||||
(insert "\tBuying printed manuals from the FSF\n"))
|
||||
|
||||
(defun startup-echo-area-message ()
|
||||
(if (eq (key-binding "\C-h\C-p") 'describe-project)
|
||||
(if (eq (key-binding "\C-h\C-a") 'about-emacs)
|
||||
"For information about GNU Emacs and the GNU system, type C-h C-a."
|
||||
(substitute-command-keys
|
||||
"For information about GNU Emacs and the GNU system, type \
|
||||
|
||||
Reference in New Issue
Block a user