diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2004-03-17 23:53:00 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2004-03-17 23:53:00 +0000 |
| commit | ce1b6ae32ed139463b37ee8b6172c5ee128a829e (patch) | |
| tree | e5732967cbaee0efbd694651283ed394377fd813 /lisp/gdb-ui.el | |
| parent | feaa7f5c40ca1a1bde54d39b792f52fd97a02469 (diff) | |
| download | emacs-ce1b6ae32ed139463b37ee8b6172c5ee128a829e.tar.gz | |
(gdb-var-list-children-handler): Handle C++ classes
properly for watching in speedbar.
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index 456f6b70286..1ae5ce2cfce 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -251,7 +251,7 @@ speedbar." `(lambda () (gdb-var-list-children-handler ,varnum))))) (defconst gdb-var-list-children-regexp -"name=\"\\(.*?\\)\",exp=\"\\(.*?\\)\",numchild=\"\\(.*?\\)\",type=\"\\(.*?\\)\"") +"name=\"\\(.*?\\)\",exp=\"\\(.*?\\)\",numchild=\"\\(.*?\\)\"") (defun gdb-var-list-children-handler (varnum) (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer) @@ -266,9 +266,9 @@ speedbar." (let ((varchild (list (match-string 2) (match-string 1) (match-string 3) - (match-string 5) - (match-string 4) - nil))) + nil nil nil))) + (if (looking-at ",type=\"\\(.*?\\)\"") + (setcar (nthcdr 3 varchild) (match-string 1))) (dolist (var1 gdb-var-list) (if (string-equal (cadr var1) (cadr varchild)) (throw 'child-already-watched nil))) |