(devanagari-post-read-conversion): New

function.

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 34205fbcc6fc18e97da5e7c826f224707dab0d74..19e965448ad5ff2382a1ea3979589111c99764eb 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -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)