EmacsSetup » 履歴 » バージョン 1
  Yuumi Yoshida, 2008-05-17 17:32 
  
| 1 | 1 | Yuumi Yoshida | = 3ページ目の Emacs設定 =  | 
|---|---|---|---|
| 2 | {{{ | 
||
| 3 | (setq process-coding-system-alist  | 
||
| 4 |        (cons '("gosh" utf-8 . utf-8) process-coding-system-alist)) | 
||
| 5 | ;; goshインタプリタのパスに合わせます。  | 
||
| 6 | (setq scheme-program-name "C:/cygwin/usr/local/bin/gosh.exe -i")  | 
||
| 7 | (autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)  | 
||
| 8 | (autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)  | 
||
| 9 | ;; ウィンドウを2つに分け、一方でgoshインタプリタを実行するコマンドを定義します。  | 
||
| 10 | (defun scheme-other-window ()  | 
||
| 11 | "Run scheme on other window"  | 
||
| 12 | (interactive)  | 
||
| 13 | (switch-to-buffer-other-window  | 
||
| 14 | (get-buffer-create "*scheme*"))  | 
||
| 15 | (run-scheme scheme-program-name))  | 
||
| 16 | ;; そのコマンドをCtrl-cSで呼び出します。  | 
||
| 17 | (define-key global-map  | 
||
| 18 | "\C-cS" 'scheme-other-window)  | 
||
| 19 | ;; 直前/直後の括弧に対応する括弧を光らせます。  | 
||
| 20 | (show-paren-mode)  | 
||
| 21 | }}}  |