From 9c3f66a3d115aeb8a76a7265678b1511874535fe Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 13 Jun 2000 23:51:00 +0000
Subject: [PATCH] (read_char): Bind message-truncate-lines to t while
 displaying a help-echo.

---
 src/keyboard.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
     }
   
-- 
2.39.2