[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC] |
Date: |
Sat, 08 Aug 2009 04:16:08 +0000 |
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
- [Emacs-diffs] emacs/lisp/progmodes gud.el [EMACS_23_1_RC],
Nick Roberts <=