[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -u emacs/lisp/progmodes/gud.el:1.92 emacs/lisp/progmodes/gud.el:1.93
--- emacs/lisp/progmodes/gud.el:1.92    Mon Feb 20 21:47:56 2006
+++ emacs/lisp/progmodes/gud.el Thu Feb 23 07:40:25 2006
@@ -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