mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(gud-speedbar-buttons): Use shadow face for

Browse Source 
out of scope variables.
(gud-speedbar-buttons): Use unless.
This commit is contained in:
Nick Roberts 2006-02-17 11:50:48 +00:00
parent 11de097adc
commit 2ec58220f8
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/progmodes/gud.el
View File

@ -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))