anchor.diff:               (ps:lisp
                 (suggestion-and-mark-count
                  prompt-buffer suggestions marks
  +               :pad-p t
                  :multi-selection-p (some #'prompter:multi-selection-p
                                           (prompter:sources prompt-buffer)))))
          (when (ps:lisp vi-class)
  
positive.code:   (prompter:destroy prompt-buffer))
  
  (defun suggestion-and-mark-count (prompt-buffer suggestions marks
                                    &key multi-selection-p)
    (cond
      ((not suggestions)
       "")
      ((hide-suggestion-count-p prompt-buffer)
       "")
      (marks
       (format nil "[~a/~a]"
               (length marks)
               (length suggestions)))
      ((not marks)
       (format nil "[~a~a]"
               (if multi-selection-p
                   "0/"
                   "")
               (length suggestions)))))
  
  (defun prompt-render-prompt (prompt-buffer)
    (let* ((suggestions (prompter:all-suggestions prompt-buffer))
  
negative.code:      (hide-suggestion-count-p nil
                                :documentation "Whether to show the number of
  chosen suggestions inside brackets.")
       (max-suggestions 0
                        :documentation "Maximum number of total suggestions that were listed at some point.")
       ;; TODO: Need max-lines?
       ;; (max-lines 10
       ;;               :documentation "Max number of suggestion lines to show.
  