# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1129607065 0
# Node ID db43047333614e47ee2263ed15f59b0d7ebb91c0
# Parent  92d96e2b2626dc3c5fb5fd492d99b722ed57f4db
(gud-menu-map): Correct condition for fringe.

diff -r 92d96e2b2626 -r db4304733361 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Oct 18 03:43:30 2005 +0000
+++ b/lisp/progmodes/gud.el	Tue Oct 18 03:44:25 2005 +0000
@@ -139,13 +139,13 @@
     ([remove]	menu-item "Remove Breakpoint" gud-remove
                   :enable (not gud-running)
 		  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
-				     (window-fringes))))
+				     (> (car (window-fringes)) 0))))
     ([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)
 		  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
-				     (window-fringes))))
+				     (> (car (window-fringes)) 0))))
     ([up]	menu-item "Up Stack" gud-up
 		  :enable (and (not gud-running)
 			       (memq gud-minor-mode