diff options
author | Nick Roberts <[email protected]> | 2005-11-15 22:37:49 +0000 |
---|---|---|
committer | Nick Roberts <[email protected]> | 2005-11-15 22:37:49 +0000 |
commit | 3525a3ee8434f1e1107c74bf8b4b45070d97d096 (patch) | |
tree | 9519cad7f03bd1bd21322708d65030c9f2fa2a62 | |
parent | 18468a1ea7f9f8e4ba8c3453c179e4770466b5fa (diff) |
(gud-menu-map): Make visibility of stop and
go buttons complementary.
-rw-r--r-- | lisp/progmodes/gud.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 464f16ebe5..196b69fe57 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))) |