# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 909388811 0
# Node ID 0d25c6f765abc6e1dbca5aeb20f8e14866499906
# Parent  e54fbf58812fae52e946588a610741d1738f3e4c
(tibetan-pre-write-conversion): Cancel previous
change, use generate-new-buffer instead of get-buffer-create.

diff -r e54fbf58812f -r 0d25c6f765ab lisp/language/tibet-util.el
--- a/lisp/language/tibet-util.el	Mon Oct 26 08:00:11 1998 +0000
+++ b/lisp/language/tibet-util.el	Mon Oct 26 08:00:11 1998 +0000
@@ -447,12 +447,12 @@
 (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))