diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2007-04-03 21:27:29 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2007-04-03 21:27:29 +0000 |
commit | d2b3c7dbb8d7ab39de31e6011b2224183b9110a0 (patch) | |
tree | fc139ebc01a4670aaefdfa829c5659ab78d66bff | |
parent | 7eb74b2a871ebcb67dd5f910c1074f4ce59e482a (diff) | |
download | emacs-d2b3c7dbb8d7ab39de31e6011b2224183b9110a0.tar.gz |
(gud-minor-mode-map): Simplify.
-rw-r--r-- | lisp/progmodes/gud.el | 7 |
1 files 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) |