diff options
| author | Nick Roberts | 2006-03-07 10:43:19 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-03-07 10:43:19 +0000 |
| commit | 19bf3d3fa4b714b62170276250441bd726a3f625 (patch) | |
| tree | 86f8fe7c88248f3acca4ebc4dfec1b699017eb32 | |
| parent | d35e063ae358e61658b14cf25ce5af0944f59154 (diff) | |
| download | emacs-19bf3d3fa4b714b62170276250441bd726a3f625.tar.gz emacs-19bf3d3fa4b714b62170276250441bd726a3f625.zip | |
(gud-speedbar-buttons): Allow pointers to
be edited and use font-lock-warning-face for any changes.
| -rw-r--r-- | lisp/progmodes/gud.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index b06d95e6b99..41bb24f9e61 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -493,11 +493,15 @@ required by the caller." | |||
| 493 | 'bracket char | 493 | 'bracket char |
| 494 | 'gdb-speedbar-expand-node varnum | 494 | 'gdb-speedbar-expand-node varnum |
| 495 | (concat expr "\t" type "\t" value) | 495 | (concat expr "\t" type "\t" value) |
| 496 | (if (or parent status) | 496 | (if (or parent (eq status 'out-of-scope)) |
| 497 | nil 'gdb-edit-value) | 497 | nil 'gdb-edit-value) |
| 498 | nil | 498 | nil |
| 499 | (if (and (or parent (eq status 'out-of-scope)) | 499 | (if gdb-show-changed-values |
| 500 | gdb-show-changed-values) 'shadow t) | 500 | (or parent (case status |
| 501 | (changed 'font-lock-warning-face) | ||
| 502 | (out-of-scope 'shadow) | ||
| 503 | (t t))) | ||
| 504 | t) | ||
| 501 | depth) | 505 | depth) |
| 502 | (speedbar-make-tag-line | 506 | (speedbar-make-tag-line |
| 503 | 'bracket char | 507 | 'bracket char |