]> code.delx.au - gnu-emacs/commitdiff
(gud-menu-map): Correct condition for fringe.
authorNick Roberts <nickrob@snap.net.nz>
Tue, 18 Oct 2005 03:44:25 +0000 (03:44 +0000)
committerNick Roberts <nickrob@snap.net.nz>
Tue, 18 Oct 2005 03:44:25 +0000 (03:44 +0000)
lisp/progmodes/gud.el

index 016c09051659e1484fc5c695de09be8e68140609..8f962381d24f998a8cadebd555f95227d415feec 100644 (file)
@@ -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