870 |
;; version of the string in the loop, since it's always loaded as |
;; version of the string in the loop, since it's always loaded as |
871 |
;; unibyte from a byte-compiled file. |
;; unibyte from a byte-compiled file. |
872 |
(let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7")) |
(let ((range (string-as-multibyte "^\xc0-\xc3\xe1-\xf7")) |
873 |
|
(buffer-multibyte enable-multibyte-characters) |
874 |
hash-table ch) |
hash-table ch) |
875 |
|
(set-buffer-multibyte t) |
876 |
(when utf-translate-cjk-mode |
(when utf-translate-cjk-mode |
877 |
(if (not utf-translate-cjk-lang-env) |
(if (not utf-translate-cjk-lang-env) |
878 |
;; Check these characters: |
;; Check these characters: |
895 |
(progn |
(progn |
896 |
(insert ch) |
(insert ch) |
897 |
(delete-char 1)) |
(delete-char 1)) |
898 |
(forward-char 1))))) |
(forward-char 1)))) |
899 |
|
(or buffer-multibyte |
900 |
|
(set-buffer-multibyte nil))) |
901 |
|
|
902 |
(when (and utf-8-compose-scripts (> length 1)) |
(when (and utf-8-compose-scripts (> length 1)) |
903 |
;; These currently have definitions which cover the relevant |
;; These currently have definitions which cover the relevant |