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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
