Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
90127:30ad2795fdab | 90128:13796b0653c7 |
---|---|
452 (set-process-filter process 'tooltip-gud-process-output) | 452 (set-process-filter process 'tooltip-gud-process-output) |
453 (gud-basic-call cmd))) | 453 (gud-basic-call cmd))) |
454 expr))))))) | 454 expr))))))) |
455 | 455 |
456 (defun gdb-tooltip-print () | 456 (defun gdb-tooltip-print () |
457 (tooltip-show | 457 (tooltip-show |
458 (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer) | 458 (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer) |
459 (let ((string (buffer-string))) | 459 (let ((string (buffer-string))) |
460 ;; remove newline for tooltip-use-echo-area | 460 ;; remove newline for tooltip-use-echo-area |
461 (substring string 0 (- (length string) 1)))))) | 461 (substring string 0 (- (length string) 1)))))) |
462 | 462 |
475 (stringp msg) | 475 (stringp msg) |
476 (save-match-data | 476 (save-match-data |
477 (string-match "^mouse-2" msg)) | 477 (string-match "^mouse-2" msg)) |
478 (setq mp (mouse-pixel-position)) | 478 (setq mp (mouse-pixel-position)) |
479 (consp (setq pos (cdr mp))) | 479 (consp (setq pos (cdr mp))) |
480 (car pos) (>= (car pos) 0) | |
481 (cdr pos) (>= (cdr pos) 0) | |
480 (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) | 482 (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
481 (windowp (posn-window pos))) | 483 (windowp (posn-window pos))) |
482 (with-current-buffer (window-buffer (posn-window pos)) | 484 (with-current-buffer (window-buffer (posn-window pos)) |
483 (if (mouse-on-link-p pos) | 485 (if (mouse-on-link-p pos) |
484 (setq msg (concat | 486 (setq msg (concat |