show_help_echo truncates unconditionally

["Stephan Stahl" <stahl@eos.franken.de>]

Hi.

When tooltip-mode is disabled or more general when show-help-funtion
is nil the help messages are shown in the echo area.  During display
message-truncate-display is bound to t.  I suspect this was done to
avoid a "jumping echo area".  This is nice but i would accept this
tradeoff to see the whole help message.

This patch adds a variable show-help-echo-truncate that can be used to
control this behavior.  It is bound to t to be compatible with the
current code.

If needed i could write News or ChangeLog entries too..

Thanks,
Stephan

diff -c "keyboard.c.~1.816.~" "keyboard.c"
*** keyboard.c.~1.816~ Tue Mar 29 07:46:51 2005
--- keyboard.c Tue Mar 29 07:58:00 2005
***************
*** 194,199 ****
--- 194,203 ----

  Lisp_Object Vshow_help_function;

+ /* If non-nil, truncate messages shown with show_help_echo.  */
+
+ Lisp_Object Vshow_help_echo_truncate;
+
  /* If a string, the message displayed before displaying a help-echo
     in the echo area.  */

***************
*** 2323,2329 ****
  	      if (!help_echo_showing_p)
  		Vpre_help_message = current_message ();

! 	      specbind (Qmessage_truncate_lines, Qt);
  	      message3_nolog (help, SBYTES (help),
  			      STRING_MULTIBYTE (help));
  	      unbind_to (count, Qnil);
--- 2327,2333 ----
  	      if (!help_echo_showing_p)
  		Vpre_help_message = current_message ();

! 	      specbind (Qmessage_truncate_lines, Vshow_help_echo_truncate);
  	      message3_nolog (help, SBYTES (help),
  			      STRING_MULTIBYTE (help));
  	      unbind_to (count, Qnil);
***************
*** 11376,11381 ****
--- 11380,11389 ----
  	       doc: /* If non-nil, the function that implements the display of help.
  It's called with one argument, the help string to display.  */);
    Vshow_help_function = Qnil;
+
+   DEFVAR_LISP ("show-help-echo-truncate", &Vshow_help_echo_truncate,
+ 	       doc: /* If non-nil, truncate messages shown with show_help_echo. */);
+   Vshow_help_echo_truncate = Qt;

    DEFVAR_LISP ("disable-point-adjustment", &Vdisable_point_adjustment,
  	       doc: /* If non-nil, suppress point adjustment after executing a command.

Diff finished.  Tue Mar 29 07:58:31 2005
-- 
Stephan Stahl