diff options
author | Kenichi Handa <[email protected]> | 1997-05-12 07:00:25 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 1997-05-12 07:00:25 +0000 |
commit | 1d1180f718320b9305b32904514748b6666ef475 (patch) | |
tree | 77f60ffc14c1d20dca7ebc7bca79a11f1fab121a /lisp/language/thai-util.el | |
parent | 68fc7d81b7f442fb0e7192567efab053127bec26 (diff) |
(thai-pre-write-conversion): Make it work
for the case the arg FROM is a string.
Diffstat (limited to 'lisp/language/thai-util.el')
-rw-r--r-- | lisp/language/thai-util.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index a97fad0ae7..334f7e4138 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -164,8 +164,12 @@ positions (integers or markers) specifying the region." (work-buf (get-buffer-create " *thai-work*"))) (set-buffer work-buf) (erase-buffer) - (insert-buffer-substring old-buf from to) - (decompose-region (point-min) (point-max)))) + (if (stringp from) + (insert from) + (insert-buffer-substring old-buf from to)) + (decompose-region (point-min) (point-max)) + ;; Should return nil as annotations. + nil)) ;; (provide 'language/thai-util) |