diff options
author | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:18 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:18 +0000 |
commit | cefa701a274be36ecc5de34a3b6cb171eeb829b5 (patch) | |
tree | 1a1e32a9998afc45be5bb651b1b94cf1d75f62c8 | |
parent | dc09922d1e82dbe164379301e242961748c7e67d (diff) | |
download | emacs-cefa701a274be36ecc5de34a3b6cb171eeb829b5.tar.gz |
(in-is13194-devanagari-post-read-conversion): New function.
(in-is13194-devanagari-pre-write-conversion): New function.
-rw-r--r-- | lisp/language/devan-util.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index 58e57d3b1e6..2650fd30244 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el @@ -1257,6 +1257,11 @@ basic Devanagari character string." (devanagari-compose-region (point-min) (point-max)))) ;;;###autoload +(defun in-is13194-devanagari-post-read-conversion (len) + (let ((pos (point))) + (devanagari-compose-from-is13194-region pos (+ pos len)))) + +;;;###autoload (defun devanagari-decompose-to-is13194-region (from to) "Decompose Devanagari characters in the region to IS 13194 characters." (interactive "r") @@ -1265,6 +1270,18 @@ basic Devanagari character string." (devanagari-decompose-region (point-min) (point-max)) (devanagari-to-indian-region (point-min) (point-max)))) +;;;###autoload +(defun in-is13194-devanagari-pre-write-conversion (from to) + (let ((old-buf (current-buffer)) + (work-buf (get-buffer-create " *devanagari-work*"))) + (set-buffer work-buf) + (erase-buffer) + (if (stringp from) + (insert from) + (insert-buffer-substring old-buf from to)) + (devanagari-decompose-to-is13194-region (point-min) (point-max)) + ;; Should return nil as annotations. + nil)) ;; For input/output of ITRANS |