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

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3e3ccc66ae..2a813b43f37 100644
--- 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 5238a1e5936..6d99e27fdef 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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 \