anchor.diff:     (prompter:filter-preprocessor
       (lambda (preprocessed-suggestions source input)
         (declare (ignore preprocessed-suggestions))
  -      (when (> (length input) (minimum-search-length source))
  +      (when (>= (length input) (minimum-search-length source))
           (let ((input (str:replace-all " " " " input))
                 (buffer (buffer source)))
             (with-current-buffer buffer
  
positive.code:                           (remove-focus))))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-command search-buffer (&key case-sensitive-p)
    "Start a search on the current buffer."
    (prompt
     :prompt "Search for (3+ characters)"
     :sources (list
               (make-instance 'search-buffer-source :case-sensitive-p case-sensitive-p))))
  
  (define-command search-buffers (&key case-sensitive-p)
    "Start a search on the current buffer."
  
negative.code:                                                 :actions '()
                                                  :multi-selection-p t)))))
      (prompt
       :prompt "Search text"
       :sources (mapcar (lambda (buffer)
                          (make-instance 'search-buffer-source
                                         :name (format nil "Search ~a" (if (url-empty-p (url buffer))
  