From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 7 Mar 2006 10:43:19 +0000 (+0000)
Subject: (gud-speedbar-buttons): Allow pointers to
X-Git-Tag: emacs-pretest-22.0.90~3748
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19bf3d3fa4b714b62170276250441bd726a3f625;p=emacs.git

(gud-speedbar-buttons): Allow pointers to
be edited and use font-lock-warning-face for any changes.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index b06d95e6b99..41bb24f9e61 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -493,11 +493,15 @@ required by the caller."
 		       'bracket char
 		       'gdb-speedbar-expand-node varnum
 		       (concat expr "\t" type "\t" value)
-		       (if (or parent status)
+		       (if (or parent (eq status 'out-of-scope))
 			 nil 'gdb-edit-value)
 		       nil
-		       (if (and (or parent (eq status 'out-of-scope))
-				gdb-show-changed-values) 'shadow t)
+		       (if gdb-show-changed-values
+			   (or parent (case status
+					    (changed 'font-lock-warning-face)
+					    (out-of-scope 'shadow)
+					    (t t)))
+			 t)
 		       depth)
 		    (speedbar-make-tag-line
 		     'bracket char