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) |