Mercurial > emacs
diff lisp/tooltip.el @ 90128:13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 192-205)
- Update from CVS
- Use gdb-ui breakpoint faces on ttys too
- Tweak gdb-ui breakpoint faces
- Tweak info/.arch-inventory to identify info/.cvsignore as source
- Clean up gdb-ui breakpoint faces
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 24 Mar 2005 18:41:26 +0000 |
parents | e330fedc9152 b39c6b2034fa |
children | 4da4a09e8b1b |
line wrap: on
line diff
--- a/lisp/tooltip.el Sat Mar 19 02:42:17 2005 +0000 +++ b/lisp/tooltip.el Thu Mar 24 18:41:26 2005 +0000 @@ -454,7 +454,7 @@ 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,8 @@ (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))