diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-10-21 10:45:26 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-10-21 10:45:26 +0000 |
| commit | b9c4dcd8f194c1f47250a41339f7e07a5710b8f2 (patch) | |
| tree | 80a7ed8b43737c114104996259aa61ced08f3463 /lisp/language | |
| parent | 08d4b3907f15a4cf4c565fe48e446b12a729542e (diff) | |
| download | emacs-b9c4dcd8f194c1f47250a41339f7e07a5710b8f2.tar.gz | |
(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.
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) |