[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.36 emacs/lisp/progmodes/gud.el:1.37
*** emacs/lisp/progmodes/gud.el:1.36    Fri May  6 22:10:50 2005
--- emacs/lisp/progmodes/gud.el Mon May  9 21:55:33 2005
***************
*** 3207,3212 ****
--- 3207,3213 ----
    "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)
***************
*** 3253,3259 ****
      (setq expr (concat "*" expr)))
    (case gud-minor-mode
      ((gdb gdba) (concat "server print " expr))
!     (dbx (concat "print " expr))
      (xdb (concat "p " expr))
      (sdb (concat expr "/"))
      (perldb expr)))
--- 3254,3260 ----
      (setq expr (concat "*" expr)))
    (case gud-minor-mode
      ((gdb gdba) (concat "server print " expr))
!     ((dbx gdbmi) (concat "print " expr))
      (xdb (concat "p " expr))
      (sdb (concat expr "/"))
      (perldb expr)))
***************
*** 3293,3301 ****
                      expr))))
            (let ((cmd (gud-tooltip-print-command expr)))
              (unless (null cmd) ; CMD can be nil if unknown debugger
!               (if (eq gud-minor-mode 'gdba)
!                   (gdb-enqueue-input
!                    (list  (concat cmd "\n") 'gdb-tooltip-print))
                  (setq gud-tooltip-original-filter (process-filter process))
                  (set-process-filter process 'gud-tooltip-process-output)
                  (gud-basic-call cmd))
--- 3294,3307 ----
                      expr))))
            (let ((cmd (gud-tooltip-print-command expr)))
              (unless (null cmd) ; CMD can be nil if unknown debugger
!               (if (memq gud-minor-mode '(gdba gdbmi))
!                     (if gdb-macro-info
!                         (gdb-enqueue-input
!                          (list (concat
!                                 gdb-server-prefix "macro expand " expr "\n")
!                                `(lambda () (gdb-tooltip-print-1 ,expr))))
!                       (gdb-enqueue-input
!                        (list  (concat cmd "\n") 'gdb-tooltip-print)))
                  (setq gud-tooltip-original-filter (process-filter process))
                  (set-process-filter process 'gud-tooltip-process-output)
                  (gud-basic-call cmd))