changeset 66846:4e016bc4dac4

(gud-menu-map): Move parentheses (again). (gud-speedbar-buttons): Match on "const char *" too.
author Nick Roberts <nickrob@snap.net.nz>
date Sun, 13 Nov 2005 09:03:36 +0000
parents 607fc7bd4896
children d2eaa58d0a1f
files lisp/progmodes/gud.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Sun Nov 13 09:02:23 2005 +0000
+++ b/lisp/progmodes/gud.el	Sun Nov 13 09:03:36 2005 +0000
@@ -137,18 +137,18 @@
                   :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 @@
 			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