Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Vpre_help_message): New variable.

Browse source 
(syms_of_keyboard): Initialize and staticpro it.
(show_help_echo): Record current message before displaying a
help-echo, and restore that message when clearing the help.
This commit is contained in:
Gerd Moellmann 2001-08-09 13:01:38 +00:00
parent eaa2319f35
commit f0c1cc56a0
1 changed files with 25 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/keyboard.c
View file

@ -190,13 +190,21 @@ extern struct backtrace *backtrace_list;
Lisp_Object Vshow_help_function;
/* If a string, the message displayed before displaying a help-echo
in the echo area. */
Lisp_Object Vpre_help_message;
/* Nonzero means do menu prompting. */
static int menu_prompting;
/* Character to see next line of menu prompt. */
static Lisp_Object menu_prompt_more_char;
/* For longjmp to where kbd input is being done. */
static jmp_buf getcjmp;
/* True while doing kbd input. */
@ -2030,14 +2038,25 @@ show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo)
{
if (STRINGP (help))
{
int count = specpdl_ptr - specpdl;
int count = BINDING_STACK_SIZE ();
if (!help_echo_showing_p)
Vpre_help_message = current_message ();
specbind (Qmessage_truncate_lines, Qt);
message3_nolog (help, STRING_BYTES (XSTRING (help)),
STRING_MULTIBYTE (help));
unbind_to (count, Qnil);
}
else if (STRINGP (Vpre_help_message))
{
message3_nolog (Vpre_help_message,
STRING_BYTES (XSTRING (Vpre_help_message)),
STRING_MULTIBYTE (Vpre_help_message));
Vpre_help_message = Qnil;
}
else
message (0);
message (0);
}
help_echo_showing_p = STRINGP (help);
@ -10165,9 +10184,12 @@ struct event_head head_table[] = {
void
syms_of_keyboard ()
{
Vpre_help_message = Qnil;
staticpro (&Vpre_help_message);
Vlispy_mouse_stem = build_string ("mouse");
staticpro (&Vlispy_mouse_stem);
/* Tool-bars. */
QCimage = intern (":image");
staticpro (&QCimage);