Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-coding.el @ 4567:84d618b355f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2008-08-09 Aidan Kehoe <kehoea@parhasard.net> * mule/mule-coding.el (make-8-bit-coding-system): * mule/general-late.el (posix-charset-to-coding-system-hash): Use #'skip-chars-quote as appropriate.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 09 Aug 2008 13:15:09 +0200
parents bd1a68c34d44
children 1d74a1d115ee
comparison
equal deleted inserted replaced
4566:26aae3bacf99 4567:84d618b355f5
697 'encode encode-program))) 697 'encode encode-program)))
698 (coding-system-put name '8-bit-fixed t) 698 (coding-system-put name '8-bit-fixed t)
699 (coding-system-put name 'category 699 (coding-system-put name 'category
700 (make-8-bit-choose-category decode-table)) 700 (make-8-bit-choose-category decode-table))
701 (coding-system-put name '8-bit-fixed-query-skip-chars 701 (coding-system-put name '8-bit-fixed-query-skip-chars
702 (apply #'string (append decode-table nil))) 702 (skip-chars-quote
703 (apply #'string (append decode-table nil))))
703 (coding-system-put name '8-bit-fixed-query-from-unicode encode-table) 704 (coding-system-put name '8-bit-fixed-query-from-unicode encode-table)
704 705
705 (coding-system-put name 'query-coding-function 706 (coding-system-put name 'query-coding-function
706 #'8-bit-fixed-query-coding-region) 707 #'8-bit-fixed-query-coding-region)
707 (coding-system-put (intern (format "%s-unix" name)) 708 (coding-system-put (intern (format "%s-unix" name))
784 ',encode-program)))) 785 ',encode-program))))
785 (coding-system-put ',name '8-bit-fixed t) 786 (coding-system-put ',name '8-bit-fixed t)
786 (coding-system-put ',name 'category 787 (coding-system-put ',name 'category
787 ',(make-8-bit-choose-category decode-table)) 788 ',(make-8-bit-choose-category decode-table))
788 (coding-system-put ',name '8-bit-fixed-query-skip-chars 789 (coding-system-put ',name '8-bit-fixed-query-skip-chars
789 ',(apply #'string (append decode-table nil))) 790 ',(skip-chars-quote
791 (apply #'string (append decode-table nil))))
790 (coding-system-put ',name '8-bit-fixed-query-from-unicode encode-table) 792 (coding-system-put ',name '8-bit-fixed-query-from-unicode encode-table)
791 (coding-system-put ',name 'query-coding-function 793 (coding-system-put ',name 'query-coding-function
792 #'8-bit-fixed-query-coding-region) 794 #'8-bit-fixed-query-coding-region)
793 (coding-system-put ',(intern (format "%s-unix" name)) 795 (coding-system-put ',(intern (format "%s-unix" name))
794 'query-coding-function 796 'query-coding-function