diff options
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/devan-util.el | 17 |
1 files changed, 11 insertions, 6 deletions
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) |