mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(gud-tooltip-modes, gud-tooltip-display):

Browse source 
Add the gud groupname.
(gud-tooltip-mode): Add the tooltip groupname. Move in front
of other defcustoms with that groupname.
(gud-tooltip-echo-area): Add the gud groupname. Remove tag to
avoid conflict with tooltip-use-echo-area.
This commit is contained in:
Nick Roberts 2005-12-10 21:32:22 +00:00
parent e85dcd95a2
commit 760a716cf7
1 changed files with 43 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

82
lisp/progmodes/gud.el
View file

@ -3221,10 +3221,50 @@ Treats actions as defuns."
;;; tooltips for GUD
;;; Customizable settings
;;;###autoload
(define-minor-mode gud-tooltip-mode
"Toggle the display of GUD tooltips."
:global t
:group 'gud
:group 'tooltip
(require 'tooltip)
(if gud-tooltip-mode
(progn
(add-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
(add-hook 'pre-command-hook 'tooltip-hide)
(add-hook 'tooltip-hook 'gud-tooltip-tips)
(define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion))
(unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide)
(remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
(remove-hook 'tooltip-hook 'gud-tooltip-tips)
(define-key global-map [mouse-movement] 'ignore)))
(gud-tooltip-activate-mouse-motions-if-enabled)
(if (and
gud-comint-buffer
(buffer-name gud-comint-buffer); gud-comint-buffer might be killed
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
(progn
(dolist (buffer (buffer-list))
(unless (eq buffer gud-comint-buffer)
(with-current-buffer buffer
(when (and (memq gud-minor-mode '(gdbmi gdba))
(not (string-match "\\`\\*.+\\*\\'"
(buffer-name))))
(make-local-variable 'gdb-define-alist)
(gdb-create-define-alist)
(add-hook 'after-save-hook
'gdb-create-define-alist nil t))))))
(kill-local-variable 'gdb-define-alist)
(remove-hook 'after-save-hook 'gdb-create-define-alist t))))
(defcustom gud-tooltip-modes '(gud-mode c-mode c++-mode fortran-mode)
"List of modes for which to enable GUD tips."
"List of modes for which to enable GUD tooltips."
:type 'sexp
:tag "GUD modes"
:group 'gud
:group 'tooltip)
(defcustom gud-tooltip-display
@ -3236,12 +3276,13 @@ Forms in the list are combined with AND. The default is to display
only tooltips in the buffer containing the overlay arrow."
:type 'sexp
:tag "GUD buffers predicate"
:group 'gud
:group 'tooltip)
(defcustom gud-tooltip-echo-area nil
"Use the echo area instead of frames for GUD tooltips."
:type 'boolean
:tag "Use echo area"
:group 'gud
:group 'tooltip)
(define-obsolete-variable-alias 'tooltip-gud-modes
@ -3315,43 +3356,6 @@ This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
(define-obsolete-function-alias 'tooltip-gud-toggle-dereference
'toggle-gud-tooltip-dereference "22.1")
;;;###autoload
(define-minor-mode gud-tooltip-mode
"Toggle the display of GUD tooltips."
:global t
:group 'gud
(require 'tooltip)
(if gud-tooltip-mode
(progn
(add-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
(add-hook 'pre-command-hook 'tooltip-hide)
(add-hook 'tooltip-hook 'gud-tooltip-tips)
(define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion))
(unless tooltip-mode (remove-hook 'pre-command-hook 'tooltip-hide)
(remove-hook 'change-major-mode-hook 'gud-tooltip-change-major-mode)
(remove-hook 'tooltip-hook 'gud-tooltip-tips)
(define-key global-map [mouse-movement] 'ignore)))
(gud-tooltip-activate-mouse-motions-if-enabled)
(if (and
gud-comint-buffer
(buffer-name gud-comint-buffer); gud-comint-buffer might be killed
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
(progn
(dolist (buffer (buffer-list))
(unless (eq buffer gud-comint-buffer)
(with-current-buffer buffer
(when (and (memq gud-minor-mode '(gdbmi gdba))
(not (string-match "\\`\\*.+\\*\\'"
(buffer-name))))
(make-local-variable 'gdb-define-alist)
(gdb-create-define-alist)
(add-hook 'after-save-hook
'gdb-create-define-alist nil t))))))
(kill-local-variable 'gdb-define-alist)
(remove-hook 'after-save-hook 'gdb-create-define-alist t))))
; This will only display data that comes in one chunk.
; Larger arrays (say 400 elements) are displayed in
; the tooltip incompletely and spill over into the gud buffer.