From 3525a3ee8434f1e1107c74bf8b4b45070d97d096 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 15 Nov 2005 22:37:49 +0000 Subject: [PATCH] (gud-menu-map): Make visibility of stop and go buttons complementary. --- lisp/progmodes/gud.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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))) -- 2.39.2