[Emacs-diffs] /srv/bzr/emacs/trunk r110722: Fix last change.

[Chong Yidong]

------------------------------------------------------------
revno: 110722
fixes bug: http://debbugs.gnu.org/12680
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-10-29 18:14:50 +0800
message:
  Fix last change.
  
  * lisp/startup.el (fancy-about-screen): Don't message at all.
  (startup-echo-area-message): Revert last change.
modified:
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-29 10:10:15 +0000
+++ b/lisp/ChangeLog    2012-10-29 10:14:50 +0000
@@ -1,7 +1,6 @@
 2012-10-29  Chong Yidong  <address@hidden>
 
-       * 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).
 

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2012-10-29 10:10:15 +0000
+++ b/lisp/startup.el   2012-10-29 10:14:50 +0000
@@ -1693,7 +1693,6 @@
        (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 @@
                 '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.")