From 6d41699de09bca2f83e6ec26d724082290d9e3c1 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 13 Nov 2005 09:03:36 +0000 Subject: [PATCH] (gud-menu-map): Move parentheses (again). (gud-speedbar-buttons): Match on "const char *" too. --- lisp/progmodes/gud.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 64c52101fd6..d70520bce47 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -137,18 +137,18 @@ Used to grey out relevant togolbar icons.") :enable (and (not gud-running) (memq gud-minor-mode '(gdbmi gdba gdb perldb))) :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) - (> (car (window-fringes 0)))))) + (> (car (window-fringes)) 0)))) ([remove] menu-item "Remove Breakpoint" gud-remove :enable (not gud-running) :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) - (> (car (window-fringes 0)))))) + (> (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)) - (> (car (window-fringes 0)))))) + (> (car (window-fringes)) 0)))) ([up] menu-item "Up Stack" gud-up :enable (and (not gud-running) (memq gud-minor-mode @@ -424,7 +424,7 @@ required by the caller." start (1+ (match-beginning 0)))) (if (or (equal (nth 2 var) "0") (and (equal (nth 2 var) "1") - (equal (nth 3 var) "char *"))) + (string-match "char \\*" (nth 3 var)))) (speedbar-make-tag-line 'bracket ?? nil nil (concat (car var) "\t" (nth 4 var)) 'gdb-edit-value -- 2.39.5