GaucheのためのEmacsの環境を整える

cametanさんに教えて貰ったGaucheのためのEmacs環境を作ってみました。参考は以下のUbuntuフォーラムでのcametanさんのコメントと、私のブログにコメントいただいた内容です。
Ubuntu日本語フォーラム / Gaucheがはいりません
 Ubuntu 9.04にGauche 0.8.14ではなく0.8.13を入れてみた - ありの日記

まず以下のファイルをダウンロードして、~/.emacs.d/elipsディレクトリに入れます。(ディレクトリがない場合は作っておきます)

quack.el
- http://www.neilvandyke.org/quack/

scheme-complete-0.8.7.el
- http://synthcode.com/wiki/scheme-complete

scheme-completeの方はgzで圧縮されているので解凍して、名前を「scheme-complete-0.8.7.el」から「scheme-complete.el」にしてここ→~/.emacs.d/elispへ移動させておきます。

$ gzip -d scheme-complete-0.8.7.el.gz
$ mv scheme-complete-0.8.7.el ~/.emacs.d/elisp/scheme-complete.el

次に~/.emacsに以下の設定を追加します。~/.emacs.d/elispをロードパスに追加しておかないとエラーが出るので以下のコードの1〜8行目を追加しています。これはid:Ubuntuさんのエントリを参考にしています(http://d.hatena.ne.jp/Ubuntu/20090501/1241143579)

(defvar default-load-path load-path
  "*Base of `load-path'.
It is used as a default value of target path to search file or
subdirectory under load-path.")
(setq my-load-path
      (list "/usr/local/share/emacs/site-lisp"
            (expand-file-name "~/.emacs.d/elisp")))
(setq load-path (append my-load-path default-load-path))

(require 'quack)

(autoload 'scheme-smart-complete "scheme-complete" nil t)
(eval-after-load 'scheme
  '(progn (define-key scheme-mode-map "\e\t" 'scheme-smart-complete)))

(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t)
(add-hook 'scheme-mode-hook
  (lambda ()
    (make-local-variable 'eldoc-documentation-function)
    (setq eldoc-documentation-function 'scheme-get-current-symbol-info)
    (eldoc-mode)))