Commit 9c3f66a3 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

while displaying a help-echo.
parent ad4f174e
...@@ -2639,7 +2639,9 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) ...@@ -2639,7 +2639,9 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
if (CONSP (c) && EQ (XCAR (c), Qhelp_echo)) if (CONSP (c) && EQ (XCAR (c), Qhelp_echo))
{ {
Lisp_Object msg; Lisp_Object msg;
int count = specpdl_ptr - specpdl;
specbind (Qmessage_truncate_lines, Qt);
msg = XCDR (XCDR (c)); msg = XCDR (XCDR (c));
if (!NILP (Vshow_help_function)) if (!NILP (Vshow_help_function))
...@@ -2657,6 +2659,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) ...@@ -2657,6 +2659,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
message (0); message (0);
} }
unbind_to (count, Qnil);
goto retry; goto retry;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment