mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(tooltip-start-delayed-tip, tooltip-timeout, tooltip-use-echo-area,

Browse Source 
tooltip-process-prompt-regexp, tooltip-help-tips): Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2005-06-16 09:59:47 +00:00
parent 66c20a8203
commit 04cedb114c
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2005-06-16 Juanma Barranquero <lekktu@gmail.com>
* tooltip.el (tooltip-start-delayed-tip, tooltip-timeout)
(tooltip-use-echo-area, tooltip-process-prompt-regexp)
(tooltip-help-tips): Fix typos in docstrings.
2005-06-16 David Ponce <david@dponce.com>
* tree-widget.el (tree-widget-value-create): Simplify last change.

16
lisp/tooltip.el
View File

@ -120,9 +120,9 @@ position to pop up the tooltip."
: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")
"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,12 +201,12 @@ With ARG, turn tooltip mode on if and only if ARG is positive."
(setq tooltip-timeout-id nil)))
(defun tooltip-start-delayed-tip ()
"Add a one-shot timeout to call function tooltip-timeout."
"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."
"Function called when timer with id `tooltip-timeout-id' fires."
(run-hook-with-args-until-success 'tooltip-hook
tooltip-last-mouse-motion-event))
@ -301,8 +301,8 @@ where the mouse is."
(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."
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,7 +349,7 @@ MSG is either a help string to display, or nil to cancel the display."
(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.
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)