anchor.diff:                                           mismatch)))))
         n)))
   
  -(define-command completion-narrowing-down-or-next-line () ()
  +(defun narrowing-down ()
     (when *last-items*
       (let ((n (partial-match (mapcar #'completion-item-label *last-items*))))
         (multiple-value-bind (start end)
  
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:                (completion-insert (current-point)
                                    (first *last-items*)
                                    n)
                 (completion-again)
                 t)
                ((alexandria:length= *last-items* 1)
                 (completion-insert (current-point)
                                    (first *last-items*))
                 (completion-again)
                 t)
                (t
                 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)
  