Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/mule-coding.el	Sat Aug 09 13:11:06 2008 +0200
+++ b/lisp/mule/mule-coding.el	Sat Aug 09 13:15:09 2008 +0200
@@ -699,7 +699,8 @@
     (coding-system-put name 'category 
                        (make-8-bit-choose-category decode-table))
     (coding-system-put name '8-bit-fixed-query-skip-chars
-                       (apply #'string (append decode-table nil)))
+                       (skip-chars-quote
+			      (apply #'string (append decode-table nil))))
     (coding-system-put name '8-bit-fixed-query-from-unicode encode-table)
 
     (coding-system-put name 'query-coding-function
@@ -786,7 +787,8 @@
         (coding-system-put ',name 'category 
                            ',(make-8-bit-choose-category decode-table))
         (coding-system-put ',name '8-bit-fixed-query-skip-chars
-                           ',(apply #'string (append decode-table nil)))
+                           ',(skip-chars-quote
+			      (apply #'string (append decode-table nil))))
         (coding-system-put ',name '8-bit-fixed-query-from-unicode encode-table)
         (coding-system-put ',name 'query-coding-function
                            #'8-bit-fixed-query-coding-region)