Mercurial > emacs

changeset 69109:5f11fee2087b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-speedbar-buttons): Use shadow face properly.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 23 Feb 2006 07:40:25 +0000
parents 8ff0077b3342
children 9d86d35acf33
files lisp/progmodes/gud.el
diffstat 1 files changed, 7 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gud.el	Thu Feb 23 07:38:57 2006 +0000
+++ b/lisp/progmodes/gud.el	Thu Feb 23 07:40:25 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