From bd8b0ebb99ea3b594b778d072e38b676cc35a0bf Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 28 Feb 2008 22:59:12 +0000 Subject: [PATCH] (startup-echo-area-message): Check for about-emacs. --- lisp/ChangeLog | 4 ++++ lisp/startup.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * startup.el (startup-echo-area-message): Check for about-emacs. + 2008-02-28 Juri Linkov * 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 \ -- 2.39.5