emacs on windows

emacs 22.3 を windows にインストールした．

MS-IMEは使わないので，これで良い．

さしあたって，

• apel
• skk
• color-theme
• fixed-width-fontset
• redo

を入れた．

とりあえずの設定↓

;;; -*- Mode: Emacs-Lisp ; coding: iso-2022-jp-unix -*-;;;
;;; Time-stamp:<2009-01-30 00:13:29>
;;; Language
(set-language-environment "Japanese")
;;; TrueType-font
(setq w32-use-w32-font-dialog nil)
(setq scalable-fonts-allowed t)
(setq w32-enable-synthesized-fonts t)
;;;;; フォントの設定
(require 'ntemacs-font)
(defvar ntemacs-font-encode-family-list-osaka
'((ascii . "Osaka－等幅")
(latin-iso8859-1 . "Lucida Console*")
(japanese-jisx0208 . "Osaka－等幅*")
(katakana-jisx0201 . "Osaka－等幅*")
(chinese-gb2312 . "Arial Unicode MS*")
(chinese-big5-1 . "Arial Unicode MS*")
(korean-ksc5601 . "Arial Unicode MS*")
(mule-unicode-0100-24ff . "Arial Unicode MS*")
(mule-unicode-e000-ffff . "Arial Unicode MS*")))
(fixed-width-create-fontset "osaka"
ntemacs-font-defined-sizes
ntemacs-font-encode-family-list-osaka)
;;; set default font "osaka 15"
(add-to-list 'default-frame-alist
'(font . "-*-*-normal-r-normal-normal-15-*-*-*-*-*-fontset-osaka"))
;; 初期フレームの設定
(setq default-frame-alist
(append (list '(width . 110)
'(height . 42)
)
default-frame-alist))
;; use C-h to backspace
(keyboard-translate ?C-h ?C-?)
;;; font-lockの設定
(global-font-lock-mode t)
(custom-set-variables
'(column-number-mode t)
'(display-time-mode t)
'(size-indication-mode t)
'(tool-bar-mode nil)
'(transient-mark-mode t))
;; indent
(setq-default indent-level 4)
;; タブ幅を 4 に設定
(setq-default tab-width 4)
;; タブではなくスペースを使う
(setq-default indent-tabs-mode nil)
;; 行間の設定
(setq-default line-spacing 1)
;; window 分割時、画面外に出る文章を折り返す
(setq truncate-partial-width-windows nil)
;; yes-no を入力しない
(fset 'yes-or-no-p 'y-or-n-p)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  iswitchb
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(iswitchb-mode 1)
;; C-x b とすると，バッファの一覧がミニバッファに表示される． 
;;C-s，C-r でバッファの選択を切り替え． 
;;そのまま文字を入力すると isearch になる，適当に含まれている文字 を入れるだけでも選択できます．
;;検索候補がないようなら，C-x C-f で find-file へ移行できます．
(add-hook 'iswitchb-define-mode-map-hook
'iswitchb-my-keys)
(defun iswitchb-my-keys ()
"Add my keybindings for iswitchb."
(define-key iswitchb-mode-map [right] 'iswitchb-next-match)
(define-key iswitchb-mode-map [left] 'iswitchb-prev-match)
(define-key iswitchb-mode-map "C-f" 'iswitchb-next-match)
(define-key iswitchb-mode-map " " 'iswitchb-next-match)
(define-key iswitchb-mode-map "C-b" 'iswitchb-prev-match)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; time-stamp - Maintain last change time stamps 
;; in files edited by Emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq time-stamp-start "Time-stamp:[ t]*<")
(setq time-stamp-end ">")
;;(setq time-stamp-format "%:y年/%:m月/%:d日")
(setq time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S")
;;(setq time-stamp-format "%3a, %02d %3b %04y %02H:%02M:%02S %Z")
(if (not (memq 'time-stamp write-file-functions))
(setq write-file-functions
(cons 'time-stamp write-file-functions)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; redo
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'redo)
(global-set-key [?C-.] 'redo)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; color-theme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'color-theme)
(color-theme-initialize)
(color-theme-subtle-hacker)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; SKK
;;; Simple 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (require 'skk-autoloads) ;; 必要ない？
;; where are SKK.tut and jisyo ?
(setq skk-tut-file "C:/unix/emacs-22.3/etc/skk/SKK.tut")
(setq skk-large-jisyo "C:/unix/skk/SKK-JISYO.L")
(setq skk-jisyo "C:/unix/skk/.skk-jisyo")
(setq skk-backup-jisyo "C:/unix/skk/.skk-jisyo.BAK")
(setq skk-record-file "C:/unix/skk/.skk-record")
;; メッセージは日本語で
(setq skk-japanese-message-and-error t)
;; 句読点は , . を使う
(setq skk-kuten-touten-alist
'((jp . ("。" . "、" ))
(en . ("．" . "，"))))
;; jp にすると「。、」を使います
(setq-default skk-kutouten-type 'en)
;; @で挿入する日付表示を半角に
(setq skk-number-style nil)
;; 変換候補をツールチップに表示
(setq skk-show-tooltip t)
;; 変換候補をインラインに表示
(setq skk-show-inline t)
;;; インクリメンタルサーチで日本語
(add-hook 'isearch-mode-hook
(function (lambda ()
(and (boundp 'skk-mode) skk-mode
(skk-isearch-mode-setup)))))
(add-hook 'isearch-mode-end-hook
(function (lambda ()
(and (boundp 'skk-mode) skk-mode
(skk-isearch-mode-cleanup)
(skk-set-cursor-color-properly)))))