# HG changeset patch # User Chong Yidong <cyd@stupidchicken.com> # Date 1237171365 0 # Node ID 38cce541a3bdd926a6b3dfb6796134795e9ff1e8 # Parent 01843ba0d6afe4dd0ec9c83a4d757dc2c8cb2308 (tooltip-show-help-non-mode): Don't set tooltip-previous-message if called with the same tooltip that is showing (Bug#2680). diff -r 01843ba0d6af -r 38cce541a3bd lisp/tooltip.el --- a/lisp/tooltip.el Mon Mar 16 02:42:33 2009 +0000 +++ b/lisp/tooltip.el Mon Mar 16 02:42:45 2009 +0000 @@ -333,11 +333,13 @@ (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)