mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

Fix last change.

Browse Source 
* lisp/startup.el (fancy-about-screen): Don't message at all.
(startup-echo-area-message): Revert last change.

Fixes: debbugs:12680
This commit is contained in:
Chong Yidong 2012-10-29 18:14:50 +08:00
parent 5c2f2631f8
commit 2230fa5bbf
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,7 +1,6 @@
2012-10-29 Chong Yidong <cyd@gnu.org>
* startup.el (startup-echo-area-message): New arg.
(fancy-about-screen): Avoid a misleading message (Bug#12680).
* startup.el (fancy-about-screen): Don't message (Bug#12680).
* thingatpt.el (thing-at-point): Doc fix (Bug#12691).

5
lisp/startup.el
View File

@ -1693,7 +1693,6 @@ splash screen in another window."
(force-mode-line-update))
(use-local-map splash-screen-keymap)
(setq tab-width 22)
(message "%s" (startup-echo-area-message t))
(setq buffer-read-only t)
(goto-char (point-min))
(forward-line 3))))
@ -2017,8 +2016,8 @@ Type \\[describe-distribution] for information on "))
'follow-link t)
(insert "\tBuying printed manuals from the FSF\n"))
(defun startup-echo-area-message (&optional about-screen-message)
(cond ((and (daemonp) (not about-screen-message))
(defun startup-echo-area-message ()
(cond ((daemonp)
"Starting Emacs daemon.")
((eq (key-binding "\C-h\C-a") 'about-emacs)
"For information about GNU Emacs and the GNU system, type C-h C-a.")