# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1132094269 0
# Node ID b9eae5edf0dc36168d9c4ce60d79178cb715cce7
# Parent  8b7b188574d7d2d801b24a548f4185118db1485e
(gud-menu-map): Make visibility of stop and
go buttons complementary.

diff -r 8b7b188574d7 -r b9eae5edf0dc lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Nov 15 22:36:55 2005 +0000
+++ b/lisp/progmodes/gud.el	Tue Nov 15 22:37:49 2005 +0000
@@ -140,10 +140,12 @@
 			       (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)))