Meadow3に乗り換えて、.emacsを整理しよう

Emacs 22ベースのMeadow3を使うことにした。Meadow3だと設定が少なくて済みそうだ（おそらく）。.emacsにあまり色々書くとゴチャゴチャしてわけわからなくなるので、最小限の設定だけにしたい。何が最小限かまだハッキリしないので、とりあえず次のようにして、.emacs.Meadow3を徐々に書き足すことにした。

;; loading version specific .emacs

(let ((version-specific-dot-emacs)) 

  (cond

   ((featurep 'meadow)

    ;; Meadow

    (let ((ver (Meadow-version)))

      (setq version-specific-dot-emacs 

            (expand-file-name

             (cond 

              ((eq (string-match "Meadow-3" ver) 0) "~/.emacs.Meadow3")

              ((eq (string-match "Meadow-2" ver) 0) "~/.emacs.Meadow2")

              (t ""))))))

  (t

   ;; not Meadow

   (setq version-specific-dot-emacs 

         (expand-file-name "~/.emacs.Other"))))

  (if (file-exists-p version-specific-dot-emacs)

      (progn

        (message (format "Loading %s ..." version-specific-dot-emacs))

        (load-file version-specific-dot-emacs)

        (message (format "Loading %s ... done"

                         version-specific-dot-emacs)))))

~/.emacs.Otherは実際に使っているわけではない。messageは、しばらくしたら削除するだろう。