show_help_echo truncates unconditionally

[Stephan Stahl]

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