diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-10-21 11:50:56 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-10-21 11:50:56 +0000 |
| commit | 7273226df7251183b42ba6a8a270f9de65a84c3e (patch) | |
| tree | bd068edb6bb616b90457e03980baae40f71fb434 /lisp/language/tibet-util.el | |
| parent | ada511780cb5fa6806a72e0cf680aec6902d8565 (diff) | |
| download | emacs-7273226df7251183b42ba6a8a270f9de65a84c3e.tar.gz | |
(tibetan-pre-write-conversion): Use with-temp-buffer.
Diffstat (limited to 'lisp/language/tibet-util.el')
| -rw-r--r-- | lisp/language/tibet-util.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 6a940212c52..eb61b01988b 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -446,15 +446,13 @@ See also docstring of the function tibetan-compose-region." ;;;###autoload (defun tibetan-pre-write-conversion (from to) (setq tibetan-decomposed-temp tibetan-decomposed) - (let ((old-buf (current-buffer)) - (work-buf (get-buffer-create " *tibetan-work*"))) - (set-buffer work-buf) - (erase-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))) + (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)))) ;; Should return nil as annotations. nil)) |