Variable: tai-viet-glyph-info

tai-viet-glyph-info is a variable defined in tv-util.el.gz.

Value

Large value
#^[nil nil nil
       #^^[3 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil misc nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil nil nil nil nil nil nil nil nil nil nil nil nil
	     nil nil]
       #^^[1 0
	     #^^[2 0
		   #^^[3 0 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil misc nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil]
		   nil nil nil nil nil nil nil nil nil nil nil nil nil
		   nil nil nil nil nil nil nil nil nil nil nil nil nil
		   nil nil nil nil nil]
	     nil nil nil nil nil nil nil nil nil
	     #^^[2 40960 nil nil nil nil nil nil nil nil nil nil nil
		   nil nil nil nil nil nil nil nil nil nil
		   #^^[3 43648 t t t t t t t t t t right-overhang
			 right-overhang right-overhang right-overhang
			 t right-overhang t t t right-overhang t t
			 right-overhang t t t t t right-overhang t
			 right-overhang t t right-overhang t t
			 right-overhang t t t right-overhang t t t t t
			 t t combining-vowel t combining-vowel
			 combining-vowel combining-vowel t t
			 combining-vowel combining-vowel t t t t t
			 combining-vowel combining-tone t
			 combining-tone left-overhang nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil t t t t t
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil nil
			 nil nil nil nil nil nil nil nil nil nil]
		   nil nil nil nil nil nil nil nil nil nil]
	     nil nil nil nil nil]
       nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
       nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
       nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
       nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]

Documentation

Char-table of information about glyph type of Tai Viet characters.

Source Code

;; Defined in /usr/src/emacs/lisp/language/tv-util.el.gz
(defconst tai-viet-glyph-info
  (let ((table (make-char-table nil))
	(specials '((right-overhang . "ꪊꪋꪌꪍꪏꪓꪖꪜꪞꪡꪤꪨ")
		    (left-overhang . "ꫂ")
		    (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ")
		    (combining-tone . "꪿꫁")
		    (misc . "-"))))
    ;; Set all TaiViet characters to t.
    (set-char-table-range table (cons #xaa80 #xaac2) t)
    (set-char-table-range table (cons #xaadb #xaadf) t)
    ;; Overwrite it for special characters.
    (dolist (elt specials)
      (let ((category (car elt))
	    (chars (cdr elt)))
	(dotimes (i (length chars))
	  (aset table (aref chars i) category))))
    table)
  "Char-table of information about glyph type of Tai Viet characters.")