diff options
| -rw-r--r-- | lisp/language/mlm-util.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/language/mlm-util.el b/lisp/language/mlm-util.el index 04dfde491d1..e575cfc61f4 100644 --- a/lisp/language/mlm-util.el +++ b/lisp/language/mlm-util.el | |||
| @@ -103,7 +103,7 @@ | |||
| 103 | ;;;###autoload | 103 | ;;;###autoload |
| 104 | (defun malayalam-composition-function (from to pattern &optional string) | 104 | (defun malayalam-composition-function (from to pattern &optional string) |
| 105 | "Compose Malayalam characters in REGION, or STRING if specified. | 105 | "Compose Malayalam characters in REGION, or STRING if specified. |
| 106 | Assume that the REGION or STRING must fully match the composable | 106 | Assume that the REGION or STRING must fully match the composable |
| 107 | PATTERN regexp." | 107 | PATTERN regexp." |
| 108 | (if string (malayalam-compose-syllable-string string) | 108 | (if string (malayalam-compose-syllable-string string) |
| 109 | (malayalam-compose-syllable-region from to)) | 109 | (malayalam-compose-syllable-region from to)) |
| @@ -239,7 +239,7 @@ PATTERN regexp." | |||
| 239 | ("$,1@H@m@E(B" . "$,47Y(B") | 239 | ("$,1@H@m@E(B" . "$,47Y(B") |
| 240 | ("$,1@H@m@Q(B" . "$,47b(B") | 240 | ("$,1@H@m@Q(B" . "$,47b(B") |
| 241 | ("$,1@H@a(B" . "$,47k(B") | 241 | ("$,1@H@a(B" . "$,47k(B") |
| 242 | ("$,1@H@m@H@a(B" . "$,47l(B") | 242 | ("$,1@H@m@H@a(B" . "$,47l(B") |
| 243 | 243 | ||
| 244 | ("$,1@J(B" . "$,46=(B") | 244 | ("$,1@J(B" . "$,46=(B") |
| 245 | ("$,1@J@m@J(B" . "$,478(B") ;; duplicate | 245 | ("$,1@J@m@J(B" . "$,478(B") ;; duplicate |
| @@ -401,7 +401,7 @@ PATTERN regexp." | |||
| 401 | (apply | 401 | (apply |
| 402 | 'nconc | 402 | 'nconc |
| 403 | (mapcar | 403 | (mapcar |
| 404 | (function | 404 | (function |
| 405 | (lambda (x) (list '(5 . 3) x))) ;; default ref. point. | 405 | (lambda (x) (list '(5 . 3) x))) ;; default ref. point. |
| 406 | glyph-str)))) | 406 | glyph-str)))) |
| 407 | (compose-region from to glyph-str))))) | 407 | (compose-region from to glyph-str))))) |