Mercurial > hg > xemacs-beta

comparison lisp/mule/general-late.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 68d1ca56cffa
children 4fc32a3a086e
comparison
equal deleted inserted replaced
4566:26aae3bacf99 4567:84d618b355f5
88 (setq begin (int-to-char (1+ begin))))) 88 (setq begin (int-to-char (1+ begin)))))
89 charset) 89 charset)
90 (setq skip-chars-string 90 (setq skip-chars-string
91 (concat skip-chars-string 91 (concat skip-chars-string
92 (charset-skip-chars-string charset)))) 92 (charset-skip-chars-string charset))))
93 finally return skip-chars-string)))) 93 finally return (skip-chars-quote skip-chars-string)))))
94 94
95 ;; At this point in the dump, all the charsets have been loaded. Now, load 95 ;; At this point in the dump, all the charsets have been loaded. Now, load
96 ;; their Unicode mappings. 96 ;; their Unicode mappings.
97 (if load-unicode-tables-at-dump-time 97 (if load-unicode-tables-at-dump-time
98 (let ((data-directory (expand-file-name "etc" source-directory))) 98 (let ((data-directory (expand-file-name "etc" source-directory)))