diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/startup.el | 5 |
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 @@ | |||
| 1 | 2012-10-29 Chong Yidong <cyd@gnu.org> | 1 | 2012-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.") |