[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tooltip.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tooltip.el |
Date: |
Thu, 16 Jun 2005 05:58:43 -0400 |
Index: emacs/lisp/tooltip.el
diff -c emacs/lisp/tooltip.el:1.56 emacs/lisp/tooltip.el:1.57
*** emacs/lisp/tooltip.el:1.56 Tue Jun 14 21:13:28 2005
--- emacs/lisp/tooltip.el Thu Jun 16 09:58:42 2005
***************
*** 120,128 ****
:group 'tooltip)
(make-obsolete-variable 'tooltip-use-echo-area
! "To display help tooltips in the echo area turn tooltip-mode off.
! To display GUD tooltips in the echo area turn gud-tooltip-mode on and set
! gud-tooltip-echo-area to t." "22.1")
;;; Variables that are not customizable.
--- 120,128 ----
:group 'tooltip)
(make-obsolete-variable 'tooltip-use-echo-area
! "To display help tooltips in the echo area turn `tooltip-mode' off.
! To display GUD tooltips in the echo area turn `gud-tooltip-mode' on and set
! `gud-tooltip-echo-area' to t." "22.1")
;;; Variables that are not customizable.
***************
*** 201,212 ****
(setq tooltip-timeout-id nil)))
(defun tooltip-start-delayed-tip ()
! "Add a one-shot timeout to call function tooltip-timeout."
(setq tooltip-timeout-id
(add-timeout (tooltip-delay) 'tooltip-timeout nil)))
(defun tooltip-timeout (object)
! "Function called when timer with id tooltip-timeout-id fires."
(run-hook-with-args-until-success 'tooltip-hook
tooltip-last-mouse-motion-event))
--- 201,212 ----
(setq tooltip-timeout-id nil)))
(defun tooltip-start-delayed-tip ()
! "Add a one-shot timeout to call function `tooltip-timeout'."
(setq tooltip-timeout-id
(add-timeout (tooltip-delay) 'tooltip-timeout nil)))
(defun tooltip-timeout (object)
! "Function called when timer with id `tooltip-timeout-id' fires."
(run-hook-with-args-until-success 'tooltip-hook
tooltip-last-mouse-motion-event))
***************
*** 301,308 ****
(defun tooltip-process-prompt-regexp (process)
"Return regexp matching the prompt of PROCESS at the end of a string.
! The prompt is taken from the value of COMINT-PROMPT-REGEXP in the buffer
! of PROCESS."
(let ((prompt-regexp (save-excursion
(set-buffer (process-buffer process))
comint-prompt-regexp)))
--- 301,308 ----
(defun tooltip-process-prompt-regexp (process)
"Return regexp matching the prompt of PROCESS at the end of a string.
! The prompt is taken from the value of `comint-prompt-regexp' in
! the buffer of PROCESS."
(let ((prompt-regexp (save-excursion
(set-buffer (process-buffer process))
comint-prompt-regexp)))
***************
*** 349,355 ****
(defun tooltip-help-tips (event)
"Hook function to display a help tooltip.
This is installed on the hook `tooltip-hook', which is run when
! the timer with ID `tooltip-timeout-id' fires.
Value is non-nil if this function handled the tip."
(when (stringp tooltip-help-message)
(tooltip-show tooltip-help-message tooltip-use-echo-area)
--- 349,355 ----
(defun tooltip-help-tips (event)
"Hook function to display a help tooltip.
This is installed on the hook `tooltip-hook', which is run when
! the timer with id `tooltip-timeout-id' fires.
Value is non-nil if this function handled the tip."
(when (stringp tooltip-help-message)
(tooltip-show tooltip-help-message tooltip-use-echo-area)