# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1225817665 0
# Node ID fdfbe3e66ebc86837f06c77c6f6d9b260d9d6e87
# Parent  3106ccb4fc250f0570fdc41ce4e0839184db7b76
(startup-echo-area-message): Display a different message in daemon
mode.  Suggested by Stephen Turnbull.

diff -r 3106ccb4fc25 -r fdfbe3e66ebc lisp/startup.el
--- a/lisp/startup.el	Tue Nov 04 16:54:15 2008 +0000
+++ b/lisp/startup.el	Tue Nov 04 16:54:25 2008 +0000
@@ -1985,12 +1985,14 @@
   (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))