mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

* tooltip.el (tooltip-show-help-non-mode): Don't save the last

Browse Source 
message if it was also a help message (Bug#2895).
This commit is contained in:
Chong Yidong 2009-04-06 23:52:41 +00:00
parent d7ca410a96
commit 707731ee86
2 changed files with 14 additions and 6 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-06 Chong Yidong <cyd@stupidchicken.com>
* tooltip.el (tooltip-show-help-non-mode): Don't save the last
message if it was also a help message (Bug#2895).
2009-04-06 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
* textmodes/bibtex.el (bibtex-format-entry)

15
lisp/tooltip.el
View File

@ -319,7 +319,9 @@ the buffer of PROCESS."
;;; Tooltip help.
(defvar tooltip-help-message nil
"The last help message received via `tooltip-show-help'.")
"The last help message received via `show-help-function'.
This is used by `tooltip-show-help' and
`tooltip-show-help-non-mode'.")
(defvar tooltip-previous-message nil
"The previous content of the echo area.")
@ -327,16 +329,17 @@ the buffer of PROCESS."
(defun tooltip-show-help-non-mode (help)
"Function installed as `show-help-function' when tooltip is off."
(when (and (not (window-minibuffer-p)) ;Don't overwrite minibuffer contents.
;; Don't know how to reproduce it in Elisp:
;; Don't overwrite a keystroke echo.
;; (NILP (echo_message_buffer) || ok_to_overwrite_keystroke_echo)
(not cursor-in-echo-area)) ;Don't overwrite a prompt.
(not cursor-in-echo-area)) ;Don't overwrite a prompt.
(cond
((stringp help)
(setq help (replace-regexp-in-string "\n" ", " help))
(unless (or tooltip-previous-message
(string-equal help (current-message)))
(string-equal help (current-message))
(and (stringp tooltip-help-message)
(string-equal tooltip-help-message
(current-message))))
(setq tooltip-previous-message (current-message)))
(setq tooltip-help-message help)
(let ((message-truncate-lines t)
(message-log-max nil))
(message "%s" help)))