# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1008438701 0
# Node ID 144a811f0590ba945ab0b92a873bd3de5fad7e17
# Parent  b88662003c0103deecbc311a3a80cf008d19dc78
(devanagari-post-read-conversion): New
function.

diff -r b88662003c01 -r 144a811f0590 lisp/language/devan-util.el
--- a/lisp/language/devan-util.el	Sat Dec 15 17:48:26 2001 +0000
+++ b/lisp/language/devan-util.el	Sat Dec 15 17:51:41 2001 +0000
@@ -75,6 +75,15 @@
     (devanagari-compose-region (point-min) (point-max))
     (buffer-string)))
 
+(defun devanagari-post-read-conversion (len)
+  (save-excursion
+    (save-restriction
+      (let ((buffer-modified-p (buffer-modified-p)))
+	(narrow-to-region (point) (+ (point) len))
+	(devanagari-compose-region (point-min) (point-max))
+	(set-buffer-modified-p buffer-modified-p)
+	(- (point-max) (point-min))))))
+
 (defun range (from to)
   "Make the list of the integers of range FROM to TO."
   (let (result)