From 61ce9226fb818b6e0be36e95f931e75a59a43c98 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 28 Feb 2008 22:56:02 +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 4b99bd30c06..eb78b338272 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 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 \ -- 2.39.2