init.el

(setq inhibit-startup-message t)  ; 起動画面を表示しない
(show-paren-mode t)  ; 対応する括弧を表示する
; ^H を バックスペースへ
(global-set-key "\C-h" 'delete-backward-char)
; *.~ とかのバックアップファイルを作らない
(setq make-backup-files nil)
; .#* とかのバックアップファイルを作らない
(setq auto-save-default nil)


;emacsでGauche
(setq process-coding-system-alist
      (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
(setq scheme-program-name "C:\\Installed\\Gauche\\bin\\gosh.exe -i")
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)

;; split window
(defun scheme-other-window ()
  "Run Gauche on other window"
  (interactive)
  (split-window-horizontally 90)
  (let ((buf-name (buffer-name (current-buffer))))
    (scheme-mode)
    (switch-to-buffer-other-window
     (get-buffer-create "*scheme*"))
    (run-scheme scheme-program-name)
    (switch-to-buffer-other-window
     (get-buffer-create buf-name))))
(define-key global-map
  "\C-cG" 'scheme-other-window)