]>
Commit | Line | Data |
---|---|---|
0800c7da JR |
1 | --- lisp/startup.el.locale.alias Fri Feb 11 16:39:31 2000 |
2 | +++ lisp/startup.el Fri Feb 11 16:40:28 2000 | |
3 | @@ -332,14 +332,7 @@ | |
4 | :group 'auto-save) | |
5 | ||
6 | (defvar locale-translation-file-name | |
7 | - (let ((files '("/usr/lib/X11/locale/locale.alias" ; e.g. X11R6.4 | |
8 | - "/usr/X11R6/lib/X11/locale/locale.alias" ; e.g. RedHat 4.2 | |
9 | - "/usr/openwin/lib/locale/locale.alias" ; e.g. Solaris 2.6 | |
10 | - ;; | |
11 | - ;; The following name appears after the X-related names above, | |
12 | - ;; since the X-related names are what X actually uses. | |
13 | - "/usr/share/locale/locale.alias" ; GNU/Linux sans X | |
14 | - ))) | |
15 | + (let ((files '("/usr/share/locale/locale.alias"))) | |
16 | (while (and files (not (file-exists-p (car files)))) | |
17 | (setq files (cdr files))) | |
18 | (car files)) |