# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1112606261 0
# Node ID 68eb0186eb0d1b8da956005b7442ab0962d86f2c
# Parent  00b61538c205840eacd3b3171d106183c1cc43ed
(thai-auto-composition-mode, thai-word-mode): Specify :group.

diff -r 00b61538c205 -r 68eb0186eb0d lisp/language/thai-util.el
--- a/lisp/language/thai-util.el	Mon Apr 04 09:15:05 2005 +0000
+++ b/lisp/language/thai-util.el	Mon Apr 04 09:17:41 2005 +0000
@@ -278,7 +278,7 @@
 
 (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 @@
 	(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 @@
       (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 @@
 ;;;###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 @@
 (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) ?|)