Mercurial > hg > xemacs-beta

changeset 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 26aae3bacf99
children 1d74a1d115ee
files lisp/ChangeLog lisp/mule/general-late.el lisp/mule/mule-coding.el
diffstat 3 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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>
--- 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.
--- 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)