[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.38 emacs/lisp/progmodes/gud.el:1.39
*** emacs/lisp/progmodes/gud.el:1.38    Mon May 16 06:42:37 2005
--- emacs/lisp/progmodes/gud.el Fri May 27 20:54:58 2005
***************
*** 25,41 ****
  
  ;;; Commentary:
  
! ;; The ancestral gdb.el was by W. Schelter <address@hidden>
! ;; It was later rewritten by rms.  Some ideas were due to Masanobu.
! ;; Grand Unification (sdb/dbx support) by Eric S. Raymond <address@hidden>
! ;; The overloading code was then rewritten by Barry Warsaw <address@hidden>,
! ;; who also hacked the mode to use comint.el.  Shane Hartman <address@hidden>
! ;; added support for xdb (HPUX debugger).  Rick Sladkey <address@hidden>
! ;; wrote the GDB command completion code.  Dave Love <address@hidden>
! ;; added the IRIX kluge, re-implemented the Mips-ish variant and added
! ;; a menu. Brian D. Carlstrom <address@hidden> combined the IRIX kluge with
! ;; the gud-xdb-directories hack producing gud-dbx-directories.  Derek L. 
Davies
! ;; <address@hidden> added support for jdb (Java debugger.)
  
  ;;; Code:
  
--- 25,41 ----
  
  ;;; Commentary:
  
! ;; The ancestral gdb.el was by W. Schelter <address@hidden> It was
! ;; later rewritten by rms.  Some ideas were due to Masanobu.  Grand
! ;; Unification (sdb/dbx support) by Eric S. Raymond <address@hidden> Barry
! ;; Warsaw <address@hidden> hacked the mode to use comint.el.  Shane Hartman
! ;; <address@hidden> added support for xdb (HPUX debugger).  Rick Sladkey
! ;; <address@hidden> wrote the GDB command completion code.  Dave Love
! ;; <address@hidden> added the IRIX kluge, re-implemented the Mips-ish variant
! ;; and added a menu. Brian D. Carlstrom <address@hidden> combined the IRIX
! ;; kluge with the gud-xdb-directories hack producing gud-dbx-directories.
! ;; Derek L. Davies <address@hidden> added support for jdb (Java
! ;; debugger.)
  
  ;;; Code:
  
***************
*** 107,117 ****
                (setq same-window-regexps nil)
                (throw 'info-found nil))))
         nil 0)
-       (require 'info)
        (select-frame (make-frame)))
      (if (memq gud-minor-mode '(gdbmi gdba))
!       (Info-goto-node "(emacs)GDB Graphical Interface")
!       (Info-goto-node "(emacs)Debuggers"))))
  
  (easy-mmode-defmap gud-menu-map
    '(([help]     "Info" . gud-goto-info)
--- 107,116 ----
                (setq same-window-regexps nil)
                (throw 'info-found nil))))
         nil 0)
        (select-frame (make-frame)))
      (if (memq gud-minor-mode '(gdbmi gdba))
!       (info "(emacs)GDB Graphical Interface")
!       (info "(emacs)Debuggers"))))
  
  (easy-mmode-defmap gud-menu-map
    '(([help]     "Info" . gud-goto-info)
***************
*** 343,355 ****
  
  (defvar gud-speedbar-menu-items
    ;; Note to self.  Add expand, and turn off items when not available.
!   '(["Jump to stack frame" speedbar-edit-line 
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))]
!     ["Edit value" speedbar-edit-line 
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))]
!     ["Delete expression" gdb-var-delete 
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))])
    "Additional menu items to add to the speedbar frame.")
--- 342,354 ----
  
  (defvar gud-speedbar-menu-items
    ;; Note to self.  Add expand, and turn off items when not available.
!   '(["Jump to stack frame" speedbar-edit-line
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))]
!     ["Edit value" speedbar-edit-line
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))]
!     ["Delete expression" gdb-var-delete
       (with-current-buffer gud-comint-buffer
         (not (memq gud-minor-mode '(gdbmi gdba))))])
    "Additional menu items to add to the speedbar frame.")
***************
*** 3192,3198 ****
    "The mouse movement event that led to a tooltip display.
  This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
  
! (defun gud-tooltip-toggle-dereference ()
    "Toggle whether tooltips should show `* expr' or `expr'."
    (interactive)
    (setq gud-tooltip-dereference (not gud-tooltip-dereference))
--- 3191,3197 ----
    "The mouse movement event that led to a tooltip display.
  This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")
  
! (defun toggle-gud-tooltip-dereference ()
    "Toggle whether tooltips should show `* expr' or `expr'."
    (interactive)
    (setq gud-tooltip-dereference (not gud-tooltip-dereference))
***************
*** 3201,3207 ****
             (if gud-tooltip-dereference "on" "off"))))
  
  (define-obsolete-function-alias 'tooltip-gud-toggle-dereference
!                                 'gud-tooltip-toggle-dereference "22.1")
  
  (define-minor-mode gud-tooltip-mode
    "Toggle the display of GUD tooltips."
--- 3200,3206 ----
             (if gud-tooltip-dereference "on" "off"))))
  
  (define-obsolete-function-alias 'tooltip-gud-toggle-dereference
!                                 'toggle-gud-tooltip-dereference "22.1")
  
  (define-minor-mode gud-tooltip-mode
    "Toggle the display of GUD tooltips."