Mercurial > emacs

changeset 5024:7eff30849357

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line-1): Display a message in the echo area.
author Richard M. Stallman <rms@gnu.org>
date Mon, 15 Nov 1993 09:22:23 +0000
parents ff4c359fa626
children 0556b068e9ee
files lisp/startup.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Mon Nov 15 08:04:41 1993 +0000
+++ b/lisp/startup.el	Mon Nov 15 09:22:23 1993 +0000
@@ -304,6 +304,11 @@
   (if noninteractive (kill-emacs t)))
 
 (defun command-line-1 (command-line-args-left)
+  (or noninteractive (input-pending-p)
+      (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 (null command-line-args-left)
       (cond ((and (not inhibit-startup-message) (not noninteractive)
 		  ;; Don't clobber a non-scratch buffer if init file
@@ -427,8 +432,6 @@
       (if (> file-count 2)
 	  (or (get-buffer-window first-file-buffer)
 	      (progn (other-window 1)
-		     (buffer-menu))))))
-  (message (substitute-command-keys
-	    "For information about the GNU project and its goals, type \\[describe-project].")))
+		     (buffer-menu)))))))
 
 ;;; startup.el ends here