Mercurial > hg > xemacs-beta

diff lisp/mule/mule-misc.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 5a88923fcbfe
children e45d5e7c476e
line wrap: on
line diff
--- a/lisp/mule/mule-misc.el	Mon Aug 13 09:50:16 2007 +0200
+++ b/lisp/mule/mule-misc.el	Mon Aug 13 09:51:16 2007 +0200
@@ -216,8 +216,8 @@
    (list (intern (completing-read "Language environment: "
 				  obarray 'language-environment-p
 				  'require-match))))
-  (when (not (string= (charset-registry 'ascii) "ISO8859-1"))
-    (set-charset-registry 'ascii "ISO8859-1"))
+  (when (not (string= (charset-registry 'ascii) "iso8859-1"))
+    (set-charset-registry 'ascii "iso8859-1"))
   (let ((func (get env 'set-lang-environ)))
     (if (not (null func))
 	(funcall func)))