Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 4292:0194a744d2d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-11-28 21:17:45 by aidan] When creating variant language environments, specify tutorial-coding-system.
author aidan
date Wed, 28 Nov 2007 21:17:55 +0000
parents edb00a8b4eff
children a78d697ccd2c
comparison
equal deleted inserted replaced
4291:fcc999c434bc 4292:0194a744d2d3
1097 (format "%s (%s)" (car langenv) 1097 (format "%s (%s)" (car langenv)
1098 (upcase (symbol-name (coding-system-name coding-system))))) 1098 (upcase (symbol-name (coding-system-name coding-system)))))
1099 (destructive-plist-to-alist 1099 (destructive-plist-to-alist
1100 (plist-put 1100 (plist-put
1101 (plist-put 1101 (plist-put
1102 (plist-put (alist-to-plist (cdr langenv)) 1102 (plist-put
1103 'native-coding-system 1103 (plist-put (alist-to-plist (cdr langenv)) 'native-coding-system
1104 coding-system) 1104 coding-system)
1105 'coding-system (cons coding-system 1105 'coding-system (cons coding-system
1106 (cdr (assoc 'coding-system (cdr langenv))))) 1106 (cdr (assoc 'coding-system (cdr langenv)))))
1107 'coding-priority (cons coding-system 1107 'coding-priority (cons coding-system
1108 (cdr (assq 'coding-priority (cdr langenv)))))))) 1108 (cdr (assq 'coding-priority (cdr langenv)))))
1109 ;; The tutorial coding system is important; otherwise the tutorial file
1110 ;; gets loaded in the variant coding system.
1111 'tutorial-coding-system
1112 (or (car-safe (cdr-safe (assoc 'tutorial-coding-system (cdr langenv))))
1113 (car-safe (cdr-safe (assoc 'coding-system (cdr langenv)))))))))
1109 1114
1110 (defun get-language-environment-from-locale (locale) 1115 (defun get-language-environment-from-locale (locale)
1111 "Convert LOCALE into a language environment. 1116 "Convert LOCALE into a language environment.
1112 LOCALE is a C library locale string, as returned by `current-locale'. 1117 LOCALE is a C library locale string, as returned by `current-locale'.
1113 Uses the `locale' property of the language environment." 1118 Uses the `locale' property of the language environment."