Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 4460:04ec3340612e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct coding-category determination for 8-bit-fixed coding systems. 2008-05-14 Aidan Kehoe <kehoea@parhasard.net> * mule/mule-coding.el (make-8-bit-choose-category):=20 Control-1 characters extend from #x80 to #x9F (inclusive), not from #x80 to #xBF.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 14 May 2008 23:43:12 +0200
parents f4c3ffe60a4f
children d9fcb5442c95
comparison
equal deleted inserted replaced
4459:554b9d31e7a5 4460:04ec3340612e
531 disk to XEmacs characters for some fixed-width 8-bit coding system. " 531 disk to XEmacs characters for some fixed-width 8-bit coding system. "
532 (check-argument-type #'vectorp decode-table) 532 (check-argument-type #'vectorp decode-table)
533 (check-argument-range (length decode-table) #x100 #x100) 533 (check-argument-range (length decode-table) #x100 #x100)
534 (block category 534 (block category
535 (loop 535 (loop
536 for i from #x80 to #xBF 536 for i from #x80 to #x9F
537 do (unless (= i (aref decode-table i)) 537 do (unless (= i (aref decode-table i))
538 (return-from category 'no-conversion))) 538 (return-from category 'no-conversion)))
539 'iso-8-1)) 539 'iso-8-1))
540 540
541 ;;;###autoload 541 ;;;###autoload