sdicのwindowがジャマ
echoエリアに吐いてくれるだけでいいのです
(defun sdic-describe-word-echo () "" (interactive) (sdic-describe-word-at-point) (sdic-close-window) (save-excursion (set-buffer sdic-buffer-name) (message (buffer-substring (point-min) (progn (goto-char (point-min)) (or (and (re-search-forward "^\\w" nil t 4) (progn (previous-line) t) (point-at-eol)) (point-max)))))))