[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.41 emacs/lisp/progmodes/gud.el:1.42
*** emacs/lisp/progmodes/gud.el:1.41    Tue Jun 14 11:34:43 2005
--- emacs/lisp/progmodes/gud.el Tue Jun 14 21:14:12 2005
***************
*** 3139,3146 ****
                                  'gud-tooltip-modes "22.1")
  (define-obsolete-variable-alias 'tooltip-gud-display
                                  'gud-tooltip-display "22.1")
- (define-obsolete-variable-alias 'tooltip-use-echo-area
-                                 'gud-tooltip-echo-area "22.1")
  
  ;;; Reacting on mouse movements
  
--- 3139,3144 ----
***************
*** 3242,3248 ****
  
  ; This will only display data that comes in one chunk.
  ; Larger arrays (say 400 elements) are displayed in
! ; the tootip incompletely and spill over into the gud buffer.
  ; Switching the process-filter creates timing problems and
  ; it may be difficult to do better. Using annotations as in
  ; gdb-ui.el gets round this problem.
--- 3240,3246 ----
  
  ; 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.
  ; Switching the process-filter creates timing problems and
  ; it may be difficult to do better. Using annotations as in
  ; gdb-ui.el gets round this problem.
***************
*** 3250,3256 ****
    "Process debugger output and show it in a tooltip window."
    (set-process-filter process gud-tooltip-original-filter)
    (tooltip-show (tooltip-strip-prompt process output)
!               gud-tooltip-echo-area))
  
  (defun gud-tooltip-print-command (expr)
    "Return a suitable command to print the expression EXPR.
--- 3248,3254 ----
    "Process debugger output and show it in a tooltip window."
    (set-process-filter process gud-tooltip-original-filter)
    (tooltip-show (tooltip-strip-prompt process output)
!               (or gud-tooltip-echo-area tooltip-use-echo-area)))
  
  (defun gud-tooltip-print-command (expr)
    "Return a suitable command to print the expression EXPR.
***************
*** 3295,3301 ****
                                                (cddr mouse))))
                  (let ((define-elt (assoc expr gdb-define-alist)))
                    (unless (null define-elt)
!                     (tooltip-show (cdr define-elt))
                      expr))))
            (let ((cmd (gud-tooltip-print-command expr)))
              (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))
--- 3293,3301 ----
                                                (cddr mouse))))
                  (let ((define-elt (assoc expr gdb-define-alist)))
                    (unless (null define-elt)
!                     (tooltip-show
!                      (cdr define-elt)
!                      (or gud-tooltip-echo-area tooltip-use-echo-area))
                      expr))))
            (let ((cmd (gud-tooltip-print-command expr)))
              (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))