プログラミングGaucheの設定をXEmacsの、~/.emacs.d/init.elへ貼り付けてgoshが起動するよう設定。
(modify-coding-system-alist
'process "gosh" '(euc-japan-unix . euc-japan-unix))
(setq scheme-program-name "gosh")
(setq scheme-program-args "-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)
(modify-coding-system-alist
'process "gosh" '(euc-japan-unix . euc-japan-unix))
(setq scheme-program-name "gosh")
(setq scheme-program-args "-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)
コメント