anchor.diff:                                 :body (cdr (assoc :body element))
                                  :buffer buffer)))
   
  -(defun match-completion-function (input &optional (buffers (list (current-buffer))) (case-insensitive-p nil))
  +(defun match-completion-function (input &optional (buffers (list (current-buffer))) (case-sensitive-p nil))
     "Update the completions asynchronously via query-buffer."
     (when (> (length input) 2)
       (let ((input (str:replace-all " " " " input))
  
positive.code:       (ps:chain node (replace-with (aref *nodes* (ps:@ node id))))))
    (remove-search-nodes))
  
  (define-command search-buffer (&key (case-insensitive-p t explicit-case-p))
    "Start a search on the current buffer."
    (apply #'search-over-buffers (list (current-buffer))
           (if explicit-case-p
               `(:case-insensitive-p ,case-insensitive-p)
               '())))
  
  (define-command search-buffers (&key (case-insensitive-p t explicit-case-p))
    "Show a prompt in the minibuffer that allows to choose
  one or more buffers, and then start a search prompt that
  searches over the selected buffer(s)."
  
negative.code:                           :completion-function (buffer-completion-filter))))
      (apply #'search-over-buffers buffers
             (if explicit-case-p
                 `(:case-sensitive-p ,case-sensitive-p)
                 '()))))
  
  (defun search-over-buffers (buffers &key (case-sensitive-p nil explicit-case-p))
    "Add search boxes for a given search string over the
  provided buffers."
    (let* ((num-buffers (list-length buffers))
  