]>
Commit | Line | Data |
---|---|---|
1 | ; simple function to check if (x)emacs is supporting mule | |
2 | (defun mule? () | |
3 | "" | |
4 | (string-match "--with-mule" system-configuration-options) | |
5 | ) | |
6 | ||
7 | (if (string-match "^pl.*" (or (getenv "LC_CTYPE") (getenv "LC_ALL") (getenv "LANG") "C")) | |
8 | (if (mule?) | |
9 | (load "ogony-mule") | |
10 | (load "ogony-nomule") | |
11 | ) | |
12 | ||
13 | ) | |
14 |