1 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
2 | ;; FSF Emacs 20/21/22, XEmacs 用ユーザ設定ファイル |
---|
3 | ;; Munehiro Yamamoto <munepi@cg8.so-net.ne.jp> |
---|
4 | ;; $Id: .emacs,v 1.5 2009/04/20 18:32:24 daisuke Exp $ |
---|
5 | ;; |
---|
6 | ;; based on |
---|
7 | ;; MATSUBAYASHI 'Shaolin' Kohji (shaolin@vinelinux.org) |
---|
8 | ;; Irokawa '烈風戦士' Hiroaki (irorin@terra.dti.ne.jp) |
---|
9 | ;; Time-stamp: <2009-04-05 10:32:43 munepi> |
---|
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
11 | |
---|
12 | ;;; !!! 注意 !!! |
---|
13 | ;; このユーザ設定ファイルは、旧版(obsolete)です。 |
---|
14 | ;; |
---|
15 | ;; - Emacs 23 は起動時に .emacs を読まずに、.emacs.el を読みます。 |
---|
16 | ;; - Emacs 22 は起動時に .emacs と .emacs.el があると、 |
---|
17 | ;; .emacs.el を優先して読みます。 |
---|
18 | |
---|
19 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
20 | ;; Emacs 20/21/22 か XEmacs かの判定 |
---|
21 | ;; ここで Emacs 20/21/22 用、XEmacs 用の設定ファイルを切替えます。 |
---|
22 | ;; |
---|
23 | ;; ~/.emacs21.el - Emacs 20/21 用設定ファイル |
---|
24 | ;; ~/.emacs22.el - Emacs 22 用設定ファイル |
---|
25 | ;; ~/.xemacs.el - XEmacs-21.1 用設定ファイル |
---|
26 | ;; ~/.xemacs/init.el - XEmacs 用設定ファイル |
---|
27 | |
---|
28 | (if (string-match "XEmacs" emacs-version) |
---|
29 | ;;; XEmacs のバージョン判定 |
---|
30 | (progn |
---|
31 | (if (string-match "21.1" emacs-version) |
---|
32 | (load (expand-file-name "~/.xemacs.el") nil t nil) |
---|
33 | (load (expand-file-name "~/.xemacs/init.el") nil t nil)}) |
---|
34 | ) |
---|
35 | ;;; FSF Emacs のバージョン判定 |
---|
36 | (progn |
---|
37 | (cond |
---|
38 | ((string-match "^21\." emacs-version) |
---|
39 | (load (expand-file-name "~/.emacs21.el") nil t nil)) |
---|
40 | ((string-match "^22\." emacs-version) |
---|
41 | (load (expand-file-name "~/.emacs22.el") nil t nil)) |
---|
42 | ;;; 以下のように Emacs 23 用の設定ファイルを指定しても無効です。 |
---|
43 | ;; ((string-match "^23\." emacs-version) |
---|
44 | ;; (load (expand-file-name "~/.emacs23.el") nil t nil)) |
---|
45 | ) |
---|
46 | ) |
---|
47 | ) |
---|
48 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
---|
49 | |
---|
50 | ;; Local Variables: |
---|
51 | ;; mode: emacs-lisp |
---|
52 | ;; End: |
---|