anchor.diff:  (define-class search-buffer-source (prompter:source)
     ((case-sensitive-p nil)
      (buffer (current-buffer))
  -   (minimum-search-length 2)
  +   (minimum-search-length 3)
      (prompter:name "Search buffer")
      (prompter:must-match-p nil)
      (prompter:follow-p t)
  
positive.code:                                                 :actions '()
                                                  :multi-selection-p t)))))
      (prompt
       :prompt "Search for (3+ characters)"
       :sources (mapcar (lambda (buffer)
                          (make-instance 'search-buffer-source
                                         :name (format nil "Search ~a" (if (url-empty-p (url buffer))
  
negative.code:    (prompter:filter-preprocessor
      (lambda (preprocessed-suggestions source input)
        (declare (ignore preprocessed-suggestions))
        (when (>= (length input) (minimum-search-length source))
          (let ((input (str:replace-all " " " " input))
                (buffer (buffer source)))
            (with-current-buffer buffer
  