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