Mercurial > emacs
changeset 51630:90215b7be64d
Adjusted for the name change: xxx-utf-16-{le,be} -> xxx-utf-16{le,be}.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 21 Jun 2003 02:25:38 +0000 |
| parents | 0333f026178a |
| children | bc72d6855260 |
| files | lisp/international/mule-conf.el lisp/international/utf-7.el |
| diffstat | 2 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-conf.el Sat Jun 21 02:25:19 2003 +0000 +++ b/lisp/international/mule-conf.el Sat Jun 21 02:25:38 2003 +0000 @@ -520,8 +520,8 @@ coding-category-iso-8-else 'iso-2022-8bit-ss2 coding-category-ccl nil coding-category-utf-8 'mule-utf-8 - coding-category-utf-16-be 'mule-utf-16-be-with-signature - coding-category-utf-16-le 'mule-utf-16-le-with-signature + coding-category-utf-16-be 'mule-utf-16be-with-signature + coding-category-utf-16-le 'mule-utf-16le-with-signature coding-category-big5 'chinese-big5 coding-category-raw-text 'raw-text coding-category-binary 'no-conversion)
--- a/lisp/international/utf-7.el Sat Jun 21 02:25:19 2003 +0000 +++ b/lisp/international/utf-7.el Sat Jun 21 02:25:38 2003 +0000 @@ -40,7 +40,7 @@ 'utf-7 0 ?U "UTF-7 encoding of Unicode (RFC 2152)" nil - `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) + `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) (mime-charset . utf-7) (pre-write-conversion . utf-7-pre-write-conversion) (post-read-conversion . utf-7-post-read-conversion))) @@ -49,7 +49,7 @@ ;; 'utf-7-imap 0 ?u ;; "UTF-7 encoding of Unicode, IMAP version (RFC 2060)" ;; nil -;; `((safe-chars . ,(coding-system-get 'utf-16-be 'safe-chars)) +;; `((safe-chars . ,(coding-system-get 'utf-16be 'safe-chars)) ;; (pre-write-conversion . utf-7-imap-pre-write-conversion) ;; (post-read-conversion . utf-7-imap-post-read-conversion))) @@ -75,7 +75,7 @@ (if imap (subst-char-in-region p (point) ?, ?/)) (base64-decode-region p (point))) - (decode-coding-region p (point) 'utf-16-be) + (decode-coding-region p (point) 'utf-16be) (save-excursion (goto-char p) (delete-backward-char 1))))))) @@ -116,7 +116,7 @@ (save-restriction ;; encode-coding-region doesn't preserve point (narrow-to-region p (point)) - (encode-coding-region p (point-max) 'utf-16-be) + (encode-coding-region p (point-max) 'utf-16be) (base64-encode-region p (point-max)) (if imap (subst-char-in-region p (point-max) ?/ ?,))