3ページ目の Emacs設定¶

 (setq process-coding-system-alist
       (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
 ;; goshインタプリタのパスに合わせます。
 (setq scheme-program-name "C:/cygwin/usr/local/bin/gosh.exe -i")
 (autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
 (autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
 ;; ウィンドウを2つに分け、一方でgoshインタプリタを実行するコマンドを定義します。
 (defun scheme-other-window ()
   "Run scheme on other window"
   (interactive)
   (switch-to-buffer-other-window
    (get-buffer-create "*scheme*"))
   (run-scheme scheme-program-name))
 ;; そのコマンドをCtrl-cSで呼び出します。
 (define-key global-map
   "\C-cS" 'scheme-other-window)
 ;; 直前/直後の括弧に対応する括弧を光らせます。
 (show-paren-mode)