1 files 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