# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 960940260 0
# Node ID f276bf2f52f0e97fb03eb128ed5e1a72e01d9433
# Parent  ac38155fbce63fb0487978f4bfd332b45204a8ad
(read_char): Bind message-truncate-lines to t
while displaying a help-echo.

diff -r ac38155fbce6 -r f276bf2f52f0 src/keyboard.c
--- a/src/keyboard.c	Tue Jun 13 23:50:22 2000 +0000
+++ b/src/keyboard.c	Tue Jun 13 23:51:00 2000 +0000
@@ -2639,7 +2639,9 @@
   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 @@
 	    message (0);
 	}
 
+      unbind_to (count, Qnil);
       goto retry;
     }