mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* tooltip.el (tooltip-show-help): Fall back on

Browse source 
tooltip-show-help-non-mode for text-only displays.
This commit is contained in:
Chong Yidong 2009-04-28 02:16:49 +00:00
parent 7048562d01
commit 68a4b77d15
2 changed files with 25 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lisp/tooltip.el
View file

@ -327,7 +327,8 @@ This is used by `tooltip-show-help' and
"The previous content of the echo area.")
(defun tooltip-show-help-non-mode (help)
"Function installed as `show-help-function' when tooltip is off."
"Function installed as `show-help-function' when Tooltip mode is off.
It is also called if Tooltip mode is on, for text-only displays."
(when (and (not (window-minibuffer-p)) ;Don't overwrite minibuffer contents.
(not cursor-in-echo-area)) ;Don't overwrite a prompt.
(cond
@ -353,21 +354,24 @@ This is used by `tooltip-show-help' and
(defun tooltip-show-help (msg)
"Function installed as `show-help-function'.
MSG is either a help string to display, or nil to cancel the display."
(let ((previous-help tooltip-help-message))
(setq tooltip-help-message msg)
(cond ((null msg)
;; Cancel display. This also cancels a delayed tip, if
;; there is one.
(tooltip-hide))
((equal previous-help msg)
;; Same help as before (but possibly the mouse has moved).
;; Keep what we have.
)
(t
;; A different help. Remove a previous tooltip, and
;; display a new one, with some delay.
(tooltip-hide)
(tooltip-start-delayed-tip)))))
(if (display-graphic-p)
(let ((previous-help tooltip-help-message))
(setq tooltip-help-message msg)
(cond ((null msg)
;; Cancel display. This also cancels a delayed tip, if
;; there is one.
(tooltip-hide))
((equal previous-help msg)
;; Same help as before (but possibly the mouse has moved).
;; Keep what we have.
)
(t
;; A different help. Remove a previous tooltip, and
;; display a new one, with some delay.
(tooltip-hide)
(tooltip-start-delayed-tip))))
;; On text-only displays, try `tooltip-show-help-non-mode'.
(tooltip-show-help-non-mode msg)))
(defun tooltip-help-tips (event)
"Hook function to display a help tooltip.