From 04d3b870df86265e4ade20f3a506fbee478c0e70 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 18 Oct 2005 03:44:25 +0000 Subject: [PATCH] (gud-menu-map): Correct condition for fringe. --- lisp/progmodes/gud.el | 4 ++-- 1 file 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 -- 2.39.5