Mercurial > emacs
comparison lisp/progmodes/gud.el @ 90317:34c8b755296d
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-23
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 113-118)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 38-39)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 24 Feb 2006 08:08:56 +0000 |
parents | d1c5430c5bff 5f11fee2087b |
children | 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
90316:458ed0c8c4c3 | 90317:34c8b755296d |
---|---|
454 (raise-frame speedbar-frame)) | 454 (raise-frame speedbar-frame)) |
455 (let ((var-list gdb-var-list) parent) | 455 (let ((var-list gdb-var-list) parent) |
456 (while var-list | 456 (while var-list |
457 (let* (char (depth 0) (start 0) (var (car var-list)) | 457 (let* (char (depth 0) (start 0) (var (car var-list)) |
458 (expr (car var)) (varnum (nth 1 var)) | 458 (expr (car var)) (varnum (nth 1 var)) |
459 (type (nth 3 var)) (status (nth 5 var))) | 459 (type (nth 3 var)) (value (nth 4 var)) |
460 (status (nth 5 var))) | |
460 (put-text-property | 461 (put-text-property |
461 0 (length expr) 'face font-lock-variable-name-face expr) | 462 0 (length expr) 'face font-lock-variable-name-face expr) |
462 (put-text-property | 463 (put-text-property |
463 0 (length type) 'face font-lock-type-face type) | 464 0 (length type) 'face font-lock-type-face type) |
464 (while (string-match "\\." varnum start) | 465 (while (string-match "\\." varnum start) |
468 (if (or (equal (nth 2 var) "0") | 469 (if (or (equal (nth 2 var) "0") |
469 (and (equal (nth 2 var) "1") | 470 (and (equal (nth 2 var) "1") |
470 (string-match "char \\*$" type))) | 471 (string-match "char \\*$" type))) |
471 (speedbar-make-tag-line | 472 (speedbar-make-tag-line |
472 'bracket ?? nil nil | 473 'bracket ?? nil nil |
473 (concat expr "\t" (nth 4 var)) | 474 (concat expr "\t" value) |
474 (if (or parent (eq status 'out-of-scope)) | 475 (if (or parent (eq status 'out-of-scope)) |
475 nil 'gdb-edit-value) | 476 nil 'gdb-edit-value) |
476 nil | 477 nil |
477 (if gdb-show-changed-values | 478 (if gdb-show-changed-values |
478 (or parent (case status | 479 (or parent (case status |
489 (setq char ?+)) | 490 (setq char ?+)) |
490 (if (string-match "\\*$" type) | 491 (if (string-match "\\*$" type) |
491 (speedbar-make-tag-line | 492 (speedbar-make-tag-line |
492 'bracket char | 493 'bracket char |
493 'gdb-speedbar-expand-node varnum | 494 'gdb-speedbar-expand-node varnum |
494 (concat expr "\t" | 495 (concat expr "\t" type "\t" value) |
495 type "\t" | 496 (if (or parent status) |
496 (nth 4 var)) | |
497 (if (or parent status 'out-of-scope) | |
498 nil 'gdb-edit-value) | 497 nil 'gdb-edit-value) |
499 nil | 498 nil |
500 (if (and (or parent status) gdb-show-changed-values) | 499 (if (and (or parent (eq status 'out-of-scope)) |
501 'shadow t) | 500 gdb-show-changed-values) 'shadow t) |
502 depth) | 501 depth) |
503 (speedbar-make-tag-line | 502 (speedbar-make-tag-line |
504 'bracket char | 503 'bracket char |
505 'gdb-speedbar-expand-node varnum | 504 'gdb-speedbar-expand-node varnum |
506 (concat expr "\t" type) | 505 (concat expr "\t" type) |