Mercurial > emacs
comparison lisp/progmodes/gud.el @ 90600:84dd84b43e1b
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 423-426)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 131-133)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-109
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 06 Sep 2006 07:30:39 +0000 |
parents | 7f3f771c85fa eea30f9dbecd |
children | f1d13e615070 |
comparison
equal
deleted
inserted
replaced
90599:c358d0861b16 | 90600:84dd84b43e1b |
---|---|
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 (varnum (car var)) (expr (nth 1 var)) | 458 (varnum (car var)) (expr (nth 1 var)) |
459 (type (nth 3 var)) (value (nth 4 var)) | 459 (type (if (nth 3 var) (nth 3 var) " ")) |
460 (status (nth 5 var))) | 460 (value (nth 4 var)) (status (nth 5 var))) |
461 (put-text-property | 461 (put-text-property |
462 0 (length expr) 'face font-lock-variable-name-face expr) | 462 0 (length expr) 'face font-lock-variable-name-face expr) |
463 (put-text-property | 463 (put-text-property |
464 0 (length type) 'face font-lock-type-face type) | 464 0 (length type) 'face font-lock-type-face type) |
465 (while (string-match "\\." varnum start) | 465 (while (string-match "\\." varnum start) |