procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(fancy-splash-insert): Get help-echo from (startup-echo-area-message).
(fancy-about-screen): Don't display fancy-splash-help-echo.
This commit is contained in:
Richard M. Stallman 2007-12-15 22:33:43 +00:00
parent f5e0def798
commit d4a629de23
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/startup.el
View file

@ -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))