[Emacs-diffs] Changes to emacs/lisp/language/thai-util.el

[Kenichi Handa]

Index: emacs/lisp/language/thai-util.el
diff -c emacs/lisp/language/thai-util.el:1.28 
emacs/lisp/language/thai-util.el:1.29
*** emacs/lisp/language/thai-util.el:1.28       Fri Mar 18 06:51:41 2005
--- emacs/lisp/language/thai-util.el    Tue Mar 29 07:50:59 2005
***************
*** 1,8 ****
  ;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*-
  
! ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
! ;; Licensed to the Free Software Foundation.
! ;; Copyright (C) 2005
  ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  ;;   Registration Number H14PRO021
  
--- 1,6 ----
  ;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*-
  
! ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2005
  ;;   National Institute of Advanced Industrial Science and Technology (AIST)
  ;;   Registration Number H14PRO021
  
***************
*** 382,387 ****
--- 380,421 ----
        (t
         (add-hook 'after-change-functions 'thai-auto-composition))))
  
+ ;; Thai-word-mode requires functions in the feature `thai-word'.
+ (require 'thai-word)
+ 
+ (defvar thai-word-mode-map
+   (let ((map (make-sparse-keymap)))
+     (define-key map [remap forward-word] 'thai-forward-word)
+     (define-key map [remap backward-word] 'thai-backward-word)
+     (define-key map [remap kill-word] 'thai-kill-word)
+     (define-key map [remap backward-kill-word] 'thai-backward-kill-word)
+     (define-key map [remap transpose-words] 'thai-transpose-words)
+     map)
+   "Keymap for `thai-word-mode'.")
+ 
+ (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
+   (cond (thai-word-mode
+        ;; This enables linebreak between Thai characters.
+        (modify-category-entry (make-char 'thai-tis620) ?|)
+        ;; This enables linebreak at a Thai word boundary.
+        (put-charset-property 'thai-tis620 'fill-find-break-point-function
+                              'thai-fill-find-break-point))
+       (t
+        (modify-category-entry (make-char 'thai-tis620) ?| nil t)
+        (put-charset-property 'thai-tis620 'fill-find-break-point-function
+                              nil))))
+ 
+ ;; Function to call on entering the Thai language environment.
+ (defun setup-thai-language-environment-internal ()
+   (thai-word-mode 1))
+ 
+ ;; Function to call on exiting the Thai language environment.
+ (defun exit-thai-language-environment-internal ()
+   (thai-word-mode -1))
+ 
  ;;
  (provide 'thai-util)