changeset 76927:8199e6703268

(gud-minor-mode-map): Simplify.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 03 Apr 2007 21:27:29 +0000
parents d13721cc3255
children e9a67d6e120b
files lisp/progmodes/gud.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Tue Apr 03 21:26:46 2007 +0000
+++ b/lisp/progmodes/gud.el	Tue Apr 03 21:27:29 2007 +0000
@@ -231,7 +231,7 @@
        ([menu-bar until] menu-item
 	,(propertize "until" 'face 'font-lock-doc-face) gud-until
 		  :visible (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
-       ([menu-bar cont]	menu-item
+       ([menu-bar cont] menu-item
 	,(propertize "cont" 'face 'font-lock-doc-face) gud-cont
 	:visible (not (eq gud-minor-mode 'gdba)))
        ([menu-bar run] menu-item
@@ -243,9 +243,8 @@
 		      (eq gud-minor-mode 'gdba)))
        ([menu-bar stop] menu-item
 	,(propertize "stop" 'face 'font-lock-doc-face) gud-stop-subjob
-	:visible (or (not (eq gud-minor-mode 'gdba))
-		     (and gud-running
-			  (eq gud-minor-mode 'gdba))))
+	:visible (or gud-running
+		     (not (eq gud-minor-mode 'gdba))))
        ([menu-bar print]
 	. (,(propertize "print" 'face 'font-lock-doc-face) . gud-print))
        ([menu-bar tools] . undefined)