# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1218280509 -7200
# Node ID 84d618b355f5fccd22634d6415a59a9339281ad4
# Parent  26aae3bacf99fd641cbc1626d3ee5a8572b28703
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.

diff -r 26aae3bacf99 -r 84d618b355f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 09 13:11:06 2008 +0200
+++ b/lisp/ChangeLog	Sat Aug 09 13:15:09 2008 +0200
@@ -1,3 +1,9 @@
+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. 
+
 2008-08-09  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* subr.el (skip-chars-quote): New.
@@ -7,8 +13,6 @@
 
 2008-08-09  Aidan Kehoe  <kehoea@parhasard.net>
 
-	* subr.el (skip-chars-quote): New.
-
 	* mule/cyril-util.el: Remove. Use the version in packages instead.
 
 2008-08-08  Aidan Kehoe  <kehoea@parhasard.net>
diff -r 26aae3bacf99 -r 84d618b355f5 lisp/mule/general-late.el
--- a/lisp/mule/general-late.el	Sat Aug 09 13:11:06 2008 +0200
+++ b/lisp/mule/general-late.el	Sat Aug 09 13:15:09 2008 +0200
@@ -90,7 +90,7 @@
               (setq skip-chars-string
                     (concat skip-chars-string
                             (charset-skip-chars-string charset))))
-            finally return skip-chars-string))))
+            finally return (skip-chars-quote skip-chars-string)))))
 
 ;; At this point in the dump, all the charsets have been loaded. Now, load
 ;; their Unicode mappings.
diff -r 26aae3bacf99 -r 84d618b355f5 lisp/mule/mule-coding.el
--- 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)