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

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 016c0905165..8f962381d24 100644
--- 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