emacs on windows
emacs 22.3 を windows にインストールした．
MS-IMEは使わないので，これで良い．
さしあたって，
を入れた．
とりあえずの設定↓
;;; -*- 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)))))
