anchor.diff:                                 (ps:lisp
                                   (format nil "~a~a"
                                           (input-prompt minibuffer)
  -                                        (if completions
  -                                            (if marked-completions
  -                                                (format nil "[~a/~a]:"
  -                                                        (length marked-completions)
  -                                                        (length completions))
  -                                                (format nil "[~a]:"
  -                                                        (length completions)))
  -                                            ""))))
  +                                        (cond
  +                                          ((not completions)
  +                                           "")
  +                                          ((not (show-current-choices-nb minibuffer))
  +                                           "")
  +                                          ((not marked-completions)
  +                                           (format nil "[~a]:"
  +                                                   (length completions)))
  +                                          (marked-completions
  +                                           (format nil "[~a/~a]:"
  +                                                   (length marked-completions)
  +                                                   (length completions)))
  +                                          (t
  +                                           "[?]")))))
                            (setf (ps:chain document (get-element-by-id "input-buffer") |innerHTML|)
                                  (ps:lisp input-text))
                            (setf (ps:chain document (get-element-by-id "completions") |innerHTML|)
  
positive.code: candidates.")
     (completions :accessor completions :initform nil)
     (marked-completions :accessor marked-completions :initform nil)
     (completion-head :accessor completion-head :initform 0)
     (completion-cursor :accessor completion-cursor :initform 0) ; TODO: Rename to completion-index?
     (content :initform "" :type string
  
negative.code:                           (input-prompt nil explicit-input-prompt)
                            (input-buffer nil explicit-input-buffer)
                            (invisible-input-p nil explicit-invisible-input-p)
                            (show-current-choices-nb t explicit-show-current-choices-nb)
                            (history nil explicit-history)
                            (multi-selection-p nil explicit-multi-selection-p))
    "See the `minibuffer' class for the argument documentation."
  