From f9890ae6334655efc4d647082acb01f18303e1b2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jan 1994 11:29:42 +0000 Subject: [PATCH] (command-line-1): Improve echo area message wording. Don't print it if C-h C-p has been redefined. --- lisp/startup.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index b48b742da7d..c006ad4fc16 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -327,10 +327,8 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") (defun command-line-1 (command-line-args-left) (or noninteractive (input-pending-p) init-file-had-error - (message (if (eq (key-binding "\C-h\C-p") 'describe-project) - "For information about the GNU Project and its goals, type C-h C-p." - (substitute-command-keys - "For information about the GNU Project and its goals, type \\[describe-project].")))) + (if (eq (key-binding "\C-h\C-p") 'describe-project) + (message "For more about the GNU Project, of which GNU Emacs is part, type C-h C-p."))) (if (null command-line-args-left) (cond ((and (not inhibit-startup-message) (not noninteractive) ;; Don't clobber a non-scratch buffer if init file -- 2.39.5