diff options
Diffstat (limited to 'lisp')
| -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 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))) |