Lines Matching defs:font
52 (defvar indian-font-foundry 'cdac
66 "Alist of Indian scripts vs the corresponding language list and font foundry.
76 FONT-FOUNDRY is a font foundry representing a group of Indian
77 fonts. If the value is nil, the value of `indian-font-foundry'
80 (defconst indian-font-char-index-table
106 "Alist of indices of `indian-glyph' character vs Indian font identifiers.
110 `indian-glyph' assigned for glyphs in the font specified by
112 and AKRUTI font groups.")
114 (defun indian-font-char (index font-identifier)
116 FONT-IDENTIFIER is an identifier of an Indian font listed in the
117 variable `indian-font-char-index-table'. It specifies which
118 font INDEX is for."
121 (let ((start (car (rassq font-identifier indian-font-char-index-table))))
123 (error "Unknown font identifier: %s" font-identifier))
128 ;; charset `indian-glyph' for displaying SCRIPT in LANGUAGE by a font
131 (defun indian-font-char-range (font-identifier)
132 (cons (indian-font-char 0 font-identifier)
133 (indian-font-char 255 font-identifier)))
163 (define-ccl-program ccl-encode-indian-glyph-font
168 (setq font-ccl-encoder-alist
169 (cons (cons "-CDAC" 'ccl-encode-indian-glyph-font)
170 font-ccl-encoder-alist))
172 (setq font-ccl-encoder-alist
173 (cons (cons "-AKRUTI" 'ccl-encode-indian-glyph-font)
174 font-ccl-encoder-alist))