Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Fri Feb 24 06:32:18 2006 +0000 +++ b/lisp/progmodes/gud.el Fri Feb 24 08:08:56 2006 +0000 @@ -456,7 +456,8 @@ (while var-list (let* (char (depth 0) (start 0) (var (car var-list)) (expr (car var)) (varnum (nth 1 var)) - (type (nth 3 var)) (status (nth 5 var))) + (type (nth 3 var)) (value (nth 4 var)) + (status (nth 5 var))) (put-text-property 0 (length expr) 'face font-lock-variable-name-face expr) (put-text-property @@ -470,7 +471,7 @@ (string-match "char \\*$" type))) (speedbar-make-tag-line 'bracket ?? nil nil - (concat expr "\t" (nth 4 var)) + (concat expr "\t" value) (if (or parent (eq status 'out-of-scope)) nil 'gdb-edit-value) nil @@ -491,14 +492,12 @@ (speedbar-make-tag-line 'bracket char 'gdb-speedbar-expand-node varnum - (concat expr "\t" - type "\t" - (nth 4 var)) - (if (or parent status 'out-of-scope) + (concat expr "\t" type "\t" value) + (if (or parent status) nil 'gdb-edit-value) nil - (if (and (or parent status) gdb-show-changed-values) - 'shadow t) + (if (and (or parent (eq status 'out-of-scope)) + gdb-show-changed-values) 'shadow t) depth) (speedbar-make-tag-line 'bracket char