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

[Kim F. Storm]

Index: emacs/lisp/gud.el
diff -c emacs/lisp/gud.el:1.171 emacs/lisp/gud.el:1.172
*** emacs/lisp/gud.el:1.171     Sat Jan 11 11:46:35 2003
--- emacs/lisp/gud.el   Sat Jan 11 11:58:19 2003
***************
*** 94,100 ****
      ([run]    menu-item "Run" gud-run
                       :enable (and (not gud-running)
                                  (memq gud-minor-mode '(gdba gdb jdb))))
!     ([goto]   menu-item "Continue to selection" gud-goto
                       :enable (and (not gud-running)
                                  (memq gud-minor-mode '(gdba gdb))))
      ([remove] menu-item "Remove Breakpoint" gud-remove
--- 94,100 ----
      ([run]    menu-item "Run" gud-run
                       :enable (and (not gud-running)
                                  (memq gud-minor-mode '(gdba gdb jdb))))
!     ([goto]   menu-item "Continue to selection" gud-until
                       :enable (and (not gud-running)
                                  (memq gud-minor-mode '(gdba gdb))))
      ([remove] menu-item "Remove Breakpoint" gud-remove
***************
*** 151,157 ****
                     (gud-print . "gud-print")
                     (gud-display . "gud-display")
                     (gud-run . "gud-run")
!                    (gud-goto . "gud-goto")
                     (gud-cont . "gud-cont")
                     (gud-step . "gud-step")
                     (gud-next . "gud-next")
--- 151,157 ----
                     (gud-print . "gud-print")
                     (gud-display . "gud-display")
                     (gud-run . "gud-run")
!                    (gud-until . "gud-until")
                     (gud-cont . "gud-cont")
                     (gud-step . "gud-step")
                     (gud-next . "gud-next")
***************
*** 469,475 ****
    (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
    (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
    (gud-def gud-print  "print %e"     "\C-p" "Evaluate C expression at point.")
!   (gud-def gud-goto  "until %l"     "\C-u" "Continue up to current line.")
    (gud-def gud-run    "run"        nil    "Run the program.")
  
    (local-set-key "\C-i" 'gud-gdb-complete-command)
--- 469,475 ----
    (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
    (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
    (gud-def gud-print  "print %e"     "\C-p" "Evaluate C expression at point.")
!   (gud-def gud-until  "until %l"     "\C-u" "Continue up to current line.")
    (gud-def gud-run    "run"        nil    "Run the program.")
  
    (local-set-key "\C-i" 'gud-gdb-complete-command)