# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1172280337 0
# Node ID bb3eab7f9463369b34b5b9ea8a702b24794f9905
# Parent  7dfde5932872cbfd0bf19d77933840dbda6032f4
(utf-8-pre-write-conversion): Handle the
case that BEG is a string.

diff -r 7dfde5932872 -r bb3eab7f9463 lisp/international/utf-8.el
--- 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)