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 { |