From: Kenichi Handa <handa@m17n.org>
Date: Tue, 21 Oct 1997 10:45:26 +0000 (+0000)
Subject: (devanagari-compose-from-is13194-region):
X-Git-Tag: emacs-20.3~2962
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9c4dcd8f194c1f47250a41339f7e07a5710b8f2;p=emacs.git

(devanagari-compose-from-is13194-region):
Return the length of converted region.
(in-is13194-devanagari-post-read-conversion): Return the result of
devanagari-compose-from-is13194-region.
---

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index 559be4eb589..13e18455b06 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -1258,15 +1258,20 @@ basic Devanagari character string."
 (defun devanagari-compose-from-is13194-region (from to)
   "Compose IS 13194 characters in the region to Devanagari characters."
   (interactive "r")
-  (save-restriction
-    (narrow-to-region from to)
-    (indian-to-devanagari-region (point-min) (point-max))
-    (devanagari-compose-region (point-min) (point-max))))
+  (save-excursion
+    (save-restriction
+      (narrow-to-region from to)
+      (indian-to-devanagari-region (point-min) (point-max))
+      (devanagari-compose-region (point-min) (point-max))
+      (- (point-max) (point-min)))))
 
 ;;;###autoload
 (defun in-is13194-devanagari-post-read-conversion (len)
-  (let ((pos (point)))
-    (devanagari-compose-from-is13194-region pos (+ pos len))))
+  (let ((pos (point))
+	(buffer-modified-p (buffer-modified-p)))
+    (prog1
+	(devanagari-compose-from-is13194-region pos (+ pos len))
+      (set-buffer-modified-p buffer-modified-p))))
 
 ;;;###autoload
 (defun devanagari-decompose-to-is13194-region (from to)