/[emacs]/emacs/lisp/tooltip.el
ViewVC logotype

Diff of /emacs/lisp/tooltip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by nickrob, Tue Jun 14 21:13:28 2005 UTC revision 1.57 by lektu, Thu Jun 16 09:58:42 2005 UTC
# Line 120  position to pop up the tooltip." Line 120  position to pop up the tooltip."
120    :group 'tooltip)    :group 'tooltip)
121    
122  (make-obsolete-variable 'tooltip-use-echo-area  (make-obsolete-variable 'tooltip-use-echo-area
123  "To display help tooltips in the echo area turn tooltip-mode off.  "To display help tooltips in the echo area turn `tooltip-mode' off.
124  To display GUD tooltips in the echo area turn gud-tooltip-mode on and set  To display GUD tooltips in the echo area turn `gud-tooltip-mode' on and set
125  gud-tooltip-echo-area to t." "22.1")  `gud-tooltip-echo-area' to t." "22.1")
126    
127    
128  ;;; Variables that are not customizable.  ;;; Variables that are not customizable.
# Line 201  With ARG, turn tooltip mode on if and on Line 201  With ARG, turn tooltip mode on if and on
201      (setq tooltip-timeout-id nil)))      (setq tooltip-timeout-id nil)))
202    
203  (defun tooltip-start-delayed-tip ()  (defun tooltip-start-delayed-tip ()
204    "Add a one-shot timeout to call function tooltip-timeout."    "Add a one-shot timeout to call function `tooltip-timeout'."
205    (setq tooltip-timeout-id    (setq tooltip-timeout-id
206          (add-timeout (tooltip-delay) 'tooltip-timeout nil)))          (add-timeout (tooltip-delay) 'tooltip-timeout nil)))
207    
208  (defun tooltip-timeout (object)  (defun tooltip-timeout (object)
209    "Function called when timer with id tooltip-timeout-id fires."    "Function called when timer with id `tooltip-timeout-id' fires."
210    (run-hook-with-args-until-success 'tooltip-hook    (run-hook-with-args-until-success 'tooltip-hook
211                                      tooltip-last-mouse-motion-event))                                      tooltip-last-mouse-motion-event))
212    
# Line 301  where the mouse is." Line 301  where the mouse is."
301    
302  (defun tooltip-process-prompt-regexp (process)  (defun tooltip-process-prompt-regexp (process)
303    "Return regexp matching the prompt of PROCESS at the end of a string.    "Return regexp matching the prompt of PROCESS at the end of a string.
304  The prompt is taken from the value of COMINT-PROMPT-REGEXP in the buffer  The prompt is taken from the value of `comint-prompt-regexp' in
305  of PROCESS."  the buffer of PROCESS."
306    (let ((prompt-regexp (save-excursion    (let ((prompt-regexp (save-excursion
307                           (set-buffer (process-buffer process))                           (set-buffer (process-buffer process))
308                           comint-prompt-regexp)))                           comint-prompt-regexp)))
# Line 349  MSG is either a help string to display, Line 349  MSG is either a help string to display,
349  (defun tooltip-help-tips (event)  (defun tooltip-help-tips (event)
350    "Hook function to display a help tooltip.    "Hook function to display a help tooltip.
351  This is installed on the hook `tooltip-hook', which is run when  This is installed on the hook `tooltip-hook', which is run when
352  the timer with ID `tooltip-timeout-id' fires.  the timer with id `tooltip-timeout-id' fires.
353  Value is non-nil if this function handled the tip."  Value is non-nil if this function handled the tip."
354    (when (stringp tooltip-help-message)    (when (stringp tooltip-help-message)
355      (tooltip-show tooltip-help-message tooltip-use-echo-area)      (tooltip-show tooltip-help-message tooltip-use-echo-area)

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26