■

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Emacs設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 対応する括弧を表示する
(show-paren-mode t)

;起動するときに起動画面を表示しない
(setq inhibit-startup-message t) 

;run-schemeで動かす処理系
;(setq scheme-program-name "C:/Installed/Gauche/bin/gosh.exe")

;EmacsをSchemeファイルを
;(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
;(define-key global-map "\C-cs" 'run-scheme)

; *.~ とかのバックアップファイルを作らない
(setq make-backup-files nil)

; .#* とかのバックアップファイルを作らない 
(setq auto-save-default nil)
 
; ^H を バックスペースへ
(global-set-key "\C-h" 'delete-backward-char)

;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)

;fullscreen
(defun toggle-fullscreen ()
  (interactive)
  (set-frame-parameter nil 'fullscreen
		       (if (frame-parameter nil 'fullscreen)
					   nil 'fullboth)))
(global-set-key
 [f11] 'toggle-fullscreen)

; toolbar del
(tool-bar-mode nil)

;(put 'upcase-region 'disabled nil)


    (setq load-path (cons "~/emacs/lisp" load-path))
    (require 'tc-setup)

(put 'downcase-region 'disabled nil)