diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-10-26 01:02:31 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-10-26 01:02:31 +0000 |
| commit | 3cae51964d23e83cef93e6d124ee0b19d92b027b (patch) | |
| tree | dc94a09c1152533f00fef492d1b2b48394657cf9 /lisp | |
| parent | 9317517c79bb14815aed8a795372bc8145d82d26 (diff) | |
| download | emacs-3cae51964d23e83cef93e6d124ee0b19d92b027b.tar.gz emacs-3cae51964d23e83cef93e6d124ee0b19d92b027b.tar.bz2 emacs-3cae51964d23e83cef93e6d124ee0b19d92b027b.zip | |
(gud-menu-map): Only display gud-until icon
when the fringe is not available.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gud.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index de050cf696a..a0c58260839 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -135,13 +135,16 @@ Used to grey out relevant togolbar icons.") (memq gud-minor-mode '(gdbmi gdba gdb dbx jdb)))) ([until] menu-item "Continue to selection" gud-until :enable (and (not gud-running) - (memq gud-minor-mode '(gdbmi gdba gdb perldb)))) + (memq gud-minor-mode '(gdbmi gdba gdb perldb))) + :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) + (> (car (window-fringes)) 0)))) ([remove] menu-item "Remove Breakpoint" gud-remove :enable (not gud-running) :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) (> (car (window-fringes)) 0)))) ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak - :enable (memq gud-minor-mode '(gdbmi gdba gdb sdb xdb bashdb))) + :enable (memq gud-minor-mode + '(gdbmi gdba gdb sdb xdb bashdb))) ([break] menu-item "Set Breakpoint" gud-break :enable (not gud-running) :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) |