--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/mule/general-late.el	Tue Nov 28 21:20:37 2006 +0000
@@ -0,0 +1,55 @@
+;;; general-late.el --- General Mule code that needs to be run late when
+;;                      dumping.
+;; Copyright (C) 2006 Free Software Foundation
+
+;; Author: Aidan Kehoe
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+;; The variable is declared in mule-cmds.el; it's initialised here, to give
+;; the language-specific code a chance to create its coding systems.
+
+(setq posix-charset-to-coding-system-hash
+      (eval-when-compile
+	(let ((res (make-hash-table :test 'equal)))
+	  (dolist (coding-system (coding-system-list) res)
+	    (setq coding-system
+		  (symbol-name (coding-system-name coding-system)))
+	    (unless (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+	      (puthash 
+	       (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
+	       (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
+      ;; fraction faster for those languages.
+      language-info-alist
+      (cons (assoc "Japanese" language-info-alist)
+	    (remassoc "Japanese" language-info-alist))
+      language-info-alist 
+      (cons (assoc "German" language-info-alist)
+	    (remassoc "German" language-info-alist))
+      language-info-alist
+      (cons (assoc "English" language-info-alist)
+	    (remassoc "English" language-info-alist)))
+
+;;; general-late.el ends here
\ No newline at end of file