Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4245:119b227b734c 4246:9fec7fedbf1b
52 language-info-alist 52 language-info-alist
53 (cons (assoc "German" language-info-alist) 53 (cons (assoc "German" language-info-alist)
54 (remassoc "German" language-info-alist)) 54 (remassoc "German" language-info-alist))
55 language-info-alist 55 language-info-alist
56 (cons (assoc "English" language-info-alist) 56 (cons (assoc "English" language-info-alist)
57 (remassoc "English" language-info-alist))) 57 (remassoc "English" language-info-alist))
58
59 ;; Make Installation-string actually reflect the environment at
60 ;; byte-compile time. (We can't necessarily decode it when version.el
61 ;; is loaded, since not all the coding systems are available then.)
62 Installation-string (if-boundp 'Installation-file-coding-system
63 (decode-coding-string
64 Installation-string
65 Installation-file-coding-system)
66 Installation-string))
58 67
59 ;; At this point in the dump, all the charsets have been loaded. Now, load 68 ;; At this point in the dump, all the charsets have been loaded. Now, load
60 ;; their Unicode mappings. 69 ;; their Unicode mappings.
61 (if load-unicode-tables-at-dump-time 70 (if load-unicode-tables-at-dump-time
62 (let ((data-directory (expand-file-name "etc" source-directory))) 71 (let ((data-directory (expand-file-name "etc" source-directory)))