From d2b3c7dbb8d7ab39de31e6011b2224183b9110a0 Mon Sep 17 00:00:00 2001
From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 3 Apr 2007 21:27:29 +0000
Subject: [PATCH] (gud-minor-mode-map): Simplify.
---
lisp/progmodes/gud.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
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)
--
2.39.5