anchor.diff:  
   (in-package :next)
   
  -(define-parenscript query-buffer (query (case-insensitive-p nil))
  +(define-parenscript query-buffer (query (case-sensitive-p nil))
     (defvar *identifier* 0)
     (defvar *matches* (array))
     (defvar *nodes* (ps:new (-Object)))
  
positive.code:                                :body (cdr (assoc :body element))
                                 :buffer buffer)))
  
  (defun match-completion-function (input &optional (buffers (list (current-buffer))) (case-insensitive-p nil))
    "Update the completions asynchronously via query-buffer."
    (when (> (length input) 2)
      (let ((input (str:replace-all " " " " input))
  
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 ()
  