diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-03-16 02:42:45 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-03-16 02:42:45 +0000 |
| commit | 9bec41deccf2b08bcd81d0daa8c787b6b5a822f8 (patch) | |
| tree | d0801d923cc598f0dca8bc3cf9351e264d309db9 /lisp/tooltip.el | |
| parent | 17bc3e84b4cbeb34783ea445b72c2ef30110b6e9 (diff) | |
| download | emacs-9bec41deccf2b08bcd81d0daa8c787b6b5a822f8.tar.gz | |
(tooltip-show-help-non-mode): Don't set tooltip-previous-message if
called with the same tooltip that is showing (Bug#2680).
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 41a50b442ea..b7883a02049 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -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) |