aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/startup.el5
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46e83f0a88b..d02da87446c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,6 @@
12012-10-29 Chong Yidong <cyd@gnu.org> 12012-10-29 Chong Yidong <cyd@gnu.org>
2 2
3 * startup.el (startup-echo-area-message): New arg. 3 * startup.el (fancy-about-screen): Don't message (Bug#12680).
4 (fancy-about-screen): Avoid a misleading message (Bug#12680).
5 4
6 * thingatpt.el (thing-at-point): Doc fix (Bug#12691). 5 * thingatpt.el (thing-at-point): Doc fix (Bug#12691).
7 6
diff --git a/lisp/startup.el b/lisp/startup.el
index 6c65b30fe3c..2e8b6b7f8c4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1693,7 +1693,6 @@ splash screen in another window."
1693 (force-mode-line-update)) 1693 (force-mode-line-update))
1694 (use-local-map splash-screen-keymap) 1694 (use-local-map splash-screen-keymap)
1695 (setq tab-width 22) 1695 (setq tab-width 22)
1696 (message "%s" (startup-echo-area-message t))
1697 (setq buffer-read-only t) 1696 (setq buffer-read-only t)
1698 (goto-char (point-min)) 1697 (goto-char (point-min))
1699 (forward-line 3)))) 1698 (forward-line 3))))
@@ -2017,8 +2016,8 @@ Type \\[describe-distribution] for information on "))
2017 'follow-link t) 2016 'follow-link t)
2018 (insert "\tBuying printed manuals from the FSF\n")) 2017 (insert "\tBuying printed manuals from the FSF\n"))
2019 2018
2020(defun startup-echo-area-message (&optional about-screen-message) 2019(defun startup-echo-area-message ()
2021 (cond ((and (daemonp) (not about-screen-message)) 2020 (cond ((daemonp)
2022 "Starting Emacs daemon.") 2021 "Starting Emacs daemon.")
2023 ((eq (key-binding "\C-h\C-a") 'about-emacs) 2022 ((eq (key-binding "\C-h\C-a") 'about-emacs)
2024 "For information about GNU Emacs and the GNU system, type C-h C-a.") 2023 "For information about GNU Emacs and the GNU system, type C-h C-a.")