diff options
| author | Lute Kamstra <lute@gnu.org> | 2005-04-04 09:17:41 +0000 |
|---|---|---|
| committer | Lute Kamstra <lute@gnu.org> | 2005-04-04 09:17:41 +0000 |
| commit | c92164e10167234a115668f0ed2014eb4abb854d (patch) | |
| tree | 643c5cc86e0e24e70af48edde8d4c4163e7b97c6 /lisp/language | |
| parent | 64a2e5cab9c27a07343e2e0679f35259a11fa76d (diff) | |
| download | emacs-c92164e10167234a115668f0ed2014eb4abb854d.tar.gz | |
(thai-auto-composition-mode, thai-word-mode): Specify :group.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/thai-util.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index 6c121c60db2..dea05a4c948 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el @@ -278,7 +278,7 @@ if necessary." (defun thai-compose-syllable (beg end &optional category-set string) (or category-set - (setq category-set + (setq category-set (char-category-set (if string (aref string beg) (char-after beg))))) (if (aref category-set ?c) ;; Starting with a consonant. We do relative composition. @@ -287,9 +287,9 @@ if necessary." (compose-region beg end)) ;; Vowel tone sequence. (if string - (compose-string string beg end (list (aref string beg) '(Bc . Bc) + (compose-string string beg end (list (aref string beg) '(Bc . Bc) (aref string (1+ beg)))) - (compose-region beg end (list (char-after beg) '(Bc . Bc) + (compose-region beg end (list (char-after beg) '(Bc . Bc) (char-after (1+ beg)))))) (- end beg)) @@ -347,7 +347,7 @@ The return value is number of composed characters." (if string (if (eq (string-match thai-composition-pattern string from) from) (thai-compose-syllable from (match-end 0) nil string)) - (if (save-excursion + (if (save-excursion (goto-char from) (and (looking-at thai-composition-pattern) (setq to (match-end 0)))) @@ -375,7 +375,7 @@ The return value is number of composed characters." ;;;###autoload (define-minor-mode thai-auto-composition-mode "Minor mode for automatically correct Thai character composition." - nil nil nil + :group 'mule (cond ((null thai-auto-composition-mode) (remove-hook 'after-change-functions 'thai-auto-composition)) (t @@ -397,7 +397,7 @@ The return value is number of composed characters." (define-minor-mode thai-word-mode "Minor mode to make word-oriented commands aware of Thai words. The commands affected are \\[forward-word], \\[backward-word], \\[kill-word], \\[backward-kill-word], \\[transpose-words], and \\[fill-paragraph]." - :global t + :global t :group 'mule (cond (thai-word-mode ;; This enables linebreak between Thai characters. (modify-category-entry (make-char 'thai-tis620) ?|) |