Mercurial > emacs
changeset 76112:bb3eab7f9463
(utf-8-pre-write-conversion): Handle the
case that BEG is a string.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 24 Feb 2007 01:25:37 +0000 |
| parents | 7dfde5932872 |
| children | d0a0f8a99229 |
| files | lisp/international/utf-8.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/utf-8.el Sat Feb 24 00:12:30 2007 +0000 +++ b/lisp/international/utf-8.el Sat Feb 24 01:25:37 2007 +0000 @@ -1008,9 +1008,11 @@ This is used as a post-read-conversion of utf-8 coding system." (if (and utf-translate-cjk-mode (not utf-translate-cjk-lang-env) - (save-excursion - (goto-char beg) - (re-search-forward "\\cc\\|\\cj\\|\\ch" end t))) + (if (stringp beg) + (string-match "\\cc\\|\\cj\\|\\ch" beg) + (save-excursion + (goto-char beg) + (re-search-forward "\\cc\\|\\cj\\|\\ch" end t)))) (utf-translate-cjk-load-tables)) nil)