diff options
| author | Nick Roberts | 2005-11-13 09:03:36 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-11-13 09:03:36 +0000 |
| commit | 6d41699de09bca2f83e6ec26d724082290d9e3c1 (patch) | |
| tree | 318cb111e2ae54e7a37bdc8ea45342d68e5ebce6 | |
| parent | 9e772f982cce813da1275dae9120d4e003b69ec1 (diff) | |
| download | emacs-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.el | 8 |
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 |