/[emacs]/emacs/lisp/international/ucs-tables.el
ViewVC logotype

Diff of /emacs/lisp/international/ucs-tables.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by handa, Tue Mar 18 04:08:39 2003 UTC revision 1.33 by handa, Sat Jun 21 02:25:19 2003 UTC
# Line 1180  everything on input operations." Line 1180  everything on input operations."
1180    
1181    (when for-encode    (when for-encode
1182      ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode.      ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode.
1183      (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le)))      (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
1184                                        mule-utf-16be-with-signature
1185                                        mule-utf-16le-with-signature)))
1186        (define-translation-table 'utf-translation-table-for-encode        (define-translation-table 'utf-translation-table-for-encode
1187          ucs-mule-to-mule-unicode)          ucs-mule-to-mule-unicode)
1188        (dolist (coding coding-list)        (dolist (coding coding-list)
# Line 1219  unification on input operations." Line 1221  unification on input operations."
1221      ;; ucs-mule-to-mule-unicode except what was originally supported      ;; ucs-mule-to-mule-unicode except what was originally supported
1222      ;; and what is translated by utf-translation-table-for-decode when      ;; and what is translated by utf-translation-table-for-decode when
1223      ;; `utf-fragment-on-decoding' is non-nil.      ;; `utf-fragment-on-decoding' is non-nil.
1224      (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))      (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le
1225                                        mule-utf-16be-with-signature
1226                                        mule-utf-16le-with-signature))
1227            (safe (coding-system-get 'mule-utf-8 'safe-chars)))            (safe (coding-system-get 'mule-utf-8 'safe-chars)))
1228        (dolist (coding coding-list)        (dolist (coding coding-list)
1229          (set-char-table-parent (coding-system-get coding 'safe-chars) nil))          (set-char-table-parent (coding-system-get coding 'safe-chars) nil))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26