anchor.diff:                 (completion-insert (current-point)
                                     (first *last-items*)
                                     n)
  -               (completion-again))
  +               (completion-again)
  +               t)
                 ((alexandria:length= *last-items* 1)
                  (completion-insert (current-point)
                                     (first *last-items*))
  -               (completion-again))
  +               (completion-again)
  +               t)
                 (t
  -               (completion-next-line)))))))
  +               nil))))))
  +
  +(define-command completion-narrowing-down-or-next-line () ()
  +  (when *last-items*
  +    (or (narrowing-down)
  +        (completion-next-line))))
   
   (defun start-completion-mode (completion-spec)
     (setf *current-completion-spec* completion-spec)
  
positive.code:                                       :non-focus-attribute 'non-focus-completion-attribute)
             (start-completion-mode completion-spec)
             (unless repeat
               (completion-narrowing-down-or-next-line))))))
  
  (defun run-completion (completion)
    (let ((completion-spec
  
negative.code:                                          mismatch)))))
        n)))
  
  (defun narrowing-down ()
    (when *last-items*
      (let ((n (partial-match (mapcar #'completion-item-label *last-items*))))
        (multiple-value-bind (start end)
  