【初心者スレ】Ubuntu Linux 40

【初心者スレ】Ubuntu Linux 40 at LINUX

899:login:Penguin
09/06/13 10:22:23 A561Szvq
>>850
(modify-coding-system-alist 'process "gosh" '(utf-8 . utf8))

(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 shceme 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)

次ページ

続きを表示

1を表示