Mercurial > hg > xemacs-beta

comparison lisp/mule/general-late.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 6b2ef948e140
children edb00a8b4eff
comparison
equal deleted inserted replaced
4072:aa28d959af41 4073:c098c0d9125f
29 ;; the language-specific code a chance to create its coding systems. 29 ;; the language-specific code a chance to create its coding systems.
30 30
31 (setq posix-charset-to-coding-system-hash 31 (setq posix-charset-to-coding-system-hash
32 (eval-when-compile 32 (eval-when-compile
33 (let ((res (make-hash-table :test 'equal))) 33 (let ((res (make-hash-table :test 'equal)))
34 (dolist (coding-system (coding-system-list) res) 34 ;; We want both normal and internal coding systems in order
35 ;; to pick up coding system aliases.
36 (dolist (coding-system (coding-system-list 'both-normal-and-internal) res)
35 (setq coding-system 37 (setq coding-system
36 (symbol-name (coding-system-name coding-system))) 38 (symbol-name coding-system))
37 (unless (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system) 39 (unless (or (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
40 (string-match #r"^\(internal\|mswindows\)" coding-system))
38 (puthash 41 (puthash
39 (replace-in-string (downcase coding-system) "[^a-z0-9]" "") 42 (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
40 (intern coding-system) res))))) 43 (coding-system-name (intern coding-system)) res)))))
41 44
42 ;; In a thoughtless act of cultural imperialism, move English, German 45 ;; In a thoughtless act of cultural imperialism, move English, German
43 ;; and Japanese to the front of language-info-alist to make start-up a 46 ;; and Japanese to the front of language-info-alist to make start-up a
44 ;; fraction faster for those languages. 47 ;; fraction faster for those languages.
45 language-info-alist 48 language-info-alist