From 76d124158579b595ec6c355635aea749c169fc08 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 26 Oct 1998 08:00:11 +0000 Subject: [PATCH] (tibetan-pre-write-conversion): Cancel previous change, use generate-new-buffer instead of get-buffer-create. --- lisp/language/tibet-util.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)) -- 2.39.2