mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(startup-echo-area-message): Display a different message in daemon

Browse source 
mode.  Suggested by Stephen Turnbull.
This commit is contained in:
Chong Yidong 2008-11-04 16:54:25 +00:00
parent bd98d0e32c
commit 2eb92184e9
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/startup.el
View file

@ -1985,12 +1985,14 @@ 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-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 \
\\[about-emacs].")))
(cond ((daemonp)
"Starting Emacs daemon.")
((eq (key-binding "\C-h\C-a") 'about-emacs)
"For information about GNU Emacs and the GNU system, type C-h C-a.")
(t
(substitute-command-keys
"For information about GNU Emacs and the GNU system, type \
\\[about-emacs]."))))
(defun display-startup-echo-area-message ()
(let ((resize-mini-windows t))