現在の init.el。

init.el

;;; init.el
;(setq debug-on-error t)

;; ===============================================================================
;;
;; Environmental discrimination(環境識別)
;;
;; ===============================================================================
(defvar *run-unix-like-p*
  (or (equal system-type 'gnu/linux)
      (equal system-type 'darwin)
      (equal system-type 'usg-unix-v)))
(defvar *run-windows-p*
  (and (null *run-unix-like-p*)
       (or (equal system-type 'windows-nt)
           (equal system-type 'ms-dos))))
(defvar *run-macosx-p*
  (and *run-unix-like-p*
       (null *run-windows-p*)
       (and (equal window-system 'ns)
            (equal system-type 'darwin))))
(defvar *run-win32-p*
  (and (null *run-unix-like-p*)
       *run-windows-p*
       (equal system-type 'windows-nt)))
(defvar *run-x-window-system-p*
  (and *run-unix-like-p* (eq window-system 'x)))
(defvar *run-emacs20-p*
  (and (equal emacs-major-version 20)
       (null (featurep 'xemacs))))
(defvar *run-emacs21-p*
  (and (equal emacs-major-version 21)
       (null (featurep 'xemacs))))
(defvar *run-emacs22-p*
  (and (equal emacs-major-version 22)
       (null (featurep 'xemacs))))
(defvar *run-emacs23-p*
  (and (equal emacs-major-version 23)
       (null (featurep 'xemacs))))
(defvar *run-meadow-p* (featurep 'meadow))
(defvar *run-meadow1-p* (and *run-meadow-p* *run-emacs20-p*))
(defvar *run-meadow2-p* (and *run-meadow-p* *run-emacs21-p*))
(defvar *run-meadow3-p* (and *run-meadow-p* *run-emacs22-p*))
(defvar *run-ntemacs-p* (and (not *run-meadow-p*) *run-windows-p*))
(defvar *run-xemacs-p* (featurep 'xemacs))
(defvar *run-xemacs-no-mule-p*
  (and *run-xemacs-p* (not (featurep 'mule))))


;; ===============================================================================
;;
;; Macros(マクロ)
;;
;; ===============================================================================
;; (via: "http://e-arrows.sakura.ne.jp/2010/03/macros-in-emacs-el.html")
;; lambda を書かずに、/'.*/ の次の引数に関数をズラズラ書けます。
(defmacro add-hook-lambda (name &rest body)
  `(add-hook ,name #'(lambda () ,@body)))

;; lambda を書かずに関数をそのまま書くことができる global-set-key です。
(defmacro global-set-key-lambda (key args &rest body)
  `(global-set-key ,key (lambda ,args ,@body)))

;; append して setq します。
(defmacro append-to-list (to list)
  `(setq ,to (append ,list ,to)))

;; ライブラリがあったら require します。
(defmacro require-if-exists (library &rest body)
  `(when (locate-library ,(symbol-name library))
     (require ',library) ,@body))

;; 遅延ロードします。
(defmacro lazyload (func library-name &rest body)
  `(when (locate-library ,library-name)
     ,@(mapcar (lambda (f) `(autoload ',f ,library-name nil t)) func)
     (eval-after-load ,library-name
                      '(progn
                        ,@body))))


;; ===============================================================================
;;
;; User script directory(ユーザースクリプト用ディレクトリ)
;;
;; ===============================================================================
(cond (*run-meadow-p*
       ;; Meadow 用。
       (append-to-list load-path '("c:/usr/editor/meadow/site-lisp/apel"
                                   "c:/usr/editor/meadow/site-lisp/emu")))
      ;; NTEmacs 用。
      (*run-ntemacs-p*
       (append-to-list load-path '("c:/usr/editor/emacs/lisp/apel"
                                   "c:/usr/editor/emacs/site-lisp/emu")))
      ;; Mac OS X 用の Emacs 用。
      (*run-macosx-p*
       (append-to-list load-path '("/opt/local/share/emacs/site-lisp/apel"
                                   "/opt/local/share/emacs/23.2/site-lisp/emu")))
      ;; X 環境、Linux 向け。
      (*run-x-window-system-p*
       (append-to-list load-path '("~/.emacs.d/site-lisp/unix"
                                   "~/.emacs.d/site-lisp/unix/input-method"
                                   "~/.emacs.d/site-lisp/unix/input-method/mozc"))))
;; 共通のライブラリへのパスを追加します。
(append-to-list load-path '("~/.emacs.d/conf"
                            "~/.emacs.d/etc"
                            "~/.emacs.d/site-lisp"
                            "~/.emacs.d/site-lisp/anything"
                            "~/.emacs.d/site-lisp/color-theme"
                            "~/.emacs.d/site-lisp/completion"
                            "~/.emacs.d/site-lisp/csharp"
                            "~/.emacs.d/site-lisp/ecmascript"
                            "~/.emacs.d/site-lisp/elscreen"
                            "~/.emacs.d/site-lisp/languages"
                            "~/.emacs.d/site-lisp/languages/csharp"
                            "~/.emacs.d/site-lisp/languages/ruby"
                            "~/.emacs.d/site-lisp/markdown"
                            "~/.emacs.d/site-lisp/marshal"
                            "~/.emacs.d/site-lisp/org"
                            "~/.emacs.d/site-lisp/textmate"
                            "~/.emacs.d/site-lisp/yasnippet"
                            "~/.emacs.d/site-lisp/zencoding"))


;; ===============================================================================
;;
;; i18n(国際化と地域化)
;;
;; ===============================================================================
;; 日本語環境を指定します。
(set-language-environment "Japanese")

;; メニューを日本語化します。
;; 文字化けする場合は、menu-tree.el をロードする前に menu-tree-coding-system に適当な coding-system をセットします。
(cond (*run-windows-p*
       ;; Windows の時は Shift-JIS にします。
       ;(setq menu-tree-coding-system 'sjis)
       )
      ;; 其れ以外の時は UTF-8 にします。
      (t
       (setq menu-tree-coding-system 'utf-8)))
(require-if-exists menu-tree)
;(require 'menu-tree nil t)


;; ===============================================================================
;;
;; Charset Encoding(文字エンコーディング)
;;
;; ===============================================================================
(if *run-windows-p*
    (progn
      (if (fboundp 'set-w32-system-coding-system)
          (set-w32-system-coding-system 'japanese-shift-jis-dos))
      (if (fboundp 'set-default-coding-sytem)
          (set-default-coding-sytem 'japanese-shift-jis-dos))
      (set-terminal-coding-system 'sjis)
      ;; Windows NT の内部文字コードは UTF-16LE なので、クリップボードのエンコードを utf-16le-dos にしておきます。
      (set-clipboard-coding-system 'utf-16le-dos)
      (set-keyboard-coding-system 'japanese-shift-jis-dos)
      ;; 新規作成するバッファのエンコードを shit-jis にします。
      (prefer-coding-system 'japanese-shift-jis-dos))
  ;; else
  (progn
    (if (fboundp 'set-default-coding-sytem)
        (set-default-coding-sytem 'utf-8))
    (set-terminal-coding-system 'utf-8)
    (set-clipboard-coding-system 'utf-8-unix)
    (set-keyboard-coding-system 'utf-8)
    (prefer-coding-system 'utf-8)))


;; ===============================================================================
;; 
;; Server and Client(サーバとクライアント)
;; 
;; ===============================================================================
;; via: http://aki.issp.u-tokyo.ac.jp/itoh/hiChangeLog/html/clsearch.cgi?from=10&cat=Emacs
(require-if-exists server)
(unless (server-running-p)
  ;; emacsclient からの要求を受け付けるようにします。
  (server-start)
  ;;
  (remove-hook
   'kill-buffer-query-functions
   'server-kill-buffer-query-function))


;; ===============================================================================
;; 
;; Preferences(基本的な設定)
;; 
;; ===============================================================================
;; カレントディレクトリをホームディレクトリに設定
;; ""内は任意のディレクトリを指定可能
(cd "~/")

;; 起動時のメッセージを表示しません。
(setq inhibit-startup-message t)
;;; エラー時に画面がフラッシュするようにします。
;(setq visible-bell t)
(setq ring-bell-function 'ignore)
;;;; フラッシュするのがうざいのでしないようにしました。
;;
;; *-selection
;; 
;; 選択領域を入力で置き換えるようにします。
(delete-selection-mode 1)
;; S-[←→]で範囲を選択できるようになります。
(pc-selection-mode 1)


;; ===============================================================================
;; 
;; System-specific configuration(システム固有設定)
;; 
;; ===============================================================================
;; X システムのクリップボードとキルリングを共有できるようにします。
(if *run-x-window-system-p*
    (setq x-select-enable-clipboard t))


;; ===============================================================================
;;
;; IME configuration(IME 設定)
;;
;; ===============================================================================
(when *run-meadow-p*
  ;; IME のモードごとにカーソル色を変えます。
  (add-hook-lambda 'mw32-ime-on-hook
                   nil
                   (set-cursor-height 4)
                   (set-cursor-color "maroon"))
  (add-hook-lambda 'mw32-ime-off-hook
                   nil
                   (set-cursor-height 4)
                   (set-cursor-color "black"))
  ;; IME を初期化します。
  (mw32-ime-initialize)
  (setq default-input-method "MW32-IME")
  ;; IME ON/OFF mode-line
  (setq mw32-ime-show-mode-line t)
  ;; IME mode-line indicator
  ;; OFF : [--]
  ;; ON  : [あ]
  (setq-default mw32-ime-mode-line-state-indicator "[--]")
  (setq mw32-ime-mode-line-state-indicator "[--]")
  (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))

  ;; IMEの制御(yes/noをタイプするところでは IME を off にします)
  (wrap-function-to-control-ime 'universal-argument t nil)
  (wrap-function-to-control-ime 'read-string nil nil)
  (wrap-function-to-control-ime 'read-char nil nil)
  (wrap-function-to-control-ime 'read-from-minibuffer nil nil)
  (wrap-function-to-control-ime 'y-or-n-p nil nil)
  (wrap-function-to-control-ime 'yes-or-no-p nil nil)
  (wrap-function-to-control-ime 'map-y-or-n-p nil nil)

  (eval-after-load "ange-ftp"
    '(wrap-function-to-control-ime 'ange-ftp-get-passwd nil nil)))
;; linux で X 窓システムなとき。
(when *run-x-window-system-p*
  (require-if-exists mozc
                     (setq default-input-method "japanese-mozc"))
  (global-set-key [zenkaku-hankaku] 'toggle-input-method))


;; ===============================================================================
;;
;; Fonts(フォント)
;;
;; ===============================================================================
;; * フォントの設定
;;
(if *run-meadow-p*
    (progn
      ;; フォントセットを追加します。
      (load "ms-gothic-13.el")

      ;; 起動時および new-frame 時のフレーム(ウィンドウ)の設定。
      (add-to-list 'default-frame-alist '(font . "MS Gothic 13"))
      ;; 現在のフレームの設定(.emacs中では省略可)
      (set-frame-font "MS Gothic 13")

      ;; IME のフォントを設定。こういう書式でないとだめらしい。
      (let ((logfont '(w32-logfont "MS Gothic" 0 0 400 0 nil nil nil 128 1 3 0)))
        (modify-frame-parameters (selected-frame) (list (cons 'ime-font logfont)))
        (add-to-list 'default-frame-alist (cons 'ime-font logfont)))

      (set-face-font 'mode-line "MS Gothic 13")
      (set-face-font 'mode-line-inactive "MS Gothic 13"))
  ;; else
  (let ((default-font-name "ricty")
        (japanese-font-name "ricty")
        (font-size (cond (*run-windows-p* 12)
                         (*run-x-window-system-p* 10)
                         (t 10))))
    (if *run-ntemacs-p*
        (require-if-exists ntemacs-font))
    ;; 標準フォントを指定します。
    (set-default-font (concat default-font-name " " (format "%d" font-size)))

    (set-fontset-font (frame-parameter nil 'font)
                      'japanese-jisx0208
                      (cons japanese-font-name "unicode-bmp"))

    (set-fontset-font (frame-parameter nil 'font)
                      'katakana-jisx0201
                      (cons japanese-font-name "unicode-bmp"))
    ;; 固定等幅フォントを指定します。
    (set-face-attribute 'fixed-pitch nil
                        :family japanese-font-name
                        :height (* font-size 10))
    ;; 可変幅フォントを指定します。
    (set-face-attribute 'variable-pitch nil
                        :family japanese-font-name
                        :height (* font-size 10))))


;; ===============================================================================
;;
;; Display theme(ディスプレイテーマ)
;;
;; ===============================================================================
(when window-system
  ;; 選択範囲に色をつけます。
  (setq-default transient-mark-mode t)
  ;; 選択範囲の色を指定します。
  (set-face-background 'region "#ADC3E8")
  (set-face-foreground 'region "black")

  ;;(lazyload (faces-list-mode)
  ;;          (list-faces-display))
  (require-if-exists color-theme)

  ;; カーソルを縦棒にします。
  (if (fboundp 'set-cursor-type)
      (set-cursor-type 'hairline-caret)
    ;; else
    (if *run-meadow3-p*
        (add-to-list 'default-frame-alist '(cursor-type . hairline-caret))
      ;; else
      ;;(add-to-list 'default-frame-alist '(cursor-type (bar . 5))))
      (add-to-list 'default-frame-alist '(cursor-type . bar))))
  ;; カーソルの色をちょっとだけ灰色にします。
  (set-cursor-color "gray33")

  ;; フレームのアルファ値です。
  (setq frame-alpha 85)

  ;;
  ;; ** フレーム透過設定
  (if *run-meadow3-p*
      ;; カレントウィンドウ(ウィンドウ全体？)の透明度です。
      (set-frame-parameter nil 'alpha frame-alpha)
    ;; デフォルトの透明度です。
    (add-to-list 'default-frame-alist (cons 'alpha frame-alpha)))

  ;; 一行あたりの文字数は 170 です。
  (add-to-list 'default-frame-alist '(width . 170))
  ;; 20 行を表示します。
  (add-to-list 'default-frame-alist '(height . 20))
  ;; ディスプレイのX座標(ピクセル)
  (add-to-list 'default-frame-alist '(top . 5))
  ;; ディスプレイのY座標(ピクセル)
  (add-to-list 'default-frame-alist '(left . 5))

  ;; 背景色を白にします。
  (add-to-list 'default-frame-alist '(background-color . "white"))
  ;; 文字の色を黒にします。
  (add-to-list 'default-frame-alist '(foreground-color . "black"))

  ;; モードラインの文字色。
  (set-face-foreground 'mode-line "white")
  ;; モードラインの背景色。
  (set-face-background 'mode-line "black")

  ;;
  ;; *** アクティブでないモードラインの文字、背景色
  ;; Meadow 2 では定義されていないようです。
  ;;
  (when (not *run-meadow2-p*)
    ;; アクティブでないモードラインの文字色。
    (set-face-foreground 'mode-line-inactive "gray30")
    ;; アクティブでないモードラインの背景色。
    (set-face-background 'mode-line-inactive "gray85")))


;; ===============================================================================
;;
;; Highlights(ハイライト)
;;
;; ===============================================================================
(when window-system
  ;; キーワードのカラー表示を有効化します。
  (global-font-lock-mode t)

  ;; コメント
  (set-face-foreground 'font-lock-comment-face "gray55")
  ;; コメントドキュメント
  (set-face-foreground 'font-lock-doc-face "gray45")
  ;; キーワード
  (set-face-foreground 'font-lock-keyword-face "green4")
  ;; キーワードを太文字にします。
  (make-face-bold 'font-lock-keyword-face)
  ;; 関数名
  (set-face-foreground 'font-lock-function-name-face "dark olive green")
  ;; 関数名を太文字にします。
  (make-face-bold 'font-lock-function-name-face)
  ;; 変数
  (set-face-foreground 'font-lock-variable-name-face "gray23")
  ;; 文字列
  (set-face-foreground 'font-lock-string-face "blue")
  ;; 定数
  (set-face-foreground 'font-lock-constant-face "dark green")
  ;; 変数の型
  (set-face-foreground 'font-lock-type-face "forest green")
  ;; シンボル
  (set-face-foreground 'font-lock-builtin-face "MediumPurple3")
  ;; シンボルを太文字にします。
  (make-face-bold 'font-lock-builtin-face)
  ;; プリプロセッサ
  (set-face-foreground font-lock-preprocessor-face "MediumPurple2")
  ;; わーにんぐふぇいす？
  (set-face-foreground 'font-lock-warning-face "LightSteelBlue4")

  ;; ハイライトの文字色。
  (set-face-foreground 'highlight "gray88")
  ;; ハイライトの背景色。
  (set-face-background 'highlight "white"))


;; ===============================================================================
;;
;; Highlights parentheses(括弧のハイライト)
;;
;; ===============================================================================
;; 対応するカッコをハイライト表示します。
(show-paren-mode 1)

;(require 'paren)
;(set-face-background 'show-paren-match-face (face-background 'default))
(set-face-background 'show-paren-match-face "gray85")
;(set-face-foreground 'show-paren-match-face "#def")
;(set-face-attribute 'show-paren-match-face nil :weight 'extra-bold)


;; ===============================================================================
;;
;; Setting the title bar and toolbar(タイトルバーとツールバーの設定)
;;
;; ===============================================================================
;; 現在選択中のバッファがファイルからできているかどうか判別します。
(defun is-selected-buffer-from-file ()
  "現在選択中のバッファがファイルからできているかどうか判別します。"
  (let ((selected-buffer-filename (buffer-file-name))
        (selected-buffer-name (buffer-name)))
    (if selected-buffer-filename t nil)))

(when *run-meadow-p*
  ;; タイトルキャプションを更新します。
  (defun update-title-caption ()
    "タイトルキャプションを更新します。"
    (setq about-meadow (let* ((meadow-about-text (car (split-string (Meadow-version) " ")))
                              (first-hyphen (string-match "-" meadow-about-text)))
                         (store-substring meadow-about-text first-hyphen " ")))
    (setq frame-title-format
          (list (if (is-selected-buffer-from-file) "%f" "%b") " - " about-meadow "@" (system-name))))
  ;; とりあえずタイトル更新。
  (update-title-caption))

(when (not *run-meadow-p*)
  (defun update-title-caption ()
    "タイトルキャプションを更新します。"
    (setq frame-title-format (let ((file-name (buffer-file-name))
                                   (name (buffer-name)))
                               (if file-name
                                   (concat "%f - " invocation-name " " emacs-version "@" system-name)
                                 (concat "%b - " invocation-name " " emacs-version "@" system-name)))))
  (update-title-caption))
;;; %f だと、フルパス名。 %b ならバッファの名前。

;; 現在は meadow 用に update-title-caption 関数を定義していますが、
;; 他の Emacen では定義していないので、ガード句でくるんでいます。
;; meadow 以外でも同じようにしたい場合は 同じ名前の関数を定義してください。
(if (fboundp 'update-title-caption)
    ;; switch-to-buffer の後に frame-title-format の値を更新します。
    (defadvice switch-to-buffer
               (after switch-to-buffer-after-update-the-title-captions first () activate)
               (message (buffer-name))
               (update-title-caption)))


;; ===============================================================================
;;
;; Highlight cursor line(カーソル行ハイライト)
;;
;; ===============================================================================
;; カーソルのある行をハイライトします。
(setq hl-line-face 'underline)
(global-hl-line-mode)

(defface hlline-face
         '((((class color)
             (background dark))
            (:background "blue" :foreground "white"))
           (((class color)
             (background light))
            (:background "AliceBlue"))
           (t
            ()))
         "*Face used by hl-line.")
(setq hl-line-face 'hlline-face)


;; ===============================================================================
;;
;; Scrolling(スクロール)
;;
;; ===============================================================================
;; ウィンドウの一番下にカーソルがある場合、そこから下に移動したときに何行スクロールするかの設定です。
;; 以下は 15 行の場合。
;; line-setting
(setq next-line-add-newlines nil)
(when (not next-line-add-newlines)
  (line-number-mode 15)
  (column-number-mode 15))

;; スクロール行単位を 1 行にします。
(setq-default scroll-step 1)
;; 画面をはみ出す場合に 1 行だけスクロールするようにします。
(setq-default scroll-conservatively 1)
;; カーソルを一番上か一番下まで持っていけます。
(setq-default scroll-margin 0)
;;
;; カーソルが右端、もしくは左端からはみ出したときに自動で横方向にスクロールします。
(setq-default truncate-lines t)
;; カーソルがどのくらいまで窓の端に近づいたらスクロールするかを指定します。
;(setq-default hscroll-margin 0)
;; スクロールの際にどの程度スクロールさせるかを指定します。
;(setq-default hscroll-step-percent 1)

;; スクロールバーを右側に置きます。
(set-scroll-bar-mode 'right)

;; 
;; ホイールでも 1 行ずつスクロールするようにします。
;; 
(global-set-key [wheel-up]
                '(lambda () "" (interactive) (scroll-down scroll-step)))
(global-set-key [wheel-down]
                '(lambda () "" (interactive) (scroll-up scroll-step)))
(global-set-key [double-wheel-up]
                '(lambda () "" (interactive) (scroll-down (* scroll-step 2))))
(global-set-key [double-wheel-down]
                '(lambda () "" (interactive) (scroll-up (* scroll-step 2))))
(global-set-key [triple-wheel-up]
                '(lambda () "" (interactive) (scroll-down (* scroll-step 3))))
(global-set-key [triple-wheel-down]
                '(lambda () "" (interactive) (scroll-up (* scroll-step 3))))


;; ===============================================================================
;;
;; Fringe(フリンジ)
;;
;; ===============================================================================

(setq-default indicate-buffer-boundaries 'left)
;; 右フリンジの上下にマークをつける
(setq-default indicate-buffer-boundaries 'right)

;; 左フリンジの上と右フリンジの下にマークをつける
(setq-default indicate-buffer-boundaries '((top . left) (t . right)))
;; 右フリンジの上と左フリンジの下にマークをつける
(setq-default indicate-buffer-boundaries '((top . right) (t . left)))
;; 右フリンジの上にのみマークをつける
(setq-default indicate-buffer-boundaries '((top . right) (t . nil)))


;; ===============================================================================
;;
;; Key binds(キー割り当て)
;;
;; ===============================================================================
;; i-search for japanese
(define-key isearch-mode-map (kbd "C-k") 'isearch-edit-string)

;; M-g で指定行にカーソルを飛ばします。
(global-set-key (kbd "M-g")
                '(lambda (x)
                  (interactive "Line to goto: ")
                  (goto-line x)))
;; C-\ でアンドゥできるようにします。
(global-set-key (kbd "C-\\") 'undo)

;; *** comment/uncomment-regeon
;; C-x ; でコメントアウト
;; C-x : でコメントをはずす
(global-set-key (kbd "C-x ;") 'comment-region)
(fset 'uncomment-region "\C-u\C-[xcomment-region\C-m")
(global-set-key (kbd "C-x :") 'uncomment-region)

;; 自動インデントを行ないます。
(global-set-key (kbd "C-m") 'newline-and-indent)
(global-set-key (kbd "C-j") 'newline)
;; 最近使ったファイルを別のバッファ領域に表示します。
(define-key global-map (kbd "C-c r") 'recentf-open-files)


;; ===============================================================================
;;
;; Useful functions(便利関数)
;;
;; ===============================================================================
;; ** [EOF] を表示します。
;;
(if *run-meadow1-p*
    (progn
      ;; Meadow 1.99 なら以下のようにすると同じことができるようです。
      (defun set-buffer-end-mark1()
        "At the end of the buffer [EOF] padding. This string can not be edited to be reflected in the file."
        (let ((overlay (make-overlay (point-max) (point-max))))
          (overlay-put overlay 'before-string #("[EOF]" 0 5 (face highlight)))
          (overlay-put overlay 'insert-behind-hooks
                       '((lambda (overlay after beg end &optional len)
                           (when after
                             (move-overlay overlay (point-max) (point-max))))))))
      (add-hook 'find-file-hooks 'set-buffer-end-mark1))
  ;; else
  (progn
    ;; あるいは
    (defun set-buffer-end-mark2()
      "At the end of the buffer [EOF] padding. This string can not be edited to be reflected in the file."
      (let ((overlay (make-overlay (point-max) (point-max))))
        (overlay-put overlay 'before-string #("[EOF]" 0 5 (face highlight)))
        (overlay-put overlay 'insert-behind-hooks
                     '((lambda (overlay after beg end &optional len)
                         (when after
                           (move-overlay overlay (point-max) (point-max))))))))
    (add-hook 'find-file-hooks 'set-buffer-end-mark2)))
;; でもいい。


;; ** スクリプトを保存する時，自動的に chmod +x を行なうようにする
;;
;; 次のようなコードを ~/.emacs に加えておくと、
;; + ファイルの先頭に #! で始まる行が含まれている
;; + ファイル名の先頭がピリオド以外
;; の場合，実行用のスクリプトファイルであると見なして、保存時に実行許可属性を自動的に設定します。
(defun make-file-executable ()
  "Make the file of this buffer executable, when it is a script source."
  (save-restriction
    (widen)
    (if (string= "#!" (buffer-substring-no-properties 1 (min 3 (point-max))))
        (let ((name (buffer-file-name)))
          (or (equal ?. (string-to-char (file-name-nondirectory name)))
              (let ((mode (file-modes name)))
                (set-file-modes name (logior mode (logand (/ mode 4) 73)))
                (message (concat "Wrote " name " (+x)"))))))))
(add-hook 'after-save-hook 'make-file-executable)


;; 日付を挿入します。
(defun insert-iso8601format-datetime ()
  "Insert the date the current cursor location."
  (interactive)
  (insert (let ((time-zone (format-time-string "%Z"))
                (iso8601-text (format-time-string "%Y-%m-%dT%H:%M:%S%Z")))
            (if (equal time-zone "")
                (concat iso8601-text (car (cdr (current-time-zone))))
              iso8601-text))))
(global-set-key (kbd "C-x t d") 'insert-iso8601format-datetime)


;; 現在選択中のバッファのファイル名、あるいはバッファ名を返します。
(defun get-selected-buffer-name ()
  "現在選択中のバッファのファイル名、あるいはバッファ名を返します。"
  (interactive)
  (let ((selected-buffer-filename (buffer-file-name ))
        (selected-buffer-name (buffer-name)))
    (if (not selected-buffer-filename)
        selected-buffer-name
      ;; else
      selected-buffer-filename)))
(global-set-key (kbd "C-x v f") 'get-selected-buffer-name)


;; テンポラリバッファを作成し、それをウィンドウに表示します。
(defun create-temporary-buffer ()
  "テンポラリバッファを作成し、それをウィンドウに表示します。"
  (interactive)
  ;; *temp* なバッファを作成し、それをウィンドウに表示します。
  (switch-to-buffer (generate-new-buffer "*temp*"))
  ;; セーブが必要ないことを指定します？
  (setq buffer-offer-save nil))
;; C-c t でテンポラリバッファを作成します。
(global-set-key (kbd "C-c t") 'create-temporary-buffer)

;; *scratch* バッファは簡単な処理に便利なバッファです。
;; しかし，そのバッファの内容を 別名で保存したり、kill したりすると，*scratch*バッファが消えてしまい，また作らないといけません。
;; 面倒です。 
;; そこで，以下のような設定が便利です。これを入れておくと、*scratch*バッファを C-x C-s で保存時には *scratch* バッファを作成してくれます。
;; また，C-x k で kill すると，*scratch*バッファの内容をすべて消してくれます。 非常に便利です。
(defun bookshelf-make-scratch (&optional arg)
  (interactive)
  (progn
    ;; "*scratch*" を作成して buffer-list に放り込む
    (set-buffer (get-buffer-create "*scratch*"))
    (funcall initial-major-mode)
    (erase-buffer)
    (when (and initial-scratch-message (not inhibit-startup-message))
      (insert initial-scratch-message))
    (or arg (progn (setq arg 0)
                   (switch-to-buffer "*scratch*")))
    (cond ((= arg 0) (message "*scratch* is cleared up."))
          ((= arg 1) (message "another *scratch* is created")))))

(defun bookshelf-buffer-name-list ()
  (mapcar (function buffer-name) (buffer-list)))

(add-hook 'kill-buffer-query-functions
          ;; *scratch* バッファで kill-buffer したら内容を消去するだけにする
          (function (lambda ()
                      (if (string= "*scratch*" (buffer-name))
                          (progn (bookshelf-make-scratch 0) nil)
                        t))))
(add-hook 'after-save-hook
          ;; *scratch* バッファの内容を保存したら *scratch* バッファを新しく作る
          (function (lambda ()
                      (unless (member "*scratch*" (bookshelf-buffer-name-list))
                        (bookshelf-make-scratch 1)))))


(defun progression (start interval n)
  "初項 start、公差 interval の長さ n の等差数列を返します。"
  (cond ( (zerop n) nil)
        (t (cons start
                 (progression (+ start interval)
                              interval (1- n))))))

;; カーソル位置のフェースを調べる関数です。(via: http://d.hatena.ne.jp/whitypig/20090401/1238553652)
(defun describe-face-at-point ()
  "Return face used at point."
  (interactive)
  (message "%s" (get-char-property (point) 'face)))


;; ===============================================================================
;;
;; SHELL(M-x shell のときの設定)
;;
;; ===============================================================================
(when *run-windows-p*
  ;; MSYS の bash を使用します。
  (setq explicit-shell-file-name "bash.exe")
  (setq shell-file-name "sh.exe")

  ;; 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_^$!#%&{}@`'.,:()-")

  ;; shell-modeで上下で補完しモード。
  (setq shell-mode-hook
        (function (lambda ()
                    (define-key shell-mode-map [up] 'comint-previous-input)
                    (define-key shell-mode-map [down]
                                'comint-next-input)))))


;; ===============================================================================
;;
;; Language mode(各言語モード)
;;
;; ===============================================================================
;; 通常のインデントで半角スペースを使います。
(setq-default indent-tabs-mode nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Windows 固有ファイル用のモードを追加します。
;;
(when *run-windows-p*
  ;;(require-if-exists generic-x)

  (if (and (fboundp 'bat-generic-mode)
           (fboundp 'ini-generic-mode))
      ;; が、Meadow3 ではこれらのモードが無いため、出来ませんでした。
      ;; 任意のシンボルに関数用のスロットが存在するかどうかを確かめるには fboundp を使います。
      (append-to-list auto-mode-alist '(("\\.bat$" . bat-generic-mode)
                                        ("\\.ini$ ." ini-generic-mode)))
    ;; else
     (progn
       (require-if-exists any-ini-mode
                          ;; any-ini-mode
                          (append-to-list auto-mode-alist '(("\\.ini$" . any-ini-mode)
                                                            ("\\.conf$" . any-ini-mode))))
       (require-if-exists bat-mode
                          ;; bat-mode
                          (append-to-list auto-mode-alist '(("\\.[Bb][Aa][Tt]$" . bat-mode)
                                                            ;; For DOS init files
                                                            ("CONFIG\\." . bat-mode)
                                                            ("AUTOEXEC\\." . bat-mode))))
       ;(autoload 'bat-mode "bat-mode" "DOS and Windows BAT files" t)
       (lazyload (bat-mode) "bat-mode"))))

;; visual basic もーど。
;;(autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t)
(push '("\\.frm$" . visual-basic-mode) auto-mode-alist)
(push '("\\.bas$" . visual-basic-mode) auto-mode-alist)
(push '("\\.vb$" . visual-basic-mode) auto-mode-alist)
(push '("\\.cls$" . visual-basic-mode) auto-mode-alist)
(lazyload (visual-basic-mode) "visual-basic-mode")
;; 
;; Ruby
;(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files" t)
(lazyload (ruby-mode) "ruby-mode"
          (push '("\\.rb$" . ruby-mode) auto-mode-alist)
          (push '("ruby" . ruby-mode) interpreter-mode-alist))
;; HTML
(add-hook-lambda 'sgml-mode-hook
                 ;; タグなどのインデントを 1 にします。
                 (setq sgml-basic-offset 1))
;; espresso モード。
(require-if-exists espresso)
;; ECMA Scrirpt
(require-if-exists ecmascript-mode
                   (append-to-list auto-mode-alist '(("\\.es$" . ecmascript-mode)
                                                     ("\\.js$" . ecmascript-mode))))

(push '("\\.json$" . espresso-mode) auto-mode-alist)
;; エスプレッソ。
(lazyload (espresso-mode) "espresso")
(require-if-exists js2-mode
          ;; Javascript もーど。
          ;; 何故か js2-mode が効かないので、とりあえず ecmascript-mode を割り当てています。
          (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))          

          (add-hook-lambda 'js2-mode-hook 
                       (require-if-exists 'espresso)
                       (setq espresso-indent-level 4
                             ;; 保存時に行末の空白を削除しません。
                             js2-cleanup-white-space nil
                             ;; 開き括弧の入力の際に、閉じ括弧を自動で入力しません。
                             js2-mirror-mode nil
                             js2-bounce-indent-flag nil
                             indent-tabs-mode nil
                             c-basic-offset 4)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; C 言語系言語用のベース設定。
;;
(add-hook-lambda 'c-mode-common-hook
 ;; cc-mode スタイルにします。
 (c-set-style "cc-mode")
 ;; インデントは空白文字で行ないます。
 (setq indent-tabs-mode nil)
 ;; `;' を押すと自動で改行されるようにします。
 (setq c-auto-newline nil)
 ;; タブキーでインデントを行います。
 (setq c-tab-always-indent t)
 ;; タブ幅を 4 にします。
 (setq tab-width 4)
 ;; インデントを tab-width と同じにします。
 (setq c-indent-level tab-width)
 ;; コメントだけの行も 0 にします。
 (setq c-comment-only-line-offset 0)

 ;; 引数リストの閉じ括弧もインデントします。
 (c-set-offset 'arglist-close 0)
 ;; public などのアクセス修飾子は -3 インデントします。
 (c-set-offset 'access-label -3)
 ;; switch 構文のラベルは c++-basic-offset だけインデントします。
 (c-set-offset 'case-label '+)
 ;; 継続行は c++-basic-offset 分のインデントを行います。
 (c-set-offset 'statement-cont '+)
 ;; クラスのメンバー初期化リストの 1 行目は c++-basic-offset 分インデントします。
 (c-set-offset 'member-init-intro '+))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; C++ support
;;
(add-hook-lambda
 'c++-mode-hook
 ;; 標準オフセットを tab-width と同じにします。
 (setq c++-basic-offset tab-width))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Objective-C support
;;
(add-to-list 'magic-mode-alist '("\\(.\\|\n\\)*\n@implementation" . objc-mode))
(add-to-list 'magic-mode-alist '("\\(.\\|\n\\)*\n@interface" . objc-mode))
(add-to-list 'magic-mode-alist '("\\(.\\|\n\\)*\n@protocol" . objc-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; C# support
;;
;(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
(require-if-exists vala-mode)
(push '("\\.cs$" . vala-mode) auto-mode-alist)
;; (lazyload (vala-mode) "vala-mode"
;;           (add-hook 'vala-mode 'my-c/c++-mode))
;; (lazyload (csharp-mode) "csharp-mode"
;;           (add-hook 'csharp-mode-hook 'my-c/c++-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Smalltalk support
;;
(require-if-exists smalltalk-mode)
(push '("\\.st$" . smalltalk-mode) auto-mode-alist)


;; ===============================================================================
;;
;; Line number(行番号)
;;
;; ===============================================================================
;;; 行番号・桁番号をモードラインに表示する・しない設定
(line-number-mode t)   ;; 行番号。t なら表示、nil なら非表示
(column-number-mode t) ;; 桁番号。t なら表示、nil なら非表示
;;
;; ** 行番号をデフォルトで表示します。
;;
(if (>= emacs-major-version 22)
    ;; 23 以上から linum.el が入っているので要りませんが、Meadow3 は 22 なので
    ;; require-if-exists が必要です。
    (require-if-exists linum))
(require-if-exists linum+)
;; デフォルトで linum-mode を有効にします。
(add-hook-lambda 'find-file-hook nil
                 (linum-mode 1))
(global-linum-mode 1)
;; 7 桁分の領域を確保して行番号を入れます。
(setq linum-format "%7d")


;; ===============================================================================
;;
;; Time stamp(ファイル更新日)
;;
;; ===============================================================================
(require-if-exists time-stamp
                   (add-hook 'before-save-hook 'time-stamp)
                   (setq time-stamp-active t)
                   (setq time-stamp-start "@date ")
                   (setq time-stamp-format "%04y-%02m-%02d")
                   (setq time-stamp-end " \\|$"))


;; ===============================================================================
;;
;; Toolbar(ツールバー)
;;
;; ===============================================================================
;; ツールバーを表示しないようにします。
(tool-bar-mode -1)
(require-if-exists tool-bar+)


;; ===============================================================================
;;
;; Mode line Date display(モードラインの時刻表示)
;;
;; ===============================================================================
;; 時刻のフォーマット。
(setq display-time-string-forms
      '((let ((system-time-locale "C"))
          (format-time-string "%Y-%m-%dT%H:%M"))))
;; モードラインに現在時刻を表示します。
(if *run-meadow-p*
    (display-time)
  ;; else
  (display-time-mode 1))


;; ===============================================================================
;;
;; Git VCS
;;
;; ===============================================================================
(require-if-exists magit)


;; ===============================================================================
;;
;; Textmate
;;
;; ===============================================================================
;; Textmate モードです。
;(require-if-exists textmate
;                   (textmate-mode))


;; ===============================================================================
;;
;; Zen Coding
;;
;; ===============================================================================
(require-if-exists zencoding-mode
                   (add-hook 'sgml-mode-hook 'zencoding-mode)
                   (add-hook 'html-mode-hook 'zencoding-mode)
                   (add-hook 'text-mode-hook 'zencoding-mode))


;; ===============================================================================
;;
;; YASnippet
;;
;; ===============================================================================
;; スニペットの位置を設定します。
(setq yas/root-directory "~/.emacs.d/site-lisp/yasnippet/snippets")
;;(setq yas/root-directory '("~/.emacs.d/site-lisp/yasnippet/snippets"))
(require-if-exists yasnippet ;; not yasnippet-bundle
                   (yas/initialize)
                   ;;(mapc 'yas/load-directory yas/root-directory)
                   (yas/load-directory yas/root-directory))


;; ===============================================================================
;;
;; ELScreen
;;
;; ===============================================================================
(require-if-exists elscreen)
(require-if-exists elscreen-server)


;; ===============================================================================
;;
;; Markdown
;;
;; ===============================================================================
(push '("\\.md$" . markdown-mode) auto-mode-alist)
(push '("\\.markdown$" . markdown-mode) auto-mode-alist)
(lazyload (markdown-mode) "markdown-mode")


;; ===============================================================================
;;
;; Gauche
;;
;; ===============================================================================
(setq process-coding-system-alist
      (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
(setq scheme-program-name "gosh -i")
(autoload 'scheme-mode "scheme-mode" "Major mode for Shceme." t)
(autoload 'run-scheme "run-scheme" "Run an inferior Scheme process." t)


;; ===============================================================================
;;
;; Session
;;
;; ===============================================================================
(require-if-exists session
                   ;; (via: http://d.hatena.ne.jp/gan2/20070624/1182686652)
                   (setq session-initialize '(de-sageplace session keys menus places)
                         session-globals-include '((kill-ring 50)
                                                   (session-file-alist 500 t)
                                                   (file-name-history 10000)))
                   ;; これがないと file-name-history に 500 個保存するまえに max-string に達します。
                   (setq session-globals-max-string 1000000)
                   ;; デフォルトでは 30 です。
                   (setq history-length t)
                   ;; セッションファイルは ~/ に作成します。
                   (setq session-save-file "~/.session")
                   ;; 初期化後に呼び出されるフックにセッションの初期化用関数を引っ掛けます。
                   (add-hook 'after-init-hook 'session-initialize)
                   ;; 前回閉じたときの位置にカーソルを復帰するようにします。
                   (setq session-undo-check -1))


;; ===============================================================================
;;
;; org-mode
;;
;; ===============================================================================
(setq org-directory "~/var/memo")
(require-if-exists org-mode
                   (setq org-startup-truncated nil)
                   (setq org-return-follows-link t)
                   (push 'auto-mode-alist '("\\.org$" . org-mode))
                   ;;(org-remember-insinuate)
                   (setq org-export-default-language "ja")
                   (setq org-default-notes-file (concat org-directory "/agenda.org"))
                   (setq org-remember-templates
                         '(("Todo" ?t "** TODO %?\n   %i\n   %a\n   %t" nil "Inbox")
                           ("Bug" ?b "** TODO %?   :bug:\n   %i\n   %a\n   %t" nil "Inbox")
                           ("Idea" ?i "** %?\n   %i\n   %a\n   %t" nil "New Ideas")))

                   (set-face-foreground 'org-level-1 "#7fb000")
                   (set-face-foreground 'org-level-2 "#7f9142")
                   (set-face-foreground 'org-level-3 "#00379c")
                   (set-face-foreground 'org-level-4 "#212ca4")
                   (set-face-foreground 'org-level-5 "#6a40ad")
                   (set-face-foreground 'org-level-6 "#8c3e13")
                   (set-face-attribute 'org-document-title nil  :height 1.0))


;; ===============================================================================
;;
;; anything
;;
;; ===============================================================================
(require-if-exists anything-config
                   (setq anything-sources (list anything-c-source-buffers
                                                anything-c-source-bookmarks
                                                anything-c-source-recentf
                                                anything-c-source-file-name-history
                                                anything-c-source-locate))
                   (define-key anything-map (kbd "C-p") 'anything-previous-line)
                   (define-key anything-map (kbd "C-n") 'anything-next-line)
                   (define-key anything-map (kbd "C-v") 'anything-next-source)
                   (define-key anything-map (kbd "M-v") 'anything-previous-source)
                   (global-set-key (kbd "C-;") 'anything))


;; ;; ===============================================================================
;; ;;
;; ;; auto install
;; ;;
;; ;; ===============================================================================
;; (require-if-exists auto-install
;;                    ;; ~/.emacs.d/site-lisp にインストールします。
;;                    (setq auto-install-directory "~/.emacs.d/site-lisp")
;;                    (auto-install-update-emacswiki-package-name t)
;;                    ;; 互換性確保用の関数を呼び出します。
;;                    (auto-install-compatibility-setup))


;; ===============================================================================
;;
;; htmlize
;;
;; ===============================================================================
(require-if-exists htmlize)


;; ===============================================================================
;;
;; Template(テンプレート)
;;
;; ===============================================================================
;; テンプレートを置いておくディレクトリを指定します。
(if *run-windows-p*
    (setq auto-insert-directory "c:/usr/share/templates")
  ;; else
  (setq auto-insert-directory "~/Templates/insert/"))
;; 各ファイルによってテンプレートを切り替えるようにします。
(setq auto-insert-alist
      '(("\\.cpp$" ["template.cpp" my-template])
        ("\\.h$" ["template.h" my-template])
        ("\\.hxx$" ["template.hxx" my-template])
        ("\\.html$" ["template.html" my-template])))
(defvar template-replacements-alists
  '(("%file%"             . (lambda ()
                              (file-name-nondirectory (buffer-file-name))))
    ("%file-without-ext%" . (lambda ()
                              (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))))
    ("%include-guard%"    . (lambda ()
                              (format "%s_h" (downcase (file-name-sans-extension
                                                        (file-name-nondirectory buffer-file-name))))))))

(defun my-template ()
  (time-stamp)
  (mapc #'(lambda(c)
        (progn
          (goto-char (point-min))
          (replace-string (car c) (funcall (cdr c)) nil)))
    template-replacements-alists)
  (goto-char (point-max))
  (message "done."))
(add-hook 'find-file-not-found-hooks 'auto-insert)


;; ===============================================================================
;;
;; Backup file(バックアップファイル)
;;
;; ===============================================================================
;; オートセーブを有効にします。
(auto-save-mode t)
;; バックアップファイルを作ります。
(setq backup-inhibited nil)

;; 簡易バージョンコントロール機能を有効にします。
(setq version-control t)

(when version-control
  ;; 新しいものを 6 つまで残すようにします。
  (setq kept-new-versions 6)
  ;; 古いものを 6 つまで残すようにします。
  (setq kept-old-versions 6)
  ;; 古いバージョンを消す際に尋ねないようにします。
  (setq delete-old-versions t))

;; 終了時にオートセーブファイルが削除されません。
(setq delete-auto-save-files nil)


;; ===============================================================================
;;
;; Miscellaneous Settings(雑多な設定)
;;
;; ===============================================================================
;; 最近使ったファイルの一覧を表示します。
(recentf-mode t)
;; メニューに表示するファイル名を 10 までにします。
(setq recentf-max-menu-items 10)
;; 最大 15 ファイルまで記録します。
(setq recentf-max-saved-items 15)

;; 他のプロセスによって変更されたとき、バッファをリロードします。
(global-auto-revert-mode t)

;; auto-fill モードを使用します。
(setq-default auto-fill-function 'do-auto-fill)

;; キー入力を記憶しておきます。
(open-dribble-file "~/.emacs_dribble")

;; 70 字目で自動的に改行されないようにします。
;; これでも駄目なときは M-x set-fill-column RET 300 を実行してください。
(setq-default fill-column 300)

;; タブ文字による空白を 4 つにします。
(setq-default default-tab-width 4
              tab-width default-tab-width
              tab-stop-list (progression 4 4 120))

;; 空白だけで字下げを行うようにします。
(setq-default indent-tabs-mode nil)

;;(put 'upcase-region 'disabled nil)