anchor.diff:                               (:span :id "cursor" (subseq input-buffer cursor-index (+ 1 cursor-index)))
                                (:span (subseq input-buffer (+ 1  cursor-index)))))))
   
  +(defun generate-input-html-invisible (input-buffer cursor-index)
  +  (let ((input-buffer-password (make-string (length input-buffer) :initial-element #\*)))
  +    (cond ((equal "" input-buffer-password) (cl-markup:markup (:span :id "cursor" (cl-markup:raw "&nbsp;"))))
  +          ((eql cursor-index (length input-buffer-password))
  +           (cl-markup:markup (:span input-buffer-password)
  +                             (:span :id "cursor" (cl-markup:raw "&nbsp;"))))
  +          (t (cl-markup:markup (:span (subseq input-buffer-password 0 cursor-index))
  +                               (:span :id "cursor" (subseq input-buffer-password cursor-index (+ 1 cursor-index)))
  +                               (:span (subseq input-buffer-password (+ 1  cursor-index))))))))
  +
   (defun generate-completion-html (completions cursor-index)
     (cl-markup:markup (:ul (loop for i from 0 for completion in completions
                                  collect
  
positive.code:   (setf (completion-cursor minibuffer) 0)
    (setf (setup-function minibuffer) setup-function)
    (setf (cleanup-function minibuffer) cleanup-function)
    (setf (empty-complete-immediate minibuffer) empty-complete-immediate)
    (setf (callback-buffer minibuffer) (active-buffer *interface*))
    (if setup-function
  
negative.code:       ;; Don't add input-buffer to completions that don't accept arbitrary
        ;; inputs (i.e. empty-complete-immediate is nil).
        (push input-buffer completions))
      (let ((input-text (if (invisible-input-p minibuffer)
                             (generate-input-html-invisible input-buffer input-buffer-cursor)
                             (generate-input-html input-buffer input-buffer-cursor)))
            (completion-html (generate-completion-html completions completion-cursor)))
        (rpc-minibuffer-evaluate-javascript
         *interface* (rpc-window-active *interface*)
  