Mercurial > hg > xemacs-beta

diff lisp/mule/mule-coding.el @ 4090:751ae075e76e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-01 13:53:32 by aidan] Add some more locale information, Windows-1253, fix a make-8-bit-coding-system bug.
author aidan
date Wed, 01 Aug 2007 13:53:41 +0000
parents 023ebc75c06e
children b4f4e0cc90f1
line wrap: on
line diff
--- a/lisp/mule/mule-coding.el	Tue Jul 31 21:51:15 2007 +0000
+++ b/lisp/mule/mule-coding.el	Wed Aug 01 13:53:41 2007 +0000
@@ -315,7 +315,7 @@
     (when worth-trying
       (setq other-charset-vector (make-vector 256 encode-failure-octet))
       (loop for i from charset-lower to charset-upper
-        do (aset other-charset-vector (+ #x80 i)
+        do (aset other-charset-vector i
 		 (gethash (encode-char (make-char worth-trying i)
 				       'ucs) encode-table)))
       (setq encode-program