diff options
| author | Nick Roberts | 2005-10-17 21:09:38 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-10-17 21:09:38 +0000 |
| commit | 695bdd01076af84f6caa38feddf5309162c925ca (patch) | |
| tree | e3b557820f7c998ed8f91c199ad62b1a98fbfa07 /lisp | |
| parent | 425fbda64179ba67d17fa7ededac069861b79461 (diff) | |
| download | emacs-695bdd01076af84f6caa38feddf5309162c925ca.tar.gz emacs-695bdd01076af84f6caa38feddf5309162c925ca.zip | |
(gdb-var-create-handler): Make watch
expressions display in speedbar for all buffers when debugging.
(gdb-speedbar-expand-node): Ensure node contraction is always
updated.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 852cd8deb88..bf09669083d 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el | |||
| @@ -437,6 +437,9 @@ Also display the main routine in the disassembly buffer if present." | |||
| 437 | nil nil))) | 437 | nil nil))) |
| 438 | (push var gdb-var-list) | 438 | (push var gdb-var-list) |
| 439 | (speedbar 1) | 439 | (speedbar 1) |
| 440 | (unless (string-equal | ||
| 441 | speedbar-initial-expansion-list-name "GUD") | ||
| 442 | (speedbar-change-initial-expansion-list "GUD")) | ||
| 440 | (if (equal (nth 2 var) "0") | 443 | (if (equal (nth 2 var) "0") |
| 441 | (gdb-enqueue-input | 444 | (gdb-enqueue-input |
| 442 | (list | 445 | (list |
| @@ -600,7 +603,9 @@ INDENT is the current indentation depth." | |||
| 600 | (dolist (var gdb-var-list) | 603 | (dolist (var gdb-var-list) |
| 601 | (if (string-match (concat token "\\.") (nth 1 var)) | 604 | (if (string-match (concat token "\\.") (nth 1 var)) |
| 602 | (setq gdb-var-list (delq var gdb-var-list)))) | 605 | (setq gdb-var-list (delq var gdb-var-list)))) |
| 603 | (setq gdb-var-changed t)))) | 606 | (setq gdb-var-changed t) |
| 607 | (with-current-buffer gud-comint-buffer | ||
| 608 | (speedbar-timer-fn))))) | ||
| 604 | 609 | ||
| 605 | (defun gdb-get-target-string () | 610 | (defun gdb-get-target-string () |
| 606 | (with-current-buffer gud-comint-buffer | 611 | (with-current-buffer gud-comint-buffer |