[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp tooltip.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp tooltip.el |
Date: |
Mon, 16 Mar 2009 02:42:45 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp tooltip.el,
Chong Yidong <=