From 1883b6fff13d2f7e5c0a1498f4eeb9c5bd0b1071 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sat, 29 Nov 2003 15:51:24 +0000 Subject: [PATCH] (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. --- lisp/gdb-ui.el | 16 ++++++++-------- 1 file 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) -- 2.39.2