61 |
"\\)") |
"\\)") |
62 |
"Regexp matching a composable sequence of Kannada characters.") |
"Regexp matching a composable sequence of Kannada characters.") |
63 |
|
|
64 |
|
;;;###autoload |
65 |
(defun kannada-compose-region (from to) |
(defun kannada-compose-region (from to) |
66 |
(interactive "r") |
(interactive "r") |
67 |
(save-excursion |
(save-excursion |
71 |
(while (re-search-forward kannada-composable-pattern nil t) |
(while (re-search-forward kannada-composable-pattern nil t) |
72 |
(kannada-compose-syllable-region (match-beginning 0) |
(kannada-compose-syllable-region (match-beginning 0) |
73 |
(match-end 0)))))) |
(match-end 0)))))) |
74 |
|
;;;###autoload |
75 |
(defun kannada-compose-string (string) |
(defun kannada-compose-string (string) |
76 |
(with-temp-buffer |
(with-temp-buffer |
77 |
(insert (decompose-string string)) |
(insert (decompose-string string)) |
78 |
(kannada-compose-region (point-min) (point-max)) |
(kannada-compose-region (point-min) (point-max)) |
79 |
(buffer-string))) |
(buffer-string))) |
80 |
|
|
81 |
|
;;;###autoload |
82 |
(defun kannada-post-read-conversion (len) |
(defun kannada-post-read-conversion (len) |
83 |
(save-excursion |
(save-excursion |
84 |
(save-restriction |
(save-restriction |