Mercurial > emacs
comparison lisp/language/devan-util.el @ 42054:144a811f0590
(devanagari-post-read-conversion): New
function.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 15 Dec 2001 17:51:41 +0000 |
| parents | 402b676048e8 |
| children | 0332665b9445 |
comparison
equal
deleted
inserted
replaced
| 42053:b88662003c01 | 42054:144a811f0590 |
|---|---|
| 72 (defun devanagari-compose-string (string) | 72 (defun devanagari-compose-string (string) |
| 73 (with-temp-buffer | 73 (with-temp-buffer |
| 74 (insert (decompose-string string)) | 74 (insert (decompose-string string)) |
| 75 (devanagari-compose-region (point-min) (point-max)) | 75 (devanagari-compose-region (point-min) (point-max)) |
| 76 (buffer-string))) | 76 (buffer-string))) |
| 77 | |
| 78 (defun devanagari-post-read-conversion (len) | |
| 79 (save-excursion | |
| 80 (save-restriction | |
| 81 (let ((buffer-modified-p (buffer-modified-p))) | |
| 82 (narrow-to-region (point) (+ (point) len)) | |
| 83 (devanagari-compose-region (point-min) (point-max)) | |
| 84 (set-buffer-modified-p buffer-modified-p) | |
| 85 (- (point-max) (point-min)))))) | |
| 77 | 86 |
| 78 (defun range (from to) | 87 (defun range (from to) |
| 79 "Make the list of the integers of range FROM to TO." | 88 "Make the list of the integers of range FROM to TO." |
| 80 (let (result) | 89 (let (result) |
| 81 (while (<= from to) (setq result (cons to result) to (1- to))) result)) | 90 (while (<= from to) (setq result (cons to result) to (1- to))) result)) |