Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/general-late.el	Sun Jul 22 22:04:14 2007 +0000
+++ b/lisp/mule/general-late.el	Mon Jul 23 14:20:29 2007 +0000
@@ -31,13 +31,16 @@
 (setq posix-charset-to-coding-system-hash
       (eval-when-compile
 	(let ((res (make-hash-table :test 'equal)))
-	  (dolist (coding-system (coding-system-list) res)
+	  ;; We want both normal and internal coding systems in order
+	  ;; to pick up coding system aliases.
+	  (dolist (coding-system (coding-system-list 'both-normal-and-internal) res)
 	    (setq coding-system
-		  (symbol-name (coding-system-name coding-system)))
-	    (unless (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+		  (symbol-name coding-system))
+	    (unless (or (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+			(string-match #r"^\(internal\|mswindows\)" coding-system))
 	      (puthash 
 	       (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
-	       (intern coding-system) res)))))
+	       (coding-system-name (intern coding-system)) res)))))
 
       ;; In a thoughtless act of cultural imperialism, move English, German
       ;; and Japanese to the front of language-info-alist to make start-up a