From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 13 Jun 2000 23:51:00 +0000 (+0000)
Subject: (read_char): Bind message-truncate-lines to t
X-Git-Tag: emacs-pretest-21.0.90~3335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c3f66a3d115aeb8a76a7265678b1511874535fe;p=emacs.git

(read_char): Bind message-truncate-lines to t
while displaying a help-echo.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index c5cc3e45a96..fe3da4be8a8 100644
--- 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;
     }