From: Juri Linkov <juri@jurta.org>
Date: Thu, 28 Feb 2008 22:56:02 +0000 (+0000)
Subject: (startup-echo-area-message): Check for about-emacs.
X-Git-Tag: emacs-pretest-22.1.92~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61ce9226fb818b6e0be36e95f931e75a59a43c98;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b99bd30c06..eb78b338272 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 059ae8de075..3e988421d3d 100644
--- 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 \