aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2005-11-13 09:03:36 +0000
committerNick Roberts2005-11-13 09:03:36 +0000
commit6d41699de09bca2f83e6ec26d724082290d9e3c1 (patch)
tree318cb111e2ae54e7a37bdc8ea45342d68e5ebce6
parent9e772f982cce813da1275dae9120d4e003b69ec1 (diff)
downloademacs-6d41699de09bca2f83e6ec26d724082290d9e3c1.tar.gz
emacs-6d41699de09bca2f83e6ec26d724082290d9e3c1.zip
(gud-menu-map): Move parentheses (again).
(gud-speedbar-buttons): Match on "const char *" too.
-rw-r--r--lisp/progmodes/gud.el8
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.")
137 :enable (and (not gud-running) 137 :enable (and (not gud-running)
138 (memq gud-minor-mode '(gdbmi gdba gdb perldb))) 138 (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
139 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 139 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
140 (> (car (window-fringes 0)))))) 140 (> (car (window-fringes)) 0))))
141 ([remove] menu-item "Remove Breakpoint" gud-remove 141 ([remove] menu-item "Remove Breakpoint" gud-remove
142 :enable (not gud-running) 142 :enable (not gud-running)
143 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 143 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
144 (> (car (window-fringes 0)))))) 144 (> (car (window-fringes)) 0))))
145 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak 145 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
146 :enable (memq gud-minor-mode 146 :enable (memq gud-minor-mode
147 '(gdbmi gdba gdb sdb xdb bashdb))) 147 '(gdbmi gdba gdb sdb xdb bashdb)))
148 ([break] menu-item "Set Breakpoint" gud-break 148 ([break] menu-item "Set Breakpoint" gud-break
149 :enable (not gud-running) 149 :enable (not gud-running)
150 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 150 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
151 (> (car (window-fringes 0)))))) 151 (> (car (window-fringes)) 0))))
152 ([up] menu-item "Up Stack" gud-up 152 ([up] menu-item "Up Stack" gud-up
153 :enable (and (not gud-running) 153 :enable (and (not gud-running)
154 (memq gud-minor-mode 154 (memq gud-minor-mode
@@ -424,7 +424,7 @@ required by the caller."
424 start (1+ (match-beginning 0)))) 424 start (1+ (match-beginning 0))))
425 (if (or (equal (nth 2 var) "0") 425 (if (or (equal (nth 2 var) "0")
426 (and (equal (nth 2 var) "1") 426 (and (equal (nth 2 var) "1")
427 (equal (nth 3 var) "char *"))) 427 (string-match "char \\*" (nth 3 var))))
428 (speedbar-make-tag-line 'bracket ?? nil nil 428 (speedbar-make-tag-line 'bracket ?? nil nil
429 (concat (car var) "\t" (nth 4 var)) 429 (concat (car var) "\t" (nth 4 var))
430 'gdb-edit-value 430 'gdb-edit-value