Mercurial > emacs
comparison lisp/progmodes/gud.el @ 69476:1db3b0eac5a2
(gud-speedbar-buttons): Follow change to gdb-var-list.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Tue, 14 Mar 2006 20:27:57 +0000 |
parents | b7c903d07d4f |
children | 64cdad743e23 |
comparison
equal
deleted
inserted
replaced
69475:3f8495af82a4 | 69476:1db3b0eac5a2 |
---|---|
172 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) | 172 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) |
173 ([down] menu-item "Down Stack" gud-down | 173 ([down] menu-item "Down Stack" gud-down |
174 :enable (and (not gud-running) | 174 :enable (and (not gud-running) |
175 (memq gud-minor-mode | 175 (memq gud-minor-mode |
176 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) | 176 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) |
177 ([pp] menu-item "Print the emacs s-expression" gud-pp | 177 ([pp] menu-item "Print S-expression" gud-pp |
178 :enable (and (not gud-running) | 178 :enable (and (not gud-running) |
179 gdb-active-process) | 179 gdb-active-process) |
180 :visible (and (string-equal | 180 :visible (and (string-equal |
181 (buffer-local-value | 181 (buffer-local-value |
182 'gud-target-name gud-comint-buffer) "emacs") | 182 'gud-target-name gud-comint-buffer) "emacs") |
232 (gud-pp . "gud/pp") | 232 (gud-pp . "gud/pp") |
233 (gud-watch . "gud/watch") | 233 (gud-watch . "gud/watch") |
234 (gud-run . "gud/run") | 234 (gud-run . "gud/run") |
235 (gud-go . "gud/go") | 235 (gud-go . "gud/go") |
236 (gud-stop-subjob . "gud/stop") | 236 (gud-stop-subjob . "gud/stop") |
237 ;; gud-s, gud-si etc. instead of gud-step, | |
238 ;; gud-stepi, to avoid file-name clashes on DOS | |
239 ;; 8+3 filesystems. | |
240 (gud-cont . "gud/cont") | 237 (gud-cont . "gud/cont") |
241 (gud-until . "gud/until") | 238 (gud-until . "gud/until") |
242 (gud-next . "gud/next") | 239 (gud-next . "gud/next") |
243 (gud-step . "gud/step") | 240 (gud-step . "gud/step") |
244 (gud-finish . "gud/finish") | 241 (gud-finish . "gud/finish") |
453 (if gdb-speedbar-auto-raise | 450 (if gdb-speedbar-auto-raise |
454 (raise-frame speedbar-frame)) | 451 (raise-frame speedbar-frame)) |
455 (let ((var-list gdb-var-list) parent) | 452 (let ((var-list gdb-var-list) parent) |
456 (while var-list | 453 (while var-list |
457 (let* (char (depth 0) (start 0) (var (car var-list)) | 454 (let* (char (depth 0) (start 0) (var (car var-list)) |
458 (expr (car var)) (varnum (nth 1 var)) | 455 (varnum (car var)) (expr (nth 1 var)) |
459 (type (nth 3 var)) (value (nth 4 var)) | 456 (type (nth 3 var)) (value (nth 4 var)) |
460 (status (nth 5 var))) | 457 (status (nth 5 var))) |
461 (put-text-property | 458 (put-text-property |
462 0 (length expr) 'face font-lock-variable-name-face expr) | 459 0 (length expr) 'face font-lock-variable-name-face expr) |
463 (put-text-property | 460 (put-text-property |
481 (out-of-scope 'shadow) | 478 (out-of-scope 'shadow) |
482 (t t))) | 479 (t t))) |
483 t) | 480 t) |
484 depth) | 481 depth) |
485 (if (eq status 'out-of-scope) (setq parent 'shadow)) | 482 (if (eq status 'out-of-scope) (setq parent 'shadow)) |
486 (if (and (cadr var-list) | 483 (if (and (nth 1 var-list) |
487 (string-match (concat varnum "\\.") | 484 (string-match (concat varnum "\\.") |
488 (cadr (cadr var-list)))) | 485 (car (nth 1 var-list)))) |
489 (setq char ?-) | 486 (setq char ?-) |
490 (setq char ?+)) | 487 (setq char ?+)) |
491 (if (string-match "\\*$" type) | 488 (if (string-match "\\*$" type) |
492 (speedbar-make-tag-line | 489 (speedbar-make-tag-line |
493 'bracket char | 490 'bracket char |