diff options
Diffstat (limited to 'lisp/language/tv-util.el')
| -rw-r--r-- | lisp/language/tv-util.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/language/tv-util.el b/lisp/language/tv-util.el index 207d76f47c1..b0527060db0 100644 --- a/lisp/language/tv-util.el +++ b/lisp/language/tv-util.el @@ -21,12 +21,13 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. -;;; Code +;;; Commentary: -;; Regexp matching with a sequence of Tai Viet characters. -(defconst tai-viet-re "[\xaa80-\xaac2\xaadb-\xaadf]+") +;;; Code: + +(defconst tai-viet-re "[\xaa80-\xaac2\xaadb-\xaadf]+" + "Regexp matching with a sequence of Tai Viet characters.") -;; Char-table of information about glyph type of Tai Viet characters. (defconst tai-viet-glyph-info (let ((table (make-char-table nil)) (specials '((right-overhang . "ꪊꪋꪌꪍꪏꪓꪖꪜꪞꪡꪤꪨ") @@ -43,7 +44,8 @@ (chars (cdr elt))) (dotimes (i (length chars)) (aset table (aref chars i) category)))) - table)) + table) + "Char-table of information about glyph type of Tai Viet characters.") (defun tai-viet-compose-string (from to string) "Compose Tai Viet characters in STRING between indices FROM and TO." |