       (save-excursion
         (when previous-ranges
           ; convert to list :(
-          (mapcar
+          (mapc
             (lambda(x)
               (let ((start (min (buffer-size buffer) (+ (elt x 0) 1)))
                     (end (+ (elt x 1) 2)))
                 (hlt-unhighlight-region start end)))
             previous-ranges))
-        (mapcar
+        (mapc
           (lambda(x)
             (let ((start (min (buffer-size buffer) (+ (elt x 0) 1)))
                   (end (+ (elt x 1) 2)))

      (deleted (set-difference floobits-open-buffers current-buffers)))
    (when (or added deleted)
      (when (and added (not (member "patch" floobits-perms)))
        (mapcar
          (lambda (buf-path)
            (with-current-buffer (find-buffer-visiting buf-path)
              (setq buffer-read-only t)))

      (with-current-buffer buf
        (save-excursion
          (atomic-change-group
            (mapc 'floobits-apply-edit edits)))))))

(defun floobits-event-create_buf (req)
  (let ((filename (floo-get-item req "path" ))
