Mercurial > emacs
changeset 68967:87bf1f965a0f
(gdb-var-list): Update doc string.
(gdb-init-1, gdb-var-changed): Set gdb-var-changed to t initially.
(gdb-show-changed-values): Also use for out of scope variables.
(gdb-var-update-handler-1): Note if variable goes out of scope.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Fri, 17 Feb 2006 11:51:38 +0000 |
| parents | c0cb4d23d9c9 |
| children | 332c5983daad |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 13 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Fri Feb 17 11:50:48 2006 +0000 +++ b/lisp/progmodes/gdb-ui.el Fri Feb 17 11:51:38 2006 +0000 @@ -107,8 +107,9 @@ (defvar gdb-current-language nil) (defvar gdb-var-list nil "List of variables in watch window. -Each element has the form (EXPRESSION VARNUM NUMCHILD TYPE VALUE CHANGED-P).") -(defvar gdb-var-changed nil "Non-nil means that `gdb-var-list' has changed.") +Each element has the form (EXPRESSION VARNUM NUMCHILD TYPE VALUE STATUS) where +STATUS is nil (unchanged), `changed' or `out-of-scope'.") +(defvar gdb-var-changed t "Non-nil means that `gdb-var-list' has changed.") (defvar gdb-main-file nil "Source file from which program execution begins.") (defvar gdb-overlay-arrow-position nil) (defvar gdb-server-prefix nil) @@ -454,7 +455,8 @@ gdb-current-language nil gdb-frame-number nil gdb-var-list nil - gdb-var-changed nil + ;; Set initially to t to force update. + gdb-var-changed t gdb-first-post-prompt t gdb-prompting nil gdb-input-queue nil @@ -739,8 +741,9 @@ 'ignore)))) (defcustom gdb-show-changed-values t - "If non-nil highlight values that have recently changed in the speedbar. -The highlighting is done with `font-lock-warning-face'." + "If non-nil change the face of out of scope variables and changed values. +Out of scope variables are suppressed with `shadow' face. +Changed values are highlighted with the face `font-lock-warning-face'." :type 'boolean :group 'gud :version "22.1") @@ -3049,11 +3052,11 @@ (dolist (var gdb-var-list) (if (string-equal varnum (cadr var)) (progn - (setcar (nthcdr 5 var) t) - (setcar (nthcdr 4 var) - (if (string-equal (match-string 3) "true") - (read (match-string 2)) - "*changed*")) + (if (string-equal (match-string 3) "false") + (setcar (nthcdr 5 var) 'out-of-scope) + (setcar (nthcdr 5 var) 'changed) + (setcar (nthcdr 4 var) + (read (match-string 2)))) (setcar (nthcdr num gdb-var-list) var) (throw 'var-found1 nil))) (setq num (+ num 1))))))