mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
while displaying a help-echo.
This commit is contained in:
Gerd Moellmann 2000-06-13 23:51:00 +00:00
parent ad4f174eb4
commit 9c3f66a3d1
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/keyboard.c
View file

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