From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 7 Oct 2005 02:45:56 +0000 (+0000)
Subject: (gud-menu-map): Only display un-intuitive
X-Git-Tag: emacs-pretest-22.0.90~6782
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccd91c09784f9c52d4d13b7f7062af26e762b6a3;p=emacs.git

(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 47d74f00aec..12c7e1c0ba0 100644
--- 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