(gud-menu-map): Correct condition for fringe.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 016c09051659e1484fc5c695de09be8e68140609..8f962381d24f998a8cadebd555f95227d415feec 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -139,13 +139,13 @@ Used to grey out relevant togolbar icons.")
     ([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