From: Kenichi Handa <handa@m17n.org>
Date: Mon, 26 Oct 1998 08:00:11 +0000 (+0000)
Subject: (tibetan-pre-write-conversion): Cancel previous
X-Git-Tag: emacs-20.4~1404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76d124158579b595ec6c355635aea749c169fc08;p=emacs.git

(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 eb61b01988b..e26f3779382 100644
--- 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))