comparison src/keyboard.c @ 38751:ea3e88f0c205

(Vpre_help_message): New variable. (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.

38750:b9f580ca37a0

/* If non-nil, the function that implements the display of help.
   It's called with one argument, the help string to display.  */

Lisp_Object Vshow_help_function;

/* 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.  */
int waiting_for_input;

	       /* Don't overwrite a prompt.  */
	       && !cursor_in_echo_area)
	{
	  if (STRINGP (help))
	    {
	      int count = specpdl_ptr - specpdl;
	      specbind (Qmessage_truncate_lines, Qt);
	      message3_nolog (help, STRING_BYTES (XSTRING (help)),
			      STRING_MULTIBYTE (help));
	      unbind_to (count, Qnil);
	    }
	  else
	      message (0);
	}
      
      help_echo_showing_p = STRINGP (help);
    }
}

};

void
syms_of_keyboard ()
{
  Vlispy_mouse_stem = build_string ("mouse");
  staticpro (&Vlispy_mouse_stem);
  
  /* Tool-bars.  */
  QCimage = intern (":image");
  staticpro (&QCimage);

  staticpro (&Qhelp_echo);

38751:ea3e88f0c205

/* If non-nil, the function that implements the display of help.
   It's called with one argument, the help string to display.  */

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.  */
int waiting_for_input;

	       /* Don't overwrite a prompt.  */
	       && !cursor_in_echo_area)
	{
	  if (STRINGP (help))
	    {
	      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);
	}
      
      help_echo_showing_p = STRINGP (help);
    }
}

};

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);

  staticpro (&Qhelp_echo);