Mercurial > emacs
comparison lisp/language/knd-util.el @ 53035:edde52617580
(kannada-compose-region) (kannada-compose-string,
kannada-post-read-conversion): Add autoload cookie.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Nov 2003 07:20:38 +0000 |
| parents | 56dd8068d740 |
| children | 18a818a2ee7c |
comparison
equal
deleted
inserted
replaced
| 53034:eb00830302e9 | 53035:edde52617580 |
|---|---|
| 59 "\\(?:\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?[$,1>u(B-$,1?9(B]$,1?M(B\\)?" | 59 "\\(?:\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?[$,1>u(B-$,1?9(B]$,1?M(B\\)?" |
| 60 "[$,1>u(B-$,1?9(B]\\(?:$,1?M(B\\|[$,1?>(B-$,1?M?U?C(B]?\\)?" | 60 "[$,1>u(B-$,1?9(B]\\(?:$,1?M(B\\|[$,1?>(B-$,1?M?U?C(B]?\\)?" |
| 61 "\\)") | 61 "\\)") |
| 62 "Regexp matching a composable sequence of Kannada characters.") | 62 "Regexp matching a composable sequence of Kannada characters.") |
| 63 | 63 |
| 64 ;;;###autoload | |
| 64 (defun kannada-compose-region (from to) | 65 (defun kannada-compose-region (from to) |
| 65 (interactive "r") | 66 (interactive "r") |
| 66 (save-excursion | 67 (save-excursion |
| 67 (save-restriction | 68 (save-restriction |
| 68 (narrow-to-region from to) | 69 (narrow-to-region from to) |
| 69 (goto-char (point-min)) | 70 (goto-char (point-min)) |
| 70 (while (re-search-forward kannada-composable-pattern nil t) | 71 (while (re-search-forward kannada-composable-pattern nil t) |
| 71 (kannada-compose-syllable-region (match-beginning 0) | 72 (kannada-compose-syllable-region (match-beginning 0) |
| 72 (match-end 0)))))) | 73 (match-end 0)))))) |
| 74 ;;;###autoload | |
| 73 (defun kannada-compose-string (string) | 75 (defun kannada-compose-string (string) |
| 74 (with-temp-buffer | 76 (with-temp-buffer |
| 75 (insert (decompose-string string)) | 77 (insert (decompose-string string)) |
| 76 (kannada-compose-region (point-min) (point-max)) | 78 (kannada-compose-region (point-min) (point-max)) |
| 77 (buffer-string))) | 79 (buffer-string))) |
| 78 | 80 |
| 81 ;;;###autoload | |
| 79 (defun kannada-post-read-conversion (len) | 82 (defun kannada-post-read-conversion (len) |
| 80 (save-excursion | 83 (save-excursion |
| 81 (save-restriction | 84 (save-restriction |
| 82 (let ((buffer-modified-p (buffer-modified-p))) | 85 (let ((buffer-modified-p (buffer-modified-p))) |
| 83 (narrow-to-region (point) (+ (point) len)) | 86 (narrow-to-region (point) (+ (point) len)) |