changeset: 4567:84d618b355f5fccd22634d6415a59a9339281ad4 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; 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(a)parhasard.net&gt; * 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＠parhasa +2008-08-09 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * subr.el (skip-chars-quote): New. ＠＠ -6,8 +12,6 ＠＠ 2008-08-09 Aidan Kehoe <kehoea＠parhasa #'skip-chars-backward. 2008-08-09 Aidan Kehoe <kehoea(a)parhasard.net&gt; - - * 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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches