# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1070121084 0
# Node ID f62f33c4d0fb5a5421ec102418ca597090bb2f8e
# Parent  ff58bab0c42540ed1fff3aea117ebcb7833aa4e8
(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.

diff -r ff58bab0c425 -r f62f33c4d0fb lisp/gdb-ui.el
--- 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)