/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by lektu, Tue Jun 14 11:34:43 2005 UTC revision 1.42 by nickrob, Tue Jun 14 21:14:12 2005 UTC
# Line 3139  only tooltips in the buffer containing t Line 3139  only tooltips in the buffer containing t
3139                                  'gud-tooltip-modes "22.1")                                  'gud-tooltip-modes "22.1")
3140  (define-obsolete-variable-alias 'tooltip-gud-display  (define-obsolete-variable-alias 'tooltip-gud-display
3141                                  'gud-tooltip-display "22.1")                                  'gud-tooltip-display "22.1")
 (define-obsolete-variable-alias 'tooltip-use-echo-area  
                                 'gud-tooltip-echo-area "22.1")  
3142    
3143  ;;; Reacting on mouse movements  ;;; Reacting on mouse movements
3144    
# Line 3242  This event can be examined by forms in G Line 3240  This event can be examined by forms in G
3240    
3241  ; This will only display data that comes in one chunk.  ; This will only display data that comes in one chunk.
3242  ; Larger arrays (say 400 elements) are displayed in  ; Larger arrays (say 400 elements) are displayed in
3243  ; the tootip incompletely and spill over into the gud buffer.  ; the tooltip incompletely and spill over into the gud buffer.
3244  ; Switching the process-filter creates timing problems and  ; Switching the process-filter creates timing problems and
3245  ; it may be difficult to do better. Using annotations as in  ; it may be difficult to do better. Using annotations as in
3246  ; gdb-ui.el gets round this problem.  ; gdb-ui.el gets round this problem.
# Line 3250  This event can be examined by forms in G Line 3248  This event can be examined by forms in G
3248    "Process debugger output and show it in a tooltip window."    "Process debugger output and show it in a tooltip window."
3249    (set-process-filter process gud-tooltip-original-filter)    (set-process-filter process gud-tooltip-original-filter)
3250    (tooltip-show (tooltip-strip-prompt process output)    (tooltip-show (tooltip-strip-prompt process output)
3251                  gud-tooltip-echo-area))                  (or gud-tooltip-echo-area tooltip-use-echo-area)))
3252    
3253  (defun gud-tooltip-print-command (expr)  (defun gud-tooltip-print-command (expr)
3254    "Return a suitable command to print the expression EXPR.    "Return a suitable command to print the expression EXPR.
# Line 3295  This function must return nil if it does Line 3293  This function must return nil if it does
3293                                                  (cddr mouse))))                                                  (cddr mouse))))
3294                    (let ((define-elt (assoc expr gdb-define-alist)))                    (let ((define-elt (assoc expr gdb-define-alist)))
3295                      (unless (null define-elt)                      (unless (null define-elt)
3296                        (tooltip-show (cdr define-elt))                        (tooltip-show
3297                           (cdr define-elt)
3298                           (or gud-tooltip-echo-area tooltip-use-echo-area))
3299                        expr))))                        expr))))
3300              (let ((cmd (gud-tooltip-print-command expr)))              (let ((cmd (gud-tooltip-print-command expr)))
3301                (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))                (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26