Scheme¶

(modify-coding-system-alist 'process' "gosh" '(utf-8 . utf-8))
(setq scheme-program-name "gosh -i")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))

(define-key global-map
  "\C-cs" 'scheme-other-window)

C-c C-l     Scheme file のロード
C-c C-r     リージョンの実行
C-x C-e     直前の S 式を評価
M-C Space     カーソルの次の S 式をマーク
M-C-a     カーソルを含むトップレベルの S 式の先頭へ移動
M-C-e     カーソルを含むトップレベルの S 式の末尾へ移動
M-C-f     次の S 式へ移動
M-C-b     前の S 式へ移動
M-C-t     カーソルの前後の S 式を交換