anchor.diff:  
   (define-command lsp-hover () ()
     (check-connection)
  -  (message "~A" (text-document/hover (current-point))))
  +  (display-message (text-document/hover (current-point))))
   
   ;;; completion
   
  
positive.code:                            (send-event (lambda () (funcall then response))))
                           (lambda (message code)
                             (send-event (lambda () (jsonrpc-editor-error message code))))))
  
  ;;;
  (defgeneric spec-initialization-options (spec)
  
negative.code:     (when (point<= (overlay-start overlay)
                     (current-point)
                     (overlay-end overlay))
        (display-message (diagnostic-message (overlay-diagnostic overlay)))
        (return))))
  
  (defun text-document/publish-diagnostics (params)
  