anchor.diff:           (suggestions (prompter:suggestions source))
            (marks (prompter:marks source)))
       (ffi-prompt-buffer-evaluate-javascript-async
  -     (current-window)
  +     (window prompt-buffer)
        (ps:ps
          (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
                (ps:lisp
  
positive.code: 
  (defun set-prompt-buffer-input (input)
    "Set HTML INPUT in PROMPT-BUFFER."
    (when (first (active-prompt-buffers (current-window)))
      (ffi-prompt-buffer-evaluate-javascript
       (current-window)
       (ps:ps
         (setf (ps:chain document (get-element-by-id "input") value)
               (ps:lisp input))))))
  
  (export-always 'prompt)
  (sera:eval-always
  
negative.code:                                                 (loop for (nil property) on (prompter:active-properties suggestion :source source) by #'cddr
                                                        collect (markup:markup (:td property)))))))))))
        (ffi-prompt-buffer-evaluate-javascript-async
         (window prompt-buffer)
         (ps:ps
           (setf (ps:chain document (get-element-by-id "suggestions") |innerHTML|)
                 (ps:lisp
  