(gud-menu-map): Only display un-intuitive

gud-break and gud-remove icons when the fringe is not available.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 47d74f00aec798059596bc9eb15edd570136b70f..12c7e1c0ba00ed35209a58a506283f11076076db 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -137,11 +137,15 @@ Used to grey out relevant togolbar icons.")
                   :enable (and (not gud-running)
                               (memq gud-minor-mode '(gdbmi gdba gdb perldb))))
     ([remove]  menu-item "Remove Breakpoint" gud-remove
-                  :enable (not gud-running))
+                  :enable (not gud-running)
+                 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
+                                    (window-fringes))))
     ([tbreak]  menu-item "Temporary Breakpoint" gud-tbreak
                  :enable (memq gud-minor-mode '(gdbmi gdba gdb sdb xdb bashdb)))
     ([break]   menu-item "Set Breakpoint" gud-break
-                  :enable (not gud-running))
+                  :enable (not gud-running)
+                 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
+                                    (window-fringes))))
     ([up]      menu-item "Up Stack" gud-up
                  :enable (and (not gud-running)
                               (memq gud-minor-mode