From d4a629de23fa30fabaa3a5d74b909dffb5a8f590 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Dec 2007 22:33:43 +0000 Subject: [PATCH] (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. --- lisp/startup.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index ad09ff2e834..82b6a449025 100644 --- 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)) -- 2.39.2