diff options
Diffstat (limited to 'lisp/language/thai-word.el')
-rw-r--r-- | lisp/language/thai-word.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el index 5d0389c28df..d12064958e1 100644 --- a/lisp/language/thai-word.el +++ b/lisp/language/thai-word.el @@ -64,7 +64,6 @@ ;; the sale, use or other dealings in this Software without prior ;; written authorization of the copyright holder. - ;;; Commentary: ;; This file implements an algorithm to find Thai word breaks using a @@ -76,6 +75,8 @@ ;; which means that you can easily index the list character by ;; character. +;;; Code: + (defvar thai-word-table (let ((table (list 'thai-words))) (dolist (elt @@ -10740,8 +10741,8 @@ (defun thai-update-word-table (file &optional append) - "Update Thai word table by replacing the current word list with -FILE. If called with a prefix argument, FILE is appended instead to + "Update Thai word table by replacing the current word list with FILE. +If called with a prefix argument, FILE is appended instead to the current word list." (interactive "FThai word table file: \nP") (let ((buf (generate-new-buffer "*thai-work*")) @@ -11041,20 +11042,20 @@ If COUNT is negative, move point forward (- COUNT) words." (defun thai-kill-word (arg) - "Like kill-word but pay attention to Thai word boundaries. + "Like `kill-word' but pay attention to Thai word boundaries. With argument, do this that many times." (interactive "p") (kill-region (point) (progn (thai-forward-word arg) (point)))) (defun thai-backward-kill-word (arg) - "Like backward-kill-word but pay attention to Thai word boundaries." + "Like `backward-kill-word' but pay attention to Thai word boundaries." (interactive "p") (thai-kill-word (- arg))) (defun thai-transpose-words (arg) - "Like transpose-words but pay attention to Thai word boundaries." + "Like `transpose-words' but pay attention to Thai word boundaries." (interactive "*p") (transpose-subr 'thai-forward-word arg)) |