[Emacs-diffs] Changes to emacs/lisp/tooltip.el

[Juanma Barranquero]

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)