emacs-lisp-startup-localealias.patch

   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))