現在のカーソル位置の単語をdescribeで調べる

gaucheだと(describe 何か)で調べることができる。
こんなものを定義しておくとらくかもしれない。

    (defun scheme-describe-current-word () (interactive)
      (let ((buf "*d*"))
	(with-output-to-temp-buffer buf
	  (let ((target (substring-no-properties (current-word))))
	    (princ (format "(describe %s)" target))
	    (set-buffer buf)
      (scheme-send-last-sexp)
      (kill-buffer buf)))))

(add-hook 'scheme-mode-hook (lambda ()
		 (define-key scheme-mode-map "\M-d" 'scheme-describe-current-word)
		 (define-key scheme-mode-map [f1] 'scheme-describe-current-word)
))

f1とかM-dで現在カーソルがさしている単語について調べられる.