From c92164e10167234a115668f0ed2014eb4abb854d Mon Sep 17 00:00:00 2001
From: Lute Kamstra <lute@gnu.org>
Date: Mon, 4 Apr 2005 09:17:41 +0000
Subject: (thai-auto-composition-mode, thai-word-mode): Specify :group.

---
 lisp/language/thai-util.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lisp')

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 6c121c60db..dea05a4c94 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) ?|)
-- 
cgit v1.2.3