Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 4073:c098c0d9125f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-23 14:19:39 by aidan] Interpret @cyrillic as a locale modifier, pick up coding-sys aliases.
author aidan
date Mon, 23 Jul 2007 14:20:29 +0000
parents a0ef33811aa3
children b4f4e0cc90f1
comparison
equal deleted inserted replaced
4072:aa28d959af41 4073:c098c0d9125f
1051 (when (and modifiers (equal modifiers "euro") (null charset)) 1051 (when (and modifiers (equal modifiers "euro") (null charset))
1052 ;; Not ideal for Latvian, say, but I don't have any locales 1052 ;; Not ideal for Latvian, say, but I don't have any locales
1053 ;; where the @euro modifier doesn't mean ISO-8859-15 in the 956 1053 ;; where the @euro modifier doesn't mean ISO-8859-15 in the 956
1054 ;; I have. 1054 ;; I have.
1055 (setq charset "iso-8859-15")) 1055 (setq charset "iso-8859-15"))
1056 (when (and modifiers (equal modifiers "cyrillic") (null charset))
1057 ;; Feedback wanted!
1058 (setq charset "windows-1251"))
1056 (values language region charset modifiers)) 1059 (values language region charset modifiers))
1057 ((and (string-match "^[a-z0-9]+$" locale-string) 1060 ((and (string-match "^[a-z0-9]+$" locale-string)
1058 (assoc-ignore-case locale-string language-info-alist)) 1061 (assoc-ignore-case locale-string language-info-alist))
1059 (setq language (get-language-info locale-string 'locale) 1062 (setq language (get-language-info locale-string 'locale)
1060 language (if (listp language) (car language) language)) 1063 language (if (listp language) (car language) language))