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

(tooltip-show-help-non-mode): Don't set tooltip-previous-message if

Browse source 
called with the same tooltip that is showing (Bug#2680).
This commit is contained in:
Chong Yidong 2009-03-16 02:42:45 +00:00
parent 17bc3e84b4
commit 9bec41decc
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/tooltip.el
View file

@ -333,11 +333,13 @@ the buffer of PROCESS."
(not cursor-in-echo-area)) ;Don't overwrite a prompt.
(cond
((stringp help)
(unless tooltip-previous-message
(setq help (replace-regexp-in-string "\n" ", " help))
(unless (or tooltip-previous-message
(string-equal help (current-message)))
(setq tooltip-previous-message (current-message)))
(let ((message-truncate-lines t)
(message-log-max nil))
(message "%s" (replace-regexp-in-string "\n" ", " help))))
(message "%s" help)))
((stringp tooltip-previous-message)
(let ((message-log-max nil))
(message "%s" tooltip-previous-message)