Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 4559:bd1a68c34d44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge my change of 2008-05-14 to the query-coding-region code. 2008-05-21 Aidan Kehoe <kehoea@parhasard.net> * mule/mule-coding.el (make-8-bit-choose-category): Merge my change of 2008-05-14 to the query-coding-region code.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 21 May 2008 21:49:19 +0200
parents d9fcb5442c95
children 84d618b355f5
comparison
equal deleted inserted replaced
4558:d9fcb5442c95 4559:bd1a68c34d44
529 disk to XEmacs characters for some fixed-width 8-bit coding system. " 529 disk to XEmacs characters for some fixed-width 8-bit coding system. "
530 (check-argument-type #'vectorp decode-table) 530 (check-argument-type #'vectorp decode-table)
531 (check-argument-range (length decode-table) #x100 #x100) 531 (check-argument-range (length decode-table) #x100 #x100)
532 (loop 532 (loop
533 named category 533 named category
534 for i from #x80 to #xBF 534 for i from #x80 to #x9F
535 do (unless (= i (aref decode-table i)) 535 do (unless (= i (aref decode-table i))
536 (return-from category 'no-conversion)) 536 (return-from category 'no-conversion))
537 finally return 'iso-8-1)) 537 finally return 'iso-8-1))
538 538
539 (defun 8-bit-fixed-query-coding-region (begin end coding-system 539 (defun 8-bit-fixed-query-coding-region (begin end coding-system