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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3e3ccc66ae8c3e6d9a30f80770081e49efd42e0..2a813b43f37b0ecbd3f79b6716fe5bc70c007a83 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 5238a1e5936887e2ebe83aaf371f3568c71d9c52..6d99e27fdef3e0bc4ee323825dde89dcfe588ab9 100644 (file)
--- 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 \