diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:26 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:26 +0000 |
| commit | 5d0ae7290b3a2cf264d5044152cc7e9ded428670 (patch) | |
| tree | 3e3c299624bc1c6b08e75aaaba6510163ac5a9ac /lisp/language/tibet-util.el | |
| parent | 1d1180f718320b9305b32904514748b6666ef475 (diff) | |
| download | emacs-5d0ae7290b3a2cf264d5044152cc7e9ded428670.tar.gz emacs-5d0ae7290b3a2cf264d5044152cc7e9ded428670.tar.bz2 emacs-5d0ae7290b3a2cf264d5044152cc7e9ded428670.zip | |
(tibetan-pre-write-conversion): Make it work
for the case the arg FROM is a string.
Diffstat (limited to 'lisp/language/tibet-util.el')
| -rw-r--r-- | lisp/language/tibet-util.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 5a9a1924de5..37a0f49493c 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -444,9 +444,13 @@ See also docstring of the function tibetan-compose-region." (work-buf (get-buffer-create " *tibetan-work*"))) (set-buffer work-buf) (erase-buffer) - (insert-buffer-substring old-buf from to) + (if (stringp from) + (insert from) + (insert-buffer-substring old-buf from to)) (if (not tibetan-decomposed-temp) - (tibetan-decompose-region (point-min) (point-max))))) + (tibetan-decompose-region (point-min) (point-max))) + ;; Should return nil as annotations. + nil)) (provide 'language/tibet-util) |