# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1130288551 0
# Node ID 902db04fb1b3e99c2037c3b8760c1f62eff5ef2c
# Parent  885272126a8e6273f868f71834ddab06e0d3a5f3
(gud-menu-map): Only display gud-until icon
when the fringe is not available.

diff -r 885272126a8e -r 902db04fb1b3 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Wed Oct 26 01:01:34 2005 +0000
+++ b/lisp/progmodes/gud.el	Wed Oct 26 01:02:31 2005 +0000
@@ -135,13 +135,16 @@
 			       (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))