Mercurial > hg > xemacs-beta

diff lisp/mule/general-late.el @ 4246:9fec7fedbf1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-10-31 11:21:02 by aidan] Use correct coding system information for Installation-string.
author aidan
date Wed, 31 Oct 2007 11:21:15 +0000
parents edb00a8b4eff
children 68d1ca56cffa
line wrap: on
line diff
--- a/lisp/mule/general-late.el	Tue Oct 30 22:51:13 2007 +0000
+++ b/lisp/mule/general-late.el	Wed Oct 31 11:21:15 2007 +0000
@@ -54,7 +54,16 @@
 	    (remassoc "German" language-info-alist))
       language-info-alist
       (cons (assoc "English" language-info-alist)
-	    (remassoc "English" language-info-alist)))
+	    (remassoc "English" language-info-alist))
+
+      ;; Make Installation-string actually reflect the environment at
+      ;; byte-compile time. (We can't necessarily decode it when version.el
+      ;; is loaded, since not all the coding systems are available then.)
+      Installation-string (if-boundp 'Installation-file-coding-system
+			      (decode-coding-string
+			       Installation-string
+			       Installation-file-coding-system)
+			    Installation-string))
 
 ;; At this point in the dump, all the charsets have been loaded. Now, load
 ;; their Unicode mappings.
@@ -62,4 +71,4 @@
     (let ((data-directory (expand-file-name "etc" source-directory)))
       (load-unicode-tables)))
 
-;;; general-late.el ends here
\ No newline at end of file
+;;; general-late.el ends here