diff options
| author | Nick Roberts | 2006-02-17 11:50:48 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-02-17 11:50:48 +0000 |
| commit | 2ec58220f82be030565fd74fa3e42d300f442e73 (patch) | |
| tree | 063e4fd30213f97ddcb45cd169592d410918e7d8 | |
| parent | 11de097adc6d29e60df0e66856f687379602c37f (diff) | |
| download | emacs-2ec58220f82be030565fd74fa3e42d300f442e73.tar.gz emacs-2ec58220f82be030565fd74fa3e42d300f442e73.zip | |
(gud-speedbar-buttons): Use shadow face for
out of scope variables.
(gud-speedbar-buttons): Use unless.
| -rw-r--r-- | lisp/progmodes/gud.el | 19 |
1 files 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." | |||
| 467 | (concat (car var) "\t" (nth 4 var)) | 467 | (concat (car var) "\t" (nth 4 var)) |
| 468 | 'gdb-edit-value | 468 | 'gdb-edit-value |
| 469 | nil | 469 | nil |
| 470 | (if (and (nth 5 var) | 470 | (if gdb-show-changed-values |
| 471 | gdb-show-changed-values) | 471 | (case (nth 5 var) |
| 472 | 'font-lock-warning-face | 472 | (changed 'font-lock-warning-face) |
| 473 | nil) depth) | 473 | (out-of-scope 'shadow) |
| 474 | (nil nil)) | ||
| 475 | nil) depth) | ||
| 474 | (if (and (cadr var-list) | 476 | (if (and (cadr var-list) |
| 475 | (string-match (concat varnum "\\.") | 477 | (string-match (concat varnum "\\.") |
| 476 | (cadr (cadr var-list)))) | 478 | (cadr (cadr var-list)))) |
| @@ -493,11 +495,10 @@ required by the caller." | |||
| 493 | nil nil nil depth)))) | 495 | nil nil nil depth)))) |
| 494 | (setq var-list (cdr var-list)))) | 496 | (setq var-list (cdr var-list)))) |
| 495 | (setq gdb-var-changed nil))) | 497 | (setq gdb-var-changed nil))) |
| 496 | (t (if (and (save-excursion | 498 | (t (unless (and (save-excursion |
| 497 | (goto-char (point-min)) | 499 | (goto-char (point-min)) |
| 498 | (looking-at "Current Stack:")) | 500 | (looking-at "Current Stack:")) |
| 499 | (equal gud-last-last-frame gud-last-speedbar-stackframe)) | 501 | (equal gud-last-last-frame gud-last-speedbar-stackframe)) |
| 500 | nil | ||
| 501 | (let ((gud-frame-list | 502 | (let ((gud-frame-list |
| 502 | (cond ((eq minor-mode 'gdb) | 503 | (cond ((eq minor-mode 'gdb) |
| 503 | (gud-gdb-get-stackframe buffer)) | 504 | (gud-gdb-get-stackframe buffer)) |