procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-11-15 09:22:23 +00:00
parent 6f034b1c22
commit e8997612fd
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/startup.el
View file

@ -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