andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-language-environment): Don't

Browse source 
overwrite current-iso639-language if the current language
environment doesn't provide that data.
(set-locale-environment): Set current-iso639-language from the
locale name.
This commit is contained in:
Kenichi Handa 2008-09-01 07:15:03 +00:00
parent a811648f48
commit e9aaa1db69
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/mule-cmds.el
View file

@ -1842,7 +1842,8 @@ specifies the character set for the major languages of Western Europe."
(funcall func)))
(setq current-iso639-language
(get-language-info language-name 'iso639-language))
(or (get-language-info language-name 'iso639-language)
current-iso639-language))
(run-hooks 'set-language-environment-hook)
(force-mode-line-update t))
@ -2510,7 +2511,10 @@ 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))
(if (string-match "^[a-z][a-z]" locale)
(setq current-iso639-language (intern (match-string 0 locale)))))
(setq woman-locale
(or system-messages-locale