# 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)