[Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC]

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Nick Roberts <nickrob>  09/08/08 04:16:08

Modified files:
        lisp/progmodes : gud.el 

Log message:
        (gud-menu-map): Add reverse-execution commands.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gud.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.162.2.1&r2=1.162.2.2

Patches:
Index: gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.162.2.1
retrieving revision 1.162.2.2
diff -u -b -r1.162.2.1 -r1.162.2.2
--- gud.el      2 Jul 2009 06:36:16 -0000       1.162.2.1
+++ gud.el      8 Aug 2009 04:16:08 -0000       1.162.2.2
@@ -43,6 +43,7 @@
 (require 'comint)
 
 (defvar gdb-active-process)
+(defvar gdb-recording)
 (defvar gdb-define-alist)
 (defvar gdb-macro-info)
 (defvar gdb-server-prefix)
@@ -145,6 +146,36 @@
 
 (easy-mmode-defmap gud-menu-map
   '(([help]     "Info (debugger)" . gud-goto-info)
+    ([rfinish] menu-item "Reverse Finish Function" gud-rfinish
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([rstepi]  menu-item "Reverse Step Instruction" gud-rstepi
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([rnexti]  menu-item "Reverse Next Instruction" gud-rnexti
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([rstep]   menu-item "Reverse Step Line" gud-rstep
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([rnext]   menu-item "Reverse Next Line" gud-rnext
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([rcont]   menu-item "Reverse Continue" gud-rcont
+                  :enable (not gud-running)
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
+    ([recstart] menu-item "Start Recording" gdb-toggle-recording-1
+                 :visible (and (not gdb-recording)
+                               (eq gud-minor-mode 'gdba)))
+    ([recstop] menu-item "Stop Recording" gdb-toggle-recording
+                 :visible (and gdb-recording
+                               (eq gud-minor-mode 'gdba)))
     ([tooltips] menu-item "Show GUD tooltips" gud-tooltip-mode
                   :enable (and (not emacs-basic-display)
                               (display-graphic-p)
@@ -291,6 +322,14 @@
                 (gud-stepi . "gud/stepi")
                 (gud-up . "gud/up")
                 (gud-down . "gud/down")
+                (gdb-toggle-recording-1 . "gud/record-start")
+                (gdb-toggle-recording . "gud/record-stop")
+                (gud-rcont . "gud/reverse-continue")
+                (gud-rnext . "gud/reverse-next")
+                (gud-rstep . "gud/reverse-step")
+                (gud-rfinish . "gud/reverse-finish")
+                (gud-rnexti . "gud/reverse-nexti")
+                (gud-rstepi . "gud/reverse-stepi")
                 (gud-goto-info . "info"))
               map)
       (tool-bar-local-item-from-menu