(fancy-splash-help-echo): Var deleted.

(fancy-splash-insert): Get help-echo from (startup-echo-area-message).
(fancy-about-screen): Don't display fancy-splash-help-echo.

diff --git a/lisp/startup.el b/lisp/startup.el
index ad09ff2e83443e366b6e72164cb1638de90f9f41..82b6a4490259414a4a2206550c6fc1d7be3967f9 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1288,8 +1288,6 @@ Each element in the list should be a list of strings or pairs
 
 ;; 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 @@ a face or button specification."
                                         (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 @@ splash screen in another window."
        (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))