(startup-echo-area-message): Check for about-emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b99bd30c06302f3e67f2fec5bd4f7f827c51ac5..eb78b33827293161370cc2da990f885360b769e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/startup.el b/lisp/startup.el
index 059ae8de075bb282dc836f37a1f9e91ce5e456dd..3e988421d3d672a8df1bd8e74f76ccccc998e967 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1834,7 +1834,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 \