From cefa701a274be36ecc5de34a3b6cb171eeb829b5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 May 1997 07:00:18 +0000 Subject: [PATCH] (in-is13194-devanagari-post-read-conversion): New function. (in-is13194-devanagari-pre-write-conversion): New function. --- lisp/language/devan-util.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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 @@ -1256,6 +1256,11 @@ basic Devanagari character string." (indian-to-devanagari-region (point-min) (point-max)) (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." @@ -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 -- 2.39.5