(tibetan-pre-write-conversion): Cancel previous

change, use generate-new-buffer instead of get-buffer-create.

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index eb61b01988bf8f64dd62c874dc511737c3e73654..e26f3779382b96521b4917dd3f68b7a4f81d976f 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -447,12 +447,12 @@ See also docstring of the function tibetan-compose-region."
 (defun tibetan-pre-write-conversion (from to)
   (setq tibetan-decomposed-temp tibetan-decomposed)
   (let ((old-buf (current-buffer)))
-    (with-temp-buffer
-      (if (stringp from)
-         (insert from)
-       (insert-buffer-substring old-buf from to))
-      (if (not tibetan-decomposed-temp)
-         (tibetan-decompose-region (point-min) (point-max))))
+    (set-buffer (generate-new-buffer " *temp*"))
+    (if (stringp from)
+       (insert from)
+      (insert-buffer-substring old-buf from to))
+    (if (not tibetan-decomposed-temp)
+       (tibetan-decompose-region (point-min) (point-max)))
     ;; Should return nil as annotations.
     nil))