anchor.diff:    ;; Destroy prompter last, or else `return-function' may not work.
     (prompter:destroy prompt-buffer))
   
  -(defun suggestion-and-mark-count (prompt-buffer suggestions marks)
  +(defun suggestion-and-mark-count (prompt-buffer suggestions marks
  +                                  &key multi-selection-p)
     (cond
       ((not suggestions)
        "")
  
positive.code:      (ps:ps
         (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
               (ps:lisp
                (suggestion-and-mark-count prompt-buffer suggestions marks)))
         (setf (ps:chain document (get-element-by-id "prompt-modes") |innerHTML|)
               (ps:lisp
                (format nil "~{~a~^ ~}" (delete "prompt-buffer"
  
negative.code:                              ,(prompter:name source)
                               ,(suggestion-and-mark-count prompt-buffer
                                                           (prompter:suggestions source)
                                                           (prompter:marks source)
                                                           :multi-selection-p (prompter:multi-selection-p source)))))
                      (when (prompter:suggestions source)
                        (markup:raw
                         (markup:markup
  