Mercurial > emacs
changeset 68966:c0cb4d23d9c9
(gud-speedbar-buttons): Use shadow face for
out of scope variables.
(gud-speedbar-buttons): Use unless.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Fri, 17 Feb 2006 11:50:48 +0000 |
| parents | 22fce4b36651 |
| children | 87bf1f965a0f |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Fri Feb 17 11:49:39 2006 +0000 +++ b/lisp/progmodes/gud.el Fri Feb 17 11:50:48 2006 +0000 @@ -467,10 +467,12 @@ (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 @@ 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))