Mercurial > emacs

changeset 79571:d08060a6f18a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 Dec 2007 22:33:43 +0000
parents d01c76d7e07b
children a55ab9b627cb
files lisp/startup.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Sat Dec 15 22:32:17 2007 +0000
+++ b/lisp/startup.el	Sat Dec 15 22:33:43 2007 +0000
@@ -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))