   "alist from tagfile name to a mural_server process that handles this tagfile")
 
 (defvar mural-current-tagfile nil)
+(defvar mural-server-output nil)
+(defvar mural-last-query-result nil)
 
 (defun mural-add-tagfile (tagfile)
   "Register tagfile and make it available for queries"

ido-completing-read"
  (let ((qresult (mural-query query tagfile))
        (count-table (make-hash-table :test 'equal)))
    (mapcar (lambda (x) (hash-incr x count-table))
            ;; aka flatten
            (mapcan 'identity (mapcar 'mural-tag-possible-displaynames qresult)))
    (setq mural-last-query-result

;; To debug launch:
;; (call-process "mural_server" nil t nil (expand-file-name "~/www/TAGS"))

(eval-when-compile
  (when (fboundp #'byte-compile-disable-warning)
    (byte-compile-disable-warning 'cl-functions)))

(require 'ido)
(require 'cl)

