diff options
| author | Mauro Aranda <maurooaranda@gmail.com> | 2019-09-16 22:17:51 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-16 22:17:51 +0200 |
| commit | f22346fe5abdbdac2ba5f690c11fda4d4f5d22d6 (patch) | |
| tree | c37518501f18e94bf258d5c3ada8012274b64643 /lisp/tooltip.el | |
| parent | 72ad41c05994a67679c7bd54a3d73726bcca0597 (diff) | |
| download | emacs-f22346fe5abdbdac2ba5f690c11fda4d4f5d22d6.tar.gz emacs-f22346fe5abdbdac2ba5f690c11fda4d4f5d22d6.tar.bz2 emacs-f22346fe5abdbdac2ba5f690c11fda4d4f5d22d6.zip | |
With tooltip-mode disabled, don't unconditionally clear the echo area
* lisp/tooltip.el (tooltip-show-help-non-mode): Only clear the
echo area when the current message displayed is a tooltip message
(Bug#3192).
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index b1c69ae7368..eac510ba7ba 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -365,7 +365,10 @@ It is also called if Tooltip mode is on, for text-only displays." (let ((message-log-max nil)) (message "%s" tooltip-previous-message) (setq tooltip-previous-message nil))) - (t + ;; Only stop displaying the message when the current message is our own. + ;; This has the advantage of not clearing the echo area when + ;; running after an error message was displayed (Bug#3192). + ((equal-including-properties tooltip-help-message (current-message)) (message nil))))) (defun tooltip-show-help (msg) |