 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

  "alist from tagfile name to a mural_server process that handles this tagfile")

(defvar mural-current-tagfile nil)

(defun mural-add-tagfile (tagfile)
  "Register tagfile and make it available for queries"

  (interactive)
  (let ((taginfo (mural-read-tag (mural-infer-tagfile))))
    (find-file (mural-tag-absfilename taginfo))
    (goto-char (point-min))
    (forward-line (1- (mural-tag-row taginfo)))))

(defvar ido-dynamic-last-query nil)

