Mercurial > emacs

changeset 29635:f276bf2f52f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_char): Bind message-truncate-lines to t while displaying a help-echo.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 13 Jun 2000 23:51:00 +0000
parents ac38155fbce6
children 04d079a75b41
files src/keyboard.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;
     }