anchor.diff:    (reset-state (judgement-instance))
     (delete-popup-message *autodoc-message*))
   
  -(defun display-autodoc ()
  +(defun display-autodoc-aux (display-function)
     (let ((line-number (line-number-at-point (current-point)))
           (charpos (point-charpos (current-point))))
       (autodoc (lambda (buffer)
  
positive.code:     (unless (continue-flag 'lisp-insert-space-and-autodoc)
        (lisp-autodoc))))
  
  
  (add-hook *lisp-mode-hook* 'enable-autodoc)
  
negative.code:                ;; 情報が返ってきた時にはカーソルが別の場所にあって表示するべきではないことがある
                 (when (and (= line-number (line-number-at-point (current-point)))
                            (= charpos (point-charpos (current-point))))
                   (funcall display-function buffer))))))
  
  (defun display-autodoc ()
    (display-autodoc-aux
     (lambda (buffer)
       (setf *autodoc-message*
             (display-popup-message buffer
                                    :timeout nil
                                    :destination-window *autodoc-message*)))))
  
  
  