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

while displaying a help-echo.

(read_char): Bind message-truncate-lines to t
while displaying a help-echo.
9c3f66a3 · Gerd Moellmann · ad4f174e · 9c3f66a3
Commit 9c3f66a3 authored Jun 13, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/keyboard.c src/keyboard.c +4 -1

No files found.
--- 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;
    }