From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 15 Nov 2005 22:37:49 +0000 (+0000)
Subject: (gud-menu-map): Make visibility of stop and
X-Git-Tag: emacs-pretest-22.0.90~5880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3525a3ee8434f1e1107c74bf8b4b45070d97d096;p=emacs.git

(gud-menu-map): Make visibility of stop and
go buttons complementary.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 464f16ebe5a..196b69fe575 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -140,10 +140,12 @@ Used to grey out relevant togolbar icons.")
 			       (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
 		  :visible (not (eq gud-minor-mode 'gdba)))
     ([go]	menu-item "Run/Continue" gud-go
-                  :enable (not gud-running)
-		  :visible (eq gud-minor-mode 'gdba))
+		  :visible (and (not gud-running)
+				(eq gud-minor-mode 'gdba)))
     ([stop]	menu-item "Stop" comint-interrupt-subjob
-                  :enable gud-running)
+		  :visible (or (not (eq gud-minor-mode 'gdba))
+			       (and gud-running
+				    (eq gud-minor-mode 'gdba))))
     ([until]	menu-item "Continue to selection" gud-until
                   :enable (and (not gud-running)
 			       (memq gud-minor-mode '(gdbmi gdba gdb perldb)))