# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1128653156 0
# Node ID 46ec04efd3ccad96144e67d7a8625fad032ba4b6
# Parent  ab855ff0465811f7f12d337309c57db0a516edec
(gud-menu-map): Only display un-intuitive
gud-break and gud-remove icons when the fringe is not available.

diff -r ab855ff04658 -r 46ec04efd3cc lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Fri Oct 07 02:43:39 2005 +0000
+++ b/lisp/progmodes/gud.el	Fri Oct 07 02:45:56 2005 +0000
@@ -137,11 +137,15 @@
                   :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