From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 17 Feb 2006 11:50:48 +0000 (+0000)
Subject: (gud-speedbar-buttons): Use shadow face for
X-Git-Tag: emacs-pretest-22.0.90~4067
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ec58220f82be030565fd74fa3e42d300f442e73;p=emacs.git

(gud-speedbar-buttons): Use shadow face for
out of scope variables.
(gud-speedbar-buttons): Use unless.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 1d5172a1a52..a5ed1217f94 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -467,10 +467,12 @@ required by the caller."
 					    (concat (car var) "\t" (nth 4 var))
 					    'gdb-edit-value
 					    nil
-					    (if (and (nth 5 var)
-						     gdb-show-changed-values)
-						'font-lock-warning-face
-					      nil) depth)
+		       (if gdb-show-changed-values
+			   (case (nth 5 var)
+				 (changed 'font-lock-warning-face)
+				 (out-of-scope 'shadow)
+				 (nil nil))
+			 nil) depth)
 		  (if (and (cadr var-list)
 			   (string-match (concat varnum "\\.")
 					 (cadr (cadr var-list))))
@@ -493,11 +495,10 @@ required by the caller."
 					  nil nil nil depth))))
 	      (setq var-list (cdr var-list))))
 	  (setq gdb-var-changed nil)))
-       (t (if (and (save-excursion
-		     (goto-char (point-min))
-		     (looking-at "Current Stack:"))
-		   (equal gud-last-last-frame gud-last-speedbar-stackframe))
-	      nil
+       (t (unless (and (save-excursion
+			 (goto-char (point-min))
+			 (looking-at "Current Stack:"))
+		       (equal gud-last-last-frame gud-last-speedbar-stackframe))
 	    (let ((gud-frame-list
 	    (cond ((eq minor-mode 'gdb)
 		   (gud-gdb-get-stackframe buffer))