Mercurial > emacs
changeset 20111:761a83f7cb4e
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 21 Oct 1997 10:45:26 +0000 |
| parents | bd9d9142c6b0 |
| children | 6e6838a12511 |
| files | lisp/language/devan-util.el |
| diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/devan-util.el Tue Oct 21 10:45:26 1997 +0000 +++ b/lisp/language/devan-util.el Tue Oct 21 10:45:26 1997 +0000 @@ -1258,15 +1258,20 @@ (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)