 ido-completing-read"
   (let ((qresult (mural-query query tagfile))
         (count-table (make-hash-table :test 'equal)))
-    (mapcar (lambda (x) (hash-incr x count-table))
+    (mapc (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"))

(require 'ido)
(require 'cl)


  "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"
