Mercurial > emacs
diff lisp/gdb-ui.el @ 53193:f62f33c4d0fb
(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.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Sat, 29 Nov 2003 15:51:24 +0000 |
parents | 5983bf0859dc |
children | 97802d013c5c |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Sat Nov 29 15:50:03 2003 +0000 +++ b/lisp/gdb-ui.el Sat Nov 29 15:51:24 2003 +0000 @@ -185,7 +185,7 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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 @@ (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)