[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tooltip.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tooltip.el |
Date: |
Thu, 31 Mar 2005 05:10:39 -0500 |
Index: emacs/lisp/tooltip.el
diff -c emacs/lisp/tooltip.el:1.45 emacs/lisp/tooltip.el:1.46
*** emacs/lisp/tooltip.el:1.45 Wed Mar 30 08:33:43 2005
--- emacs/lisp/tooltip.el Thu Mar 31 10:10:39 2005
***************
*** 469,495 ****
(defun tooltip-show-help-function (msg)
"Function installed as `show-help-function'.
MSG is either a help string to display, or nil to cancel the display."
! (let ((previous-help tooltip-help-message)
! mp pos)
! (if (and mouse-1-click-follows-link
! (stringp msg)
! (save-match-data
! (string-match "^mouse-2" msg))
! (setq mp (mouse-pixel-position))
! (consp (setq pos (cdr mp)))
! (car pos) (>= (car pos) 0)
! (cdr pos) (>= (cdr pos) 0)
! (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
! (windowp (posn-window pos)))
! (with-current-buffer (window-buffer (posn-window pos))
! (if (mouse-on-link-p pos)
! (setq msg (concat
! (cond
! ((eq mouse-1-click-follows-link 'double) "double-")
! ((and (integerp mouse-1-click-follows-link)
! (< mouse-1-click-follows-link 0)) "Long ")
! (t ""))
! "mouse-1" (substring msg 7))))))
(setq tooltip-help-message msg)
(cond ((null msg)
;; Cancel display. This also cancels a delayed tip, if
--- 469,475 ----
(defun tooltip-show-help-function (msg)
"Function installed as `show-help-function'.
MSG is either a help string to display, or nil to cancel the display."
! (let ((previous-help tooltip-help-message))
(setq tooltip-help-message msg)
(cond ((null msg)
;; Cancel display. This also cancels a delayed tip, if