(gud-menu-map): Only display gud-until icon

when the fringe is not available.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index de050cf696a35dcc90bb77d0cf32cfc4dca2ce9d..a0c58260839bd0858684cd5b64029b3b887459eb 100644 (file)
--- 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))