fancy-splash-help-echo

fancy-splash-help-echo

[Richard Stallman]

As far as I can see, fancy-splash-help-echo is always nil.
Nothing ever sets it.  Can anyone remember or see what
purpose it has or had?

Re: fancy-splash-help-echo

[Juanma Barranquero]

On Dec 9, 2007 1:37 PM, Richard Stallman <rms@gnu.org> wrote:

> As far as I can see, fancy-splash-help-echo is always nil.
> Nothing ever sets it.  Can anyone remember or see what
> purpose it has or had?

`fancy-splash-screens' used to set it to the output of
`startup-echo-area-message'. You removed that in revision 1.415 of
startup.el (it was introduced in 1.215 by Gerd Moellmann).

This is the ChangeLog entry:

2006-09-14  Richard Stallman  <rms@gnu.org>

        * startup.el (fancy-splash-text): Change text to improve alignment.
        (fancy-splash-screens): Don't set non-standard tab width.
        Bind cursor-type temporarily, and make it easy to patch to
        preserve the splash buffer.
        (normal-splash-screen, fancy-splash-tail): Spell out "Meta-x".
        (fancy-splash-screens): Display echo-area message explicitly.
        Don't set fancy-splash-help-echo.

             Juanma

Re: fancy-splash-help-echo

[Richard Stallman]

Thanks.  I think this change is called for.  Do you agree?

*** startup.el	15 Nov 2007 06:48:17 -0500	1.436.2.7
--- startup.el	09 Dec 2007 16:40:33 -0500	
***************
*** 1288,1295 ****
  
  ;; 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
--- 1288,1293 ----
***************
*** 1323,1329 ****
  					 (funcall it)
  				       it))
  				   'face current-face
! 				   'help-echo fancy-splash-help-echo))))
        (setq args (cdr args)))))
  
  
--- 1321,1327 ----
  					 (funcall it)
  				       it))
  				   'face current-face
! 				   'help-echo (startup-echo-area-message)))))
        (setq args (cdr args)))))
  
  
***************
*** 1505,1512 ****
  	(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))
--- 1503,1508 ----

Re: fancy-splash-help-echo

[Juanma Barranquero]

On Dec 10, 2007 12:18 AM, Richard Stallman <rms@gnu.org> wrote:

> Thanks.  I think this change is called for.  Do you agree?

Well, no one has complained in more than a year...

             Juanma