mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-28 Chong Yidong <cyd@stupidchicken.com>
* tooltip.el (tooltip-show-help): Fall back on
tooltip-show-help-non-mode for text-only displays.
2009-04-27 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc.el (calc-mode): Replace `copy-list' with `copy-sequence'.

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.