From 2ec58220f82be030565fd74fa3e42d300f442e73 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 17 Feb 2006 11:50:48 +0000 Subject: [PATCH] (gud-speedbar-buttons): Use shadow face for out of scope variables. (gud-speedbar-buttons): Use unless. --- lisp/progmodes/gud.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) 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)) -- 2.39.2