[Emacs-diffs] emacs/lisp tooltip.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/03/16 02:42:45

Modified files:
        lisp           : tooltip.el 

Log message:
        (tooltip-show-help-non-mode): Don't set tooltip-previous-message if
        called with the same tooltip that is showing (Bug#2680).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tooltip.el?cvsroot=emacs&r1=1.91&r2=1.92

Patches:
Index: tooltip.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tooltip.el,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -b -r1.91 -r1.92
--- tooltip.el  5 Jan 2009 03:19:50 -0000       1.91
+++ tooltip.el  16 Mar 2009 02:42:45 -0000      1.92
@@ -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)