diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2003-11-29 15:51:24 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2003-11-29 15:51:24 +0000 |
| commit | 9f051821c90d4712ccfe9acfb42e7153971c08f5 (patch) | |
| tree | 5c4b1f24fcbef0ca5fb82f7353b0a9829b29ccec | |
| parent | be17ba9f218eb088b69460db2b3eb4bab6951ecb (diff) | |
| download | emacs-9f051821c90d4712ccfe9acfb42e7153971c08f5.tar.gz | |
(gud-watch, gdb-var-create-handler)
(gdb-var-list-children, gdb-var-list-children-handler)
(gdb-var-update-handler, gdb-var-delete): Add server prefix to the
gdb commands that use mi to keep them out of the command history.
| -rw-r--r-- | lisp/gdb-ui.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index b1bb026aef7..8166edd83c7 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -185,7 +185,7 @@ The following interactive lisp functions help control operation : (dolist (var gdb-var-list) (if (string-equal expr (car var)) (throw 'already-watched nil))) (gdb-enqueue-input - (list (concat "interpreter mi \"-var-create - * " expr "\"\n") + (list (concat "server interpreter mi \"-var-create - * " expr "\"\n") `(lambda () (gdb-var-create-handler ,expr)))))) (select-window (get-buffer-window gud-comint-buffer))) @@ -205,7 +205,7 @@ The following interactive lisp functions help control operation : (speedbar 1) (if (equal (nth 2 var) "0") (gdb-enqueue-input - (list (concat "interpreter mi \"-var-evaluate-expression " + (list (concat "server interpreter mi \"-var-evaluate-expression " (nth 1 var) "\"\n") `(lambda () (gdb-var-evaluate-expression-handler ,(nth 1 var))))) @@ -223,8 +223,7 @@ The following interactive lisp functions help control operation : (dolist (var gdb-var-list) (if (string-equal varnum (cadr var)) (progn - (setcar (nthcdr 4 var) - (match-string-no-properties 1)) + (setcar (nthcdr 4 var) (match-string-no-properties 1)) (setcar (nthcdr num gdb-var-list) var) (throw 'var-found nil))) (setq num (+ num 1)))))) @@ -232,7 +231,7 @@ The following interactive lisp functions help control operation : (defun gdb-var-list-children (varnum) (gdb-enqueue-input - (list (concat "interpreter mi \"-var-list-children " varnum "\"\n") + (list (concat "server interpreter mi \"-var-list-children " varnum "\"\n") `(lambda () (gdb-var-list-children-handler ,varnum))))) (defconst gdb-var-list-children-regexp @@ -260,7 +259,8 @@ The following interactive lisp functions help control operation : (if (equal (nth 2 varchild) "0") (gdb-enqueue-input (list - (concat "interpreter mi \"-var-evaluate-expression " + (concat + "server interpreter mi \"-var-evaluate-expression " (nth 1 varchild) "\"\n") `(lambda () (gdb-var-evaluate-expression-handler ,(nth 1 varchild))))))))) @@ -283,7 +283,7 @@ The following interactive lisp functions help control operation : (while (re-search-forward gdb-var-update-regexp nil t) (let ((varnum (match-string-no-properties 1))) (gdb-enqueue-input - (list (concat "interpreter mi \"-var-evaluate-expression " + (list (concat "server interpreter mi \"-var-evaluate-expression " varnum "\"\n") `(lambda () (gdb-var-evaluate-expression-handler ,varnum))))))) @@ -299,7 +299,7 @@ The following interactive lisp functions help control operation : (var (assoc expr gdb-var-list)) (varnum (cadr var))) (gdb-enqueue-input - (list (concat "interpreter mi \"-var-delete " varnum "\"\n") + (list (concat "server interpreter mi \"-var-delete " varnum "\"\n") 'ignore)) (setq gdb-var-list (delq var gdb-var-list)) (dolist (varchild gdb-var-list) |