From ccd91c09784f9c52d4d13b7f7062af26e762b6a3 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 7 Oct 2005 02:45:56 +0000 Subject: [PATCH] (gud-menu-map): Only display un-intuitive gud-break and gud-remove icons when the fringe is not available. --- lisp/progmodes/gud.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 47d74f00aec..12c7e1c0ba0 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -137,11 +137,15 @@ Used to grey out relevant togolbar icons.") :enable (and (not gud-running) (memq gud-minor-mode '(gdbmi gdba gdb perldb)))) ([remove] menu-item "Remove Breakpoint" gud-remove - :enable (not gud-running)) + :enable (not gud-running) + :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) + (window-fringes)))) ([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)) + :enable (not gud-running) + :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) + (window-fringes)))) ([up] menu-item "Up Stack" gud-up :enable (and (not gud-running) (memq gud-minor-mode -- 2.39.5