commit: 2008-08-09 Aidan Kehoe <kehoea at parhasard.net>

[Aidan Kehoe]

changeset:   4567:84d618b355f5fccd22634d6415a59a9339281ad4
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Sat Aug 09 13:15:09 2008 +0200
files:       lisp/ChangeLog lisp/mule/general-late.el lisp/mule/mule-coding.el
description:
2008-08-09  Aidan Kehoe  <kehoea at 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 26aae3bacf99fd641cbc1626d3ee5a8572b28703 -r 84d618b355f5fccd22634d6415a59a9339281ad4 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 at parhasa
+2008-08-09  Aidan Kehoe  <kehoea at 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 at parhasard.net>
 
 	* subr.el (skip-chars-quote): New.
@@ -6,8 +12,6 @@ 2008-08-09  Aidan Kehoe  <kehoea at parhasa
 	#'skip-chars-backward. 
 
 2008-08-09  Aidan Kehoe  <kehoea at parhasard.net>
-
-	* subr.el (skip-chars-quote): New.
 
 	* mule/cyril-util.el: Remove. Use the version in packages instead.
 
diff -r 26aae3bacf99fd641cbc1626d3ee5a8572b28703 -r 84d618b355f5fccd22634d6415a59a9339281ad4 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 26aae3bacf99fd641cbc1626d3ee5a8572b28703 -r 84d618b355f5fccd22634d6415a59a9339281ad4 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 @@ the code for tilde `~'.  "
     (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 @@ the code for tilde `~'.  "
         (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)