以下サイトを参考にさせていただいた
以下emacs.elに書き込む
;;; Scheme (Gauche) (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)) (add-hook 'scheme-mode-hook '(lambda () (define-key scheme-mode-map "\C-m" 'newline-and-indent) (define-key scheme-mode-map "\"" 'electric-pair) (define-key scheme-mode-map "(" 'electric-pair) (define-key scheme-mode-map "\C-c\C-z" 'scheme-other-window) ))