Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents c098c0d9125f
children edb00a8b4eff
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
1110 (defun get-language-environment-from-locale (locale) 1110 (defun get-language-environment-from-locale (locale)
1111 "Convert LOCALE into a language environment. 1111 "Convert LOCALE into a language environment.
1112 LOCALE is a C library locale string, as returned by `current-locale'. 1112 LOCALE is a C library locale string, as returned by `current-locale'.
1113 Uses the `locale' property of the language environment." 1113 Uses the `locale' property of the language environment."
1114 (block langenv 1114 (block langenv
1115 (multiple-value-bind (language region charset modifiers) 1115 (multiple-value-bind (language ignored-arg charset ignored-arg)
1116 (parse-posix-locale-string locale) 1116 (parse-posix-locale-string locale)
1117 (let ((case-fold-search t) 1117 (let ((case-fold-search t)
1118 (desired-coding-system 1118 (desired-coding-system
1119 (and charset (gethash (replace-in-string charset "[^a-z0-9]" "") 1119 (and charset (gethash (replace-in-string charset "[^a-z0-9]" "")
1120 posix-charset-to-coding-system-hash))) 1120 posix-charset-to-coding-system-hash)))