Mercurial > emacs

comparison lisp/progmodes/gud.el @ 76927:8199e6703268

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-minor-mode-map): Simplify.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 03 Apr 2007 21:27:29 +0000
parents ecc6f5a2f4cb
children 1248605d9e44
comparison
equal deleted inserted replaced
76926:d13721cc3255 76927:8199e6703268
229 ([menu-bar next] 229 ([menu-bar next]
230 . (,(propertize "next" 'face 'font-lock-doc-face) . gud-next)) 230 . (,(propertize "next" 'face 'font-lock-doc-face) . gud-next))
231 ([menu-bar until] menu-item 231 ([menu-bar until] menu-item
232 ,(propertize "until" 'face 'font-lock-doc-face) gud-until 232 ,(propertize "until" 'face 'font-lock-doc-face) gud-until
233 :visible (memq gud-minor-mode '(gdbmi gdba gdb perldb))) 233 :visible (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
234 ([menu-bar cont] menu-item 234 ([menu-bar cont] menu-item
235 ,(propertize "cont" 'face 'font-lock-doc-face) gud-cont 235 ,(propertize "cont" 'face 'font-lock-doc-face) gud-cont
236 :visible (not (eq gud-minor-mode 'gdba))) 236 :visible (not (eq gud-minor-mode 'gdba)))
237 ([menu-bar run] menu-item 237 ([menu-bar run] menu-item
238 ,(propertize "run" 'face 'font-lock-doc-face) gud-run 238 ,(propertize "run" 'face 'font-lock-doc-face) gud-run
239 :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb))) 239 :visible (memq gud-minor-mode '(gdbmi gdb dbx jdb)))
241 ,(propertize "go" 'face 'font-lock-doc-face) gud-go 241 ,(propertize "go" 'face 'font-lock-doc-face) gud-go
242 :visible (and (not gud-running) 242 :visible (and (not gud-running)
243 (eq gud-minor-mode 'gdba))) 243 (eq gud-minor-mode 'gdba)))
244 ([menu-bar stop] menu-item 244 ([menu-bar stop] menu-item
245 ,(propertize "stop" 'face 'font-lock-doc-face) gud-stop-subjob 245 ,(propertize "stop" 'face 'font-lock-doc-face) gud-stop-subjob
246 :visible (or (not (eq gud-minor-mode 'gdba)) 246 :visible (or gud-running
247 (and gud-running 247 (not (eq gud-minor-mode 'gdba))))
248 (eq gud-minor-mode 'gdba))))
249 ([menu-bar print] 248 ([menu-bar print]
250 . (,(propertize "print" 'face 'font-lock-doc-face) . gud-print)) 249 . (,(propertize "print" 'face 'font-lock-doc-face) . gud-print))
251 ([menu-bar tools] . undefined) 250 ([menu-bar tools] . undefined)
252 ([menu-bar buffer] . undefined) 251 ([menu-bar buffer] . undefined)
253 ([menu-bar options] . undefined) 252 ([menu-bar options] . undefined)