anchor.diff:                                                  (loop for (nil property) on (prompter:active-properties suggestion :source source) by #'cddr
                                                         collect (markup:markup (:td property)))))))))))
         (ffi-prompt-buffer-evaluate-javascript-async
  -       (current-window)
  +       (window prompt-buffer)
          (ps:ps
            (setf (ps:chain document (get-element-by-id "suggestions") |innerHTML|)
                  (ps:lisp
  
positive.code:                     prompt-buffer
                      :test #'prompter=)
        (push prompt-buffer (old-prompt-buffers *browser*))))
    (if (active-prompt-buffers (current-window))
        (let ((next-prompt-buffer (first (active-prompt-buffers (current-window)))))
          (show-prompt-buffer next-prompt-buffer))
        (progn
          (ffi-window-set-prompt-buffer-height (current-window) 0)))
    (when return-function
      (funcall return-function))
    ;; Destroy prompter last, or else `return-function' may not work.
  
negative.code:          (suggestions (prompter:suggestions source))
           (marks (prompter:marks source)))
      (ffi-prompt-buffer-evaluate-javascript-async
       (window prompt-buffer)
       (ps:ps
         (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
               (ps:lisp
  