(thai-auto-composition-mode, thai-word-mode): Specify :group.

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 6c121c60db28bc86837993d58fe4c7e249163756..dea05a4c948ba14bced798f8ee062fe335b71e92 100644 (file)
--- 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) ?|)