 
 (defvar ido-dynamic-match-fn nil)
 (defvar mural-tagfile-to-process '())
-
-;; Only used in the context of a single query
-(defvar mural-server-output "")
-(defvar mural-last-query-result nil)
-(defvar mural-current-tagfile nil)
 
 (defun mural-add-tagfile (tagfile)
   (mural-get-server (expand-file-name tagfile)))


;;(mural-parse-response "MATCH foo bar 1\nMATCH hi bye 2\nDONE hi hi")
;; returns '((tag file row) ...)
(defun mural-parse-response (results)
  (delq nil
        (mapcar
         (lambda (x)

            until (mural-response-complete mural-server-output)
            do (accept-process-output proc .05))
      (if (mural-response-complete mural-server-output)
          (mural-parse-response tagfile mural-server-output)
        (error "mural-server timeout"))
      )))

(defun mural-query-save-tag (query)
  (let ((qresult (mural-query query mural-current-tagfile)))
