mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Lute Kamstra 2005-04-04 09:17:41 +00:00
parent 64a2e5cab9
commit c92164e101
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/language/thai-util.el
View File

@ -278,7 +278,7 @@ if necessary."
(defun thai-compose-syllable (beg end &optional category-set string) (defun thai-compose-syllable (beg end &optional category-set string)
(or category-set (or category-set
(setq category-set (setq category-set
(char-category-set (if string (aref string beg) (char-after beg))))) (char-category-set (if string (aref string beg) (char-after beg)))))
(if (aref category-set ?c) (if (aref category-set ?c)
;; Starting with a consonant. We do relative composition. ;; Starting with a consonant. We do relative composition.
@ -287,9 +287,9 @@ if necessary."
(compose-region beg end)) (compose-region beg end))
;; Vowel tone sequence. ;; Vowel tone sequence.
(if string (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)))) (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)))))) (char-after (1+ beg))))))
(- end beg)) (- end beg))
@ -347,7 +347,7 @@ The return value is number of composed characters."
(if string (if string
(if (eq (string-match thai-composition-pattern string from) from) (if (eq (string-match thai-composition-pattern string from) from)
(thai-compose-syllable from (match-end 0) nil string)) (thai-compose-syllable from (match-end 0) nil string))
(if (save-excursion (if (save-excursion
(goto-char from) (goto-char from)
(and (looking-at thai-composition-pattern) (and (looking-at thai-composition-pattern)
(setq to (match-end 0)))) (setq to (match-end 0))))
@ -375,7 +375,7 @@ The return value is number of composed characters."
;;;###autoload ;;;###autoload
(define-minor-mode thai-auto-composition-mode (define-minor-mode thai-auto-composition-mode
"Minor mode for automatically correct Thai character composition." "Minor mode for automatically correct Thai character composition."
nil nil nil :group 'mule
(cond ((null thai-auto-composition-mode) (cond ((null thai-auto-composition-mode)
(remove-hook 'after-change-functions 'thai-auto-composition)) (remove-hook 'after-change-functions 'thai-auto-composition))
(t (t
@ -397,7 +397,7 @@ The return value is number of composed characters."
(define-minor-mode thai-word-mode (define-minor-mode thai-word-mode
"Minor mode to make word-oriented commands aware of Thai words. "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]." 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 (cond (thai-word-mode
;; This enables linebreak between Thai characters. ;; This enables linebreak between Thai characters.
(modify-category-entry (make-char 'thai-tis620) ?|) (modify-category-entry (make-char 'thai-tis620) ?|)