cygwinでの~/.emacs

;;; 不用意にterapadで保存すると＼が￥に変換されてしまうので注意．
(set-language-environment "Japanese")

(create-fontset-from-request "tt16"
'((width . 8) ; フォントの幅(ピクセル)
(height . 16) ; フォントの高さ(ピクセル)
(weight . 400) ; フォントの太さ(通常400，ボールドで700)
(fixed . t) ; tで等幅
(italic . nil)) ; tでイタリック
'((family . "ＭＳ ゴシック") ; フォントファミリ
(family . "Courier New")))

(setq default-frame-alist (append (list
;'(font . "tt16") ; フォントセット
'(width . 80) ; 一行の字数
'(height . 59) ; 行数
'(left . 595) ; ディスプレイのX座標
'(top . 29) ; ディスプレイのY座標
'(background-color . "black") ; 背景の色
'(foreground-color . "white") ; 文字の色
'(cursor-color . "green") ; カーソルの色
) default-frame-alist))

; font-lockの設定
(if window-system (progn
(setq font-lock-support-mode 'lazy-lock-mode)
(global-font-lock-mode t)))
(setq font-lock-support-mode
'((emacs-lisp-mode . jit-lock-mode) ;; モードによって切りかえたい時
(c++-mode . fast-lock-mode)
(t . jit-lock-mode))) ;; デフォルト
;;コメントの色
;(set-face-foreground 'font-lock-comment-face "medium purple")
;;name の色
(set-face-foreground 'font-lock-function-name-face "LightSkyBlue")

;; Cygwinのbashを利用
(setq explicit-shell-file-name "C:/cygwin/bin/bash.exe")
(setq shell-file-name "sh.exe")
(setq shell-command-switch "-c")
;; argument-editing の設定
(require 'mw32script)
(mw32script-init)
(setq exec-suffix-list '(".exe" ".sh" ".pl"))
(setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@`'.:()-")

;; SHELLで^Mが付く場合は^Mを削除
(add-hook 'shell-mode-hook
(lambda () (set-buffer-process-coding-system 'undecided-dos 'sjis-unix)))
;; shell-modeでの補完 (for drive letter)
(setq shell-file-name-chars "~/A-Za-z0-9_^$!#%&{}@`'.,:()-")

;;; SKK
(setq skk-egg-like-newline t) ;; 変換時，改行でも確定
(setq skk-japanese-message-and-error t) ;; メッセージは日本語で
(setq skk-auto-insert-paren t) ;;"「"を入力したら"」"も自動で挿入
(setq skk-check-okurigana-on-touroku t) ;;漢字登録のミスをチェックする
(setq skk-kuten-touten-alist '((jp . ("。" . "、" )) (en . ("．" . "，")))) (setq-default skk-kutouten-type 'en)
(setq skk-number-style nil) ;; @で挿入する日付表示を半角に
(setq skk-show-tooltip t) ;; 変換候補をツールチップに表示
(setq skk-show-inline t) ;; 変換候補をインラインに表示
(setq skk-isearch-start-mode 'latin) ;; isearch時にSKKをオフ
(setq skk-henkan-face 'underline)
(setq skk-auto-insert-paren nil)
(setq skk-auto-okuri-process nil)
(setq skk-date-ad t) ;自動日付入力の西暦化
(setq skk-dcomp-active t)
(setq skk-large-jisyo nil)
(setq skk-server-host "127.0.0.1" skk-portnum 1178)
(setq skk-latin-mode-string "a")
(setq skk-hiragana-mode-string "あ")
(setq skk-katakana-mode-string "ア")
(setq skk-jisx0208-latin-mode-string "a")

;; モード名を短くする
(add-hook 'texinfo-mode-hook '(lambda () (setq mode-name "Texi")))
(add-hook 'lisp-interaction-mode-hook '(lambda () (setq mode-name "Lisp-Int")))
(add-hook 'emacs-lisp-mode-hook '(lambda () (setq mode-name "Elisp")))
(eval-after-load "encoded-kb"
'(setcar (cdr (assq 'encoded-kbd-mode minor-mode-alist)) ""))
(add-hook 'isearch-mode-hook
'(lambda () (setcar (cdr (assq 'isearch-mode minor-mode-alist)) "")))

(setq display-time-string-forms
'(month "/" day " " 24-hours ":" minutes))
(display-time)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; all lines below are derived from ~/.emacs of Linux box (su7d1)
(setq load-path (cons (expand-file-name "~/elisp") load-path))
;;; 編集モード設定
(setq default-major-mode 'indented-text-mode)
;(setq initial-major-mode 'indented-text-mode)
(setq completion-ignored-extensions (append
(list ".ps" ".gif" ".dvi" ".lzh" ".jpg" ".jpeg" ".gz" ".deb"
".zip" ".mid" ".mod" ".mp3" ".o" ".tar.gz" ".gz" ".tgz"
".pyc" ".pyo" ".a" ".tar.bz2" "bz2")
(if (boundp 'completion-ignored-extensions)
completion-ignored-extensions)))
(setq next-line-add-newlines nil) ;C-nで新たな行をつくらない(nil)
(setq track-eol t)
(setq require-final-newline t)
(line-number-mode 1)
(column-number-mode 1)
(setq scroll-step 1)
(setq scroll-conservatively 1)
(setq-default truncate-lines nil) ;行の折り返し表示 nil:する t:しない($)
(setq transient-mark-mode 1);リージョンを色付きで
(set-face-background 'region "blue")
(setq make-backup-files nil);バックアップ(foo~)をつくらない
(setq auto-save-default nil);.saves-...をつくらない
(setq auto-save-list-file-name nil)
(setq auto-save-list-file-prefix nil)
(setq-default dired-listing-switches "-alF")
(setq mouse-yank-at-point t) ;カーソル位置に貼り付け
(tool-bar-mode nil) ;disable tool-bar
(blink-cursor-mode 0) ;stop cursor blink
(setq cursor-in-non-selected-windows nil); disable cursor of non-active window
(setq frame-title-format (format "Meadow: %%f")) ;;; タイトルバーにファイル名を表示する
;;; キーバインド
(global-set-key "\C-h" 'backward-delete-char)
(global-set-key "\M-g" 'goto-line)
(global-set-key "\M-n" 'expand-abbrev)
(global-set-key "\C-x'" 'just-one-space)
(global-set-key "\M- " 'dabbrev-expand)
(global-set-key "\M-/" 'expand-abbrev)
(eval-after-load "abbrev" '(global-set-key "\M-/" 'expand-abbrev))
(global-set-key [S-right] 'forward-word)
(global-set-key [S-left] 'backward-word)
(global-set-key [S-up] 'backward-paragraph)
(global-set-key [S-down] 'forward-paragraph)
(global-set-key [f11] 'call-last-kbd-macro)
(global-set-key [f12] 'next-error)
(setq inhibit-startup-message t) ; Don't Display Startup Message
(setq initial-scratch-message nil)
(iswitchb-default-keybindings) ; C-x b で buffers を選ぶ時便利
(resize-minibuffer-mode)
(add-hook 'find-file-not-found-hooks 'new-file-p) ;;; new fileをopenする際，確認を求める
(defun new-file-p ()
(interactive)
(or (y-or-n-p (format "\"%s\": not found. Do you want to create new file?" buffer-file-name))
(keyboard-quit)))
;;; 書込時のフック
(setq write-file-hooks '(lambda nil (trim-eob) (trim-buffer)))
(defun trim-region (start end) "リージョン中の行末の無駄な空白を消去"
(interactive "r") (save-excursion (save-restriction
(narrow-to-region start end) (goto-char start)
(replace-regexp "[ \t]+$" ""))))
(defun trim-buffer nil "バッファ中の行末の無駄な空白を消去"
(interactive) (save-excursion
(mark-whole-buffer) (trim-region (region-beginning) (region-end)) ))
(defun trim-eob nil "バッファの最後に溜った空行を消去"
(interactive) (save-excursion (progn (goto-char (point-max))
(delete-blank-lines) nil)))