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: 
  (in-package :next)
  
  (define-parenscript query-buffer (query (case-insensitive-p nil))
    (defvar *identifier* 0)
    (defvar *matches* (array))
    (defvar *nodes* (ps:new (-Object)))
  
negative.code:                       :completion-function
                        #'(lambda (input)
                            (unless explicit-case-p
                              (setf case-sensitive-p (str:downcasep input)))
                            (match-completion-function input buffers case-sensitive-p))
                        :changed-callback
                        (let ((subsequent-call nil))
                          (lambda ()
  