From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 3 Apr 2007 21:27:29 +0000 (+0000)
Subject: (gud-minor-mode-map): Simplify.
X-Git-Tag: emacs-pretest-22.0.97~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2b3c7dbb8d7ab39de31e6011b2224183b9110a0;p=emacs.git

(gud-minor-mode-map): Simplify.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 858f4bfe43b..c5183f954ee 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -231,7 +231,7 @@ Used to grey out relevant toolbar icons.")
        ([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 @@ Used to grey out relevant toolbar icons.")
 		      (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)