Mercurial > emacs
changeset 76927:8199e6703268
(gud-minor-mode-map): Simplify.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Tue, 03 Apr 2007 21:27:29 +0000 |
parents | d13721cc3255 |
children | e9a67d6e120b |
files | lisp/progmodes/gud.el |
diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Tue Apr 03 21:26:46 2007 +0000 +++ b/lisp/progmodes/gud.el Tue Apr 03 21:27:29 2007 +0000 @@ -231,7 +231,7 @@ ([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 @@ (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)