anchor.diff:       (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.
  
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:              (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)
  