mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(thai-pre-write-conversion): Use with-temp-buffer.

Browse Source
This commit is contained in:
Kenichi Handa 1998-10-21 11:50:56 +00:00
parent 7273226df7
commit 166488a59a
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/language/thai-util.el
View File

@ -166,14 +166,12 @@ positions (integers or markers) specifying the region."
;;;###autoload
(defun thai-pre-write-conversion (from to)
(let ((old-buf (current-buffer))
(work-buf (get-buffer-create " *thai-work*")))
(set-buffer work-buf)
(erase-buffer)
(if (stringp from)
(insert from)
(insert-buffer-substring old-buf from to))
(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))
(decompose-region (point-min) (point-max)))
;; Should return nil as annotations.
nil))