diff options
| author | Kenichi Handa | 1998-10-26 08:00:11 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-26 08:00:11 +0000 |
| commit | 76d124158579b595ec6c355635aea749c169fc08 (patch) | |
| tree | a7b72f6ae7a5c5ac3f2ef87744b8310c3a9c7a92 | |
| parent | 319fb5a9bf9e8ae76e7ad9eb0953a6581fc44f9e (diff) | |
| download | emacs-76d124158579b595ec6c355635aea749c169fc08.tar.gz emacs-76d124158579b595ec6c355635aea749c169fc08.zip | |
(tibetan-pre-write-conversion): Cancel previous
change, use generate-new-buffer instead of get-buffer-create.
| -rw-r--r-- | lisp/language/tibet-util.el | 12 |
1 files 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." | |||
| 447 | (defun tibetan-pre-write-conversion (from to) | 447 | (defun tibetan-pre-write-conversion (from to) |
| 448 | (setq tibetan-decomposed-temp tibetan-decomposed) | 448 | (setq tibetan-decomposed-temp tibetan-decomposed) |
| 449 | (let ((old-buf (current-buffer))) | 449 | (let ((old-buf (current-buffer))) |
| 450 | (with-temp-buffer | 450 | (set-buffer (generate-new-buffer " *temp*")) |
| 451 | (if (stringp from) | 451 | (if (stringp from) |
| 452 | (insert from) | 452 | (insert from) |
| 453 | (insert-buffer-substring old-buf from to)) | 453 | (insert-buffer-substring old-buf from to)) |
| 454 | (if (not tibetan-decomposed-temp) | 454 | (if (not tibetan-decomposed-temp) |
| 455 | (tibetan-decompose-region (point-min) (point-max)))) | 455 | (tibetan-decompose-region (point-min) (point-max))) |
| 456 | ;; Should return nil as annotations. | 456 | ;; Should return nil as annotations. |
| 457 | nil)) | 457 | nil)) |
| 458 | 458 | ||