# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1131872616 0
# Node ID 4e016bc4dac45f93c963402f4e93eff5b70e326c
# Parent  607fc7bd4896da02429df924c95074ef477ca5a2
(gud-menu-map):  Move parentheses (again).
(gud-speedbar-buttons): Match on "const char *" too.

diff -r 607fc7bd4896 -r 4e016bc4dac4 lisp/progmodes/gud.el
--- 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