Mercurial > emacs
comparison lisp/international/utf-7.el @ 89476:651a752f98b2
(utf-7-decode, utf-7-encode): Use utf-16be, not utf-16-be.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 22 Jun 2003 23:27:26 +0000 |
| parents | e25f0fe176b0 |
| children |
comparison
equal
deleted
inserted
replaced
| 89475:d6468503c001 | 89476:651a752f98b2 |
|---|---|
| 76 (let ((pl (mod (- run-length) 4))) | 76 (let ((pl (mod (- run-length) 4))) |
| 77 (insert-char ?= pl) | 77 (insert-char ?= pl) |
| 78 (if imap | 78 (if imap |
| 79 (subst-char-in-region p (point) ?, ?/)) | 79 (subst-char-in-region p (point) ?, ?/)) |
| 80 (base64-decode-region p (point))) | 80 (base64-decode-region p (point))) |
| 81 (decode-coding-region p (point) 'utf-16-be) | 81 (decode-coding-region p (point) 'utf-16be) |
| 82 (save-excursion | 82 (save-excursion |
| 83 (goto-char p) | 83 (goto-char p) |
| 84 (delete-backward-char 1))))))) | 84 (delete-backward-char 1))))))) |
| 85 (- (point-max) (point-min))))) | 85 (- (point-max) (point-min))))) |
| 86 | 86 |
| 118 (let ((p (point))) | 118 (let ((p (point))) |
| 119 (skip-chars-forward not-skip-chars) | 119 (skip-chars-forward not-skip-chars) |
| 120 (save-restriction | 120 (save-restriction |
| 121 ;; encode-coding-region doesn't preserve point | 121 ;; encode-coding-region doesn't preserve point |
| 122 (narrow-to-region p (point)) | 122 (narrow-to-region p (point)) |
| 123 (encode-coding-region p (point-max) 'utf-16-be) | 123 (encode-coding-region p (point-max) 'utf-16be) |
| 124 (base64-encode-region p (point-max)) | 124 (base64-encode-region p (point-max)) |
| 125 (if imap | 125 (if imap |
| 126 (subst-char-in-region p (point-max) ?/ ?,)) | 126 (subst-char-in-region p (point-max) ?/ ?,)) |
| 127 (goto-char p) | 127 (goto-char p) |
| 128 ;; As I read the RFC, this isn't correct, but it's | 128 ;; As I read the RFC, this isn't correct, but it's |