andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tooltip-mode): Set tooltip-show-help-non-mode as

Browse source 
show-help-function when turning tooltip off.
(tooltip-show): Call tooltip-show-help-non-mode if use-echo-area.
(tooltip-trunc-str, tooltip-show-help-non-mode): New.
This commit is contained in:
Jan Djärv 2008-04-09 09:34:16 +00:00
parent 96bdb5cf19
commit 14c0a34db0
2 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2008-04-09 Jan Djärv <jan.h.d@swipnet.se>
* tooltip.el (tooltip-mode): Set tooltip-show-help-non-mode as
show-help-function when turning tooltip off.
(tooltip-show): Call tooltip-show-help-non-mode if use-echo-area.
(tooltip-trunc-str, tooltip-show-help-non-mode): New.
2008-04-09 Alan Mackenzie <acm@muc.de>
* font-lock.el (font-lock-extend-after-change-region-function):

20
lisp/tooltip.el
View file

@ -67,7 +67,7 @@ the help text in the echo area, and does not make a pop-up window."
(remove-hook 'pre-command-hook 'tooltip-hide))
(remove-hook 'tooltip-hook 'tooltip-help-tips))
(setq show-help-function
(if tooltip-mode 'tooltip-show-help nil)))
(if tooltip-mode 'tooltip-show-help 'tooltip-show-help-non-mode)))
;;; Customizable settings
@ -228,7 +228,7 @@ position.
Optional second arg USE-ECHO-AREA non-nil means to show tooltip
in echo area."
(if use-echo-area
(message "%s" text)
(tooltip-show-help-non-mode text)
(condition-case error
(let ((params (copy-sequence tooltip-frame-parameters))
(fg (face-attribute 'tooltip :foreground))
@ -316,6 +316,22 @@ the buffer of PROCESS."
(defvar tooltip-help-message nil
"The last help message received via `tooltip-show-help'.")
(defun tooltip-trunc-str (str maxlen pieces)
(let ((s (car pieces)))
(if (and pieces (< (+ (length str) (length s) 2) maxlen))
(tooltip-trunc-str (concat str
(if (> (length str) 0) ", " "")
s)
maxlen (cdr pieces))
(if (> (length str) 0) str s))))
(defun tooltip-show-help-non-mode (msg)
"Function installed as `show-help-function' when tooltip is off."
(message "%s" (if msg
(tooltip-trunc-str "" (frame-parameter nil 'width)
(split-string msg "\n" t))
"")))
(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."