Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 3769:fbf54025c136

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-12-30 17:04:26 by aidan] Provide native-coding-systems for some language environments that didn't have them.
author aidan
date Sat, 30 Dec 2006 17:04:32 +0000
parents 6b2ef948e140
children a0ef33811aa3
comparison
equal deleted inserted replaced
3768:f814ad0daf3b 3769:fbf54025c136
1091 (plist-put (alist-to-plist (cdr langenv)) 1091 (plist-put (alist-to-plist (cdr langenv))
1092 'native-coding-system 1092 'native-coding-system
1093 coding-system) 1093 coding-system)
1094 'coding-system (cons coding-system 1094 'coding-system (cons coding-system
1095 (cdr (assoc 'coding-system (cdr langenv))))) 1095 (cdr (assoc 'coding-system (cdr langenv)))))
1096 'coding-priority (cons (coding-system-category coding-system) 1096 'coding-priority (cons coding-system
1097 (cdr (assq 'coding-priority (cdr langenv)))))))) 1097 (cdr (assq 'coding-priority (cdr langenv))))))))
1098 1098
1099 (defun get-language-environment-from-locale (locale) 1099 (defun get-language-environment-from-locale (locale)
1100 "Convert LOCALE into a language environment. 1100 "Convert LOCALE into a language environment.
1101 LOCALE is a C library locale string, as returned by `current-locale'. 1101 LOCALE is a C library locale string, as returned by `current-locale'.