anchor.diff:    (when (> (length input) 2)
       (let ((input (str:replace-all " " " " input))
             (all-matches nil)
  -          (padding 0))
  +          (padding (if (> (list-length buffers) 1) 0 nil)))
         (map nil
              (lambda (buffer)
                (query-buffer :query input :buffer buffer
                 :callback (lambda (result)
  -                          (setf padding (1+ padding))
  +                          (when padding
  +                            (setf padding (1+ padding)))
                             (let* ((matches (matches-from-json
                                              result buffer padding)))
                               (setf all-matches (append all-matches matches))
  
positive.code:   ;; TODO: scroll doesn't work properly because it seems it tries to scroll
    ;; before switching buffer in cases where the buffer should be switched
    ;; so have to find a way to sync that up
    (let* ((rel-identifier (ps:lisp (cadr (str:split ":" (identifier match)))))
           (element (ps:chain document (get-element-by-id rel-identifier))))
      (ps:chain element (scroll-into-view t))))
  
  
negative.code: 
  (define-command search-buffer ()
    "Add search boxes for a given search string."
    (search-buffers (list (current-buffer))))
  
  (define-command search-buffers (&optional buffers)
    "Search one or more buffers at a time.
  If no buffers are provided, the minibuffer will show a
  prompt where one can choose which buffers to do the search on."
    (let ((funk (lambda (buffers)
      (let* ((minibuffer (make-minibuffer
                          :input-prompt "Search for (3+ characters)"
                          :completion-function #'(lambda (input)
  