mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(locale-translate): New function, with old code extracted from

Browse Source 
set-locale-environment.
(set-locale-environment): Use locale-translate.  Set woman-locale.
This commit is contained in:
Glenn Morris 2008-02-08 20:43:16 +00:00
parent 737e2b960a
commit 44ee1bdfe4
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/international/mule-cmds.el
View File

@ -2422,6 +2422,19 @@ is returned. Thus, for instance, if charset \"ISO8859-2\",
;; too, for setting things such as calendar holidays, ps-print paper
;; size, spelling dictionary.
(defun locale-translate (locale)
"Expand LOCALE according to `locale-translation-file-name', if possible.
For example, translate \"swedish\" into \"sv_SE.ISO8859-1\"."
(if locale-translation-file-name
(with-temp-buffer
(set-buffer-multibyte nil)
(insert-file-contents locale-translation-file-name)
(if (re-search-forward
(concat "^" (regexp-quote locale) ":?[ \t]+") nil t)
(buffer-substring (point) (line-end-position))
locale))
locale))
(defun set-locale-environment (&optional locale-name frame)
"Set up multi-lingual environment for using LOCALE-NAME.
This sets the language environment, the coding system priority,
@ -2491,16 +2504,7 @@ See also `locale-charset-language-names', `locale-language-names',
(setq locale mac-system-locale))
(when locale
;; Translate "swedish" into "sv_SE.ISO8859-1", and so on,
;; using the translation file that many systems have.
(when locale-translation-file-name
(with-temp-buffer
(set-buffer-multibyte nil)
(insert-file-contents locale-translation-file-name)
(when (re-search-forward
(concat "^" (regexp-quote locale) ":?[ \t]+") nil t)
(setq locale (buffer-substring (point) (line-end-position))))))
(setq locale (locale-translate locale))
;; Leave the system locales alone if the caller did not specify
;; an explicit locale name, as their defaults are set from
@ -2508,8 +2512,16 @@ See also `locale-charset-language-names', `locale-language-names',
;; want to set them to the same value as LC_CTYPE.
(when locale-name
(setq system-messages-locale locale)
(setq system-time-locale locale))
(setq system-time-locale locale)))
(setq woman-locale
(or system-messages-locale
(let ((msglocale (getenv "LC_MESSAGES")))
(if (zerop (length msglocale))
locale
(locale-translate msglocale)))))
(when locale
(setq locale (downcase locale))
(let ((language-name