59 |
;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7 |
;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7 |
60 |
;; a+-+AKM |
;; a+-+AKM |
61 |
;; |
;; |
62 |
;; -- fx |
;; -- fx |
63 |
|
|
64 |
|
|
65 |
;;; Code: |
;;; Code: |
78 |
(defconst utf7-utf-16-coding-system |
(defconst utf7-utf-16-coding-system |
79 |
(cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS |
(cond ((mm-coding-system-p 'utf-16-be-no-signature) ; Mule-UCS |
80 |
'utf-16-be-no-signature) |
'utf-16-be-no-signature) |
81 |
((and (mm-coding-system-p 'utf-16-be) ; Emacs 21.4 (?), Emacs 22 |
((and (mm-coding-system-p 'utf-16-be) ; Emacs 22.1 |
82 |
;; Avoid versions with BOM. |
;; Avoid versions with BOM. |
83 |
(= 2 (length (encode-coding-string "a" 'utf-16-be)))) |
(= 2 (length (encode-coding-string "a" 'utf-16-be)))) |
84 |
'utf-16-be) |
'utf-16-be) |