diff options
| author | Kenichi Handa | 1998-02-04 11:25:01 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-02-04 11:25:01 +0000 |
| commit | 39e0da627d03096c30d9524bcbc711bf15736419 (patch) | |
| tree | 15d4d3fa91303c8e130679b8c8f08d77aa50cab4 | |
| parent | 17bf0affd39dcb79e56f1bb7a45ef6e66b060e06 (diff) | |
| download | emacs-39e0da627d03096c30d9524bcbc711bf15736419.tar.gz emacs-39e0da627d03096c30d9524bcbc711bf15736419.zip | |
(encode-hz-region): Do not bind
enable-multibyte-characters to nil locally.
| -rw-r--r-- | lisp/language/china-util.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el index e70afa9b908..1933770d685 100644 --- a/lisp/language/china-util.el +++ b/lisp/language/china-util.el | |||
| @@ -159,8 +159,7 @@ Return the length of resulting text." | |||
| 159 | ;; Chinese GB2312 -> "~{...~}" | 159 | ;; Chinese GB2312 -> "~{...~}" |
| 160 | (goto-char (point-min)) | 160 | (goto-char (point-min)) |
| 161 | (if (re-search-forward "\\cc" nil t) | 161 | (if (re-search-forward "\\cc" nil t) |
| 162 | (let ((enable-multibyte-characters nil) | 162 | (let (pos) |
| 163 | pos) | ||
| 164 | (goto-char (setq pos (match-beginning 0))) | 163 | (goto-char (setq pos (match-beginning 0))) |
| 165 | (encode-coding-region pos (point-max) 'iso-2022-7bit) | 164 | (encode-coding-region pos (point-max) 'iso-2022-7bit) |
| 166 | (goto-char pos) | 165 | (goto-char pos) |