(read_char): Bind message-truncate-lines to t

while displaying a help-echo.

diff --git a/src/keyboard.c b/src/keyboard.c
index c5cc3e45a9655d712f927ae5299085d85d57c17c..fe3da4be8a8421c2a74ddcb07b025733a14f9b54 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2639,7 +2639,9 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
   if (CONSP (c) && EQ (XCAR (c), Qhelp_echo))
     {
       Lisp_Object msg;
-      
+      int count = specpdl_ptr - specpdl;
+
+      specbind (Qmessage_truncate_lines, Qt);
       msg = XCDR (XCDR (c));
 
       if (!NILP (Vshow_help_function))
@@ -2657,6 +2659,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
            message (0);
        }
 
+      unbind_to (count, Qnil);
       goto retry;
     }