[Emacs-diffs] Changes to emacs/lisp/startup.el,v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       07/12/15 22:33:44

Index: startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.436.2.7
retrieving revision 1.436.2.8
diff -u -b -r1.436.2.7 -r1.436.2.8
--- startup.el  11 Nov 2007 20:23:23 -0000      1.436.2.7
+++ startup.el  15 Dec 2007 22:33:43 -0000      1.436.2.8
@@ -1288,8 +1288,6 @@
 
 ;; These are temporary storage areas for the splash screen display.
 
-(defvar fancy-splash-help-echo nil)
-
 (defun fancy-splash-insert (&rest args)
   "Insert text into the current buffer, with faces.
 Arguments from ARGS should be either strings; functions called
@@ -1323,7 +1321,7 @@
                                         (funcall it)
                                       it))
                                   'face current-face
-                                  'help-echo fancy-splash-help-echo))))
+                                  'help-echo (startup-echo-area-message)))))
       (setq args (cdr args)))))
 
 
@@ -1505,8 +1503,6 @@
        (dolist (text fancy-about-text)
          (apply #'fancy-splash-insert text)
          (insert "\n"))
-       (unless (current-message)
-         (message fancy-splash-help-echo))
        (set-buffer-modified-p nil)
        (goto-char (point-min))
        (force-mode-line-update))