Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4089:094d7cbe2c62 4090:751ae075e76e
313 worth-trying nil))) 313 worth-trying nil)))
314 314
315 (when worth-trying 315 (when worth-trying
316 (setq other-charset-vector (make-vector 256 encode-failure-octet)) 316 (setq other-charset-vector (make-vector 256 encode-failure-octet))
317 (loop for i from charset-lower to charset-upper 317 (loop for i from charset-lower to charset-upper
318 do (aset other-charset-vector (+ #x80 i) 318 do (aset other-charset-vector i
319 (gethash (encode-char (make-char worth-trying i) 319 (gethash (encode-char (make-char worth-trying i)
320 'ucs) encode-table))) 320 'ucs) encode-table)))
321 (setq encode-program 321 (setq encode-program
322 (nsublis 322 (nsublis
323 (list (cons #xABAB (charset-id worth-trying))) 323 (list (cons #xABAB (charset-id worth-trying)))