[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.39 emacs/lisp/progmodes/gud.el:1.40
*** emacs/lisp/progmodes/gud.el:1.39    Fri May 27 20:54:58 2005
--- emacs/lisp/progmodes/gud.el Sun Jun  5 07:50:53 2005
***************
*** 140,145 ****
--- 140,148 ----
                  :enable (and (not gud-running)
                               (memq gud-minor-mode
                                     '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
+     ([print*] menu-item "Print Dereference" gud-pstar
+                      :enable (and (not gud-running)
+                                 (memq gud-minor-mode '(gdbmi gdba gdb))))
      ([print]  menu-item "Print Expression" gud-print
                       :enable (not gud-running))
      ([watch]  menu-item "Watch Expression" gud-watch
***************
*** 183,200 ****
        (dolist (x '((gud-break . "gud-break")
                     (gud-remove . "gud-remove")
                     (gud-print . "gud-print")
                     (gud-watch . "gud-watch")
-                    (gud-run . "gud-run")
-                    (gud-until . "gud-until")
                     (gud-cont . "gud-cont")
                     ;; gud-s, gud-si etc. instead of gud-step,
                     ;; gud-stepi, to avoid file-name clashes on DOS
                     ;; 8+3 filesystems.
-                    (gud-step . "gud-s")
                     (gud-next . "gud-n")
!                    (gud-finish . "gud-finish")
!                    (gud-stepi . "gud-si")
                     (gud-nexti . "gud-ni")
                     (gud-up . "gud-up")
                     (gud-down . "gud-down")
                     (gud-goto-info . "info"))
--- 186,204 ----
        (dolist (x '((gud-break . "gud-break")
                     (gud-remove . "gud-remove")
                     (gud-print . "gud-print")
+                    (gud-pstar . "gud-pstar")
                     (gud-watch . "gud-watch")
                     (gud-cont . "gud-cont")
+                    (gud-until . "gud-until")
+                    (gud-finish . "gud-finish")
+                    (gud-run . "gud-run")
                     ;; gud-s, gud-si etc. instead of gud-step,
                     ;; gud-stepi, to avoid file-name clashes on DOS
                     ;; 8+3 filesystems.
                     (gud-next . "gud-n")
!                    (gud-step . "gud-s")
                     (gud-nexti . "gud-ni")
+                    (gud-stepi . "gud-si")
                     (gud-up . "gud-up")
                     (gud-down . "gud-down")
                     (gud-goto-info . "info"))
***************
*** 580,585 ****
--- 584,591 ----
    (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-pstar  "print* %e"    nil
+          "Evaluate C dereferenced pointer expression at point.")
    (gud-def gud-until  "until %l"     "\C-u" "Continue to current line.")
    (gud-def gud-run    "run"        nil    "Run the program.")