# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 863420418 0
# Node ID f1ece95d00c264f0e3ac4b03a7f058f35e153fda
# Parent  550afdbb31d81f67fc395711cb13de1955d74525
(in-is13194-devanagari-post-read-conversion):	New function.
(in-is13194-devanagari-pre-write-conversion): New function.

diff -r 550afdbb31d8 -r f1ece95d00c2 lisp/language/devan-util.el
--- a/lisp/language/devan-util.el	Mon May 12 07:00:16 1997 +0000
+++ b/lisp/language/devan-util.el	Mon May 12 07:00:18 1997 +0000
@@ -1257,6 +1257,11 @@
     (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 @@
     (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