mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(tooltip-show-help-function): Check car and cdr of

Browse source 
mouse position.
This commit is contained in:
Kim F. Storm 2005-03-21 22:16:22 +00:00
parent f0ebf1ebe7
commit e07aa7db90
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/tooltip.el
View file

@ -454,7 +454,7 @@ This function must return nil if it doesn't handle EVENT."
expr)))))))
(defun gdb-tooltip-print ()
(tooltip-show
(tooltip-show
(with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
(let ((string (buffer-string)))
;; remove newline for tooltip-use-echo-area
@ -477,6 +477,7 @@ MSG is either a help string to display, or nil to cancel the display."
(string-match "^mouse-2" msg))
(setq mp (mouse-pixel-position))
(consp (setq pos (cdr mp)))
(car pos) (cdr pos)
(setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
(windowp (posn-window pos)))
(with-current-buffer (window-buffer (posn-window pos))