hole of fkm

fkmの.emacs

 ;;; 日本語環境設定
(set-language-environment "Japanese")

(require 'font-lock)
(global-font-lock-mode t)

;;; IMEの設定
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list '("[--]" "[**]" "[--]"))
(add-hook 'mw32-ime-on-hook
	  (function (lambda () (set-cursor-height 2))))
(add-hook 'mw32-ime-off-hook
	  (function (lambda () (set-cursor-height 4)))

	  )

;; 初期フレームの設定
(setq default-frame-alist
      (append (list '(foreground-color . "white")
		    '(background-color . "black")
		    '(background-color . "gray")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
;;		    '(ime-font . (w32-logfont "ＭＳ ゴシック"
;;					      0 16 400 0 nil nil nil
;;					      128 1 3 49)) ; TrueType のみ
;;		    '(font . "bdf-fontset")    ; BDF
;;		    '(font . "private-fontset"); TrueType
		    '(width . 80)
		    '(height . 40)
		    '(top . 100)
		    '(left . 100))
	      default-frame-alist))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; YaTeX - Yet another LaTeX mode for Emacs
;;;

;;; Meadow/site-lisp 以外に入れた場合は、
;;; そのディレクトリを load-path に加えること。
; (setq load-path 
;       (cons "~/elisp/yatex" load-path))

;;; *.tex ファイルを開いたら YaTeX モードに
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;;; タイプセッタ
(setq tex-command "c:/TeX/bin/platex")

;;; プレヴューア
;;(setq dvi2-command "C:/Program Files/Adobe/Acrobat 7.0/Reader/AcroRd32.exe")

(setq dvi2-command "c:/TeX/dviout/dviout")
;;; PDF 
(setq dviprint-command-format "dvipdfmx %s")
;;; Viewerr
(setq yatex-viewerr "acroread %s")

;;; 漢字コード
;;;   1=Shift JIS >== Windows なら
;;;   2=JIS
;;;   3=EUC
(setq YaTeX-kanji-code 1)

;;; LaTeX2e を使う
(setq YaTeX-use-LaTeX2e t)

;;; 色付け
(setq YaTeX-use-font-lock t)

;;; YaTeX の設定はここまで

(global-set-key "\C-h" 'delete-backward-char)
(cd "~/")

(global-set-key "\C-o" 'toggle-input-method)
(w32-set-modifier-key 20 'ctrl)

(add-hook 'c-mode-hook
'(lambda () (local-set-key "\C-c\C-c" 'compile)))

(add-hook 'c++-mode-hook
'(lambda () (local-set-key "\C-c\C-c" 'compile)))