Commit e8997612 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(command-line-1): Display a message in the echo area.

parent 6f034b1c
......@@ -304,6 +304,11 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
(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 @@ Type \\[describe-distribution] for information on getting the latest version."))
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment