Mercurial > emacs
comparison src/keyboard.c @ 29635:f276bf2f52f0
(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 | dfb72889ff52 |
children | acaa36b47f50 |
comparison
equal
deleted
inserted
replaced
29634:ac38155fbce6 | 29635:f276bf2f52f0 |
---|---|
2637 | 2637 |
2638 /* Display help if not echoing. */ | 2638 /* Display help if not echoing. */ |
2639 if (CONSP (c) && EQ (XCAR (c), Qhelp_echo)) | 2639 if (CONSP (c) && EQ (XCAR (c), Qhelp_echo)) |
2640 { | 2640 { |
2641 Lisp_Object msg; | 2641 Lisp_Object msg; |
2642 | 2642 int count = specpdl_ptr - specpdl; |
2643 | |
2644 specbind (Qmessage_truncate_lines, Qt); | |
2643 msg = XCDR (XCDR (c)); | 2645 msg = XCDR (XCDR (c)); |
2644 | 2646 |
2645 if (!NILP (Vshow_help_function)) | 2647 if (!NILP (Vshow_help_function)) |
2646 call1 (Vshow_help_function, msg); | 2648 call1 (Vshow_help_function, msg); |
2647 else if (/* Don't overwrite minibuffer contents. */ | 2649 else if (/* Don't overwrite minibuffer contents. */ |
2655 message3_nolog (msg, XSTRING (msg)->size, STRING_MULTIBYTE (msg)); | 2657 message3_nolog (msg, XSTRING (msg)->size, STRING_MULTIBYTE (msg)); |
2656 else | 2658 else |
2657 message (0); | 2659 message (0); |
2658 } | 2660 } |
2659 | 2661 |
2662 unbind_to (count, Qnil); | |
2660 goto retry; | 2663 goto retry; |
2661 } | 2664 } |
2662 | 2665 |
2663 if (this_command_key_count == 0 || ! reread) | 2666 if (this_command_key_count == 0 || ! reread) |
2664 { | 2667 { |