Lines Matching defs:font
34 ;; fontset to find an appropriate font for each charset. This is used
35 ;; to generate a font name for a fontset if the fontset doesn't
36 ;; specify a font name for a specific character. The specification
54 ;; that a font of wrong size is preferred if the font
103 (,(indian-font-char-range 'cdac:dv-ttsurekh)
105 (,(indian-font-char-range 'cdac:sd-ttsurekh)
107 (,(indian-font-char-range 'cdac:bn-ttdurga)
109 (,(indian-font-char-range 'cdac:as-ttdurga)
111 (,(indian-font-char-range 'cdac:pn-ttamar)
113 (,(indian-font-char-range 'cdac:gj-ttavantika)
115 (,(indian-font-char-range 'cdac:or-ttsarala)
117 (,(indian-font-char-range 'cdac:tm-ttvalluvar)
119 (,(indian-font-char-range 'cdac:tl-tthemalatha)
121 (,(indian-font-char-range 'cdac:kn-ttuma)
123 (,(indian-font-char-range 'cdac:ml-ttkarthika)
126 (,(indian-font-char-range 'akruti:dev)
128 (,(indian-font-char-range 'akruti:bng)
130 (,(indian-font-char-range 'akruti:pnj)
132 (,(indian-font-char-range 'akruti:guj)
134 (,(indian-font-char-range 'akruti:ori)
136 (,(indian-font-char-range 'akruti:tml)
138 (,(indian-font-char-range 'akruti:tlg)
140 (,(indian-font-char-range 'akruti:knd)
142 (,(indian-font-char-range 'akruti:mal)
145 (set-fontset-font "fontset-default" (car elt) (cdr elt))))
147 ;; Set arguments in `font-encoding-alist' (which see).
148 (defun set-font-encoding (pattern charset encoding)
149 (let ((slot (assoc pattern font-encoding-alist)))
155 (setq font-encoding-alist
156 (cons (list pattern (cons charset encoding)) font-encoding-alist)))
160 ;; (`Unicode') font.
166 (define-ccl-program ccl-encode-unicode-font
214 "Encode characters for display with iso10646 font.
224 (setq font-ccl-encoder-alist
225 (cons '("ISO10646.*-*" . ccl-encode-unicode-font)
226 font-ccl-encoder-alist))
229 (setq x-pixel-size-width-font-regexp
233 (setq vertical-centering-font-regexp
237 (setq face-font-rescale-alist
240 (defvar x-font-name-charset-alist
258 "Alist of font names vs list of charsets the font can display.
260 When a font name which matches some element of this alist is given as
262 which uses the specified font for the corresponding charsets are
301 (defun x-decompose-font-name (pattern)
317 (x-resolve-font-name pattern)
379 ;; Ex. (x-reduce-font-name "-*-*-*-iso8859-1") => "-*-iso8859-1"
380 (defsubst x-reduce-font-name (name)
385 (defun x-compose-font-name (fields &optional reduce)
394 (defun x-must-resolve-font-name (xlfd-fields)
395 "Like `x-resolve-font-name', but always return a font name.
397 If no font matching XLFD-FIELDS is available, successively replace
398 parts of the font name pattern with \"*\" until some font is found.
399 Value is name of that font."
400 (let ((ascii-font nil) (index 0))
401 (while (and (null ascii-font) (<= index xlfd-regexp-encoding-subnum))
402 (let ((pattern (x-compose-font-name xlfd-fields)))
404 (setq ascii-font (x-resolve-font-name pattern))
409 (unless ascii-font
411 ascii-font))
417 FONTLIST is an alist of charsets vs the corresponding font names.
421 If FONTLIST doesn't specify a font for ASCII charset, generate a font
425 If a font specifid for ASCII supports the other charsets (see the
426 variable `x-font-name-charset-alist'), add that information to FONTLIST."
428 (ascii-font (cdr slot))
429 ascii-font-spec)
430 (if ascii-font
431 (setcdr slot (setq ascii-font (x-resolve-font-name ascii-font)))
432 ;; If font for ASCII is not specified, add it.
435 (setq ascii-font (x-must-resolve-font-name xlfd-fields))
436 (setq fontlist (cons (cons 'ascii ascii-font) fontlist)))
438 ;; If the font for ASCII also supports the other charsets, and
440 (setq xlfd-fields (x-decompose-font-name ascii-font))
442 (setq ascii-font-spec ascii-font)
443 (setq ascii-font-spec
450 (let ((tail x-font-name-charset-alist)
454 (if (string-match (car elt) ascii-font)
461 (cons (cons charset ascii-font-spec) fontlist))))))))
473 ;; Return a list to be appended to `x-fixed-font-alist' when
474 ;; `mouse-set-font' is called.
489 (let ((xlfd-fields (x-decompose-font-name fontset)))
537 xlfd-fields charset fontlist ascii-font)
541 (setq xlfd-fields (x-decompose-font-name name))
553 (setq ascii-font (cdr (assq 'ascii fontlist)))
568 ;; Define the ASCII font name alias.
569 (or ascii-font
570 (setq ascii-font (cdr (assq 'ascii fontlist))))
571 (or (rassoc ascii-font fontset-alias-alist)
573 (cons (cons name ascii-font)
578 (defun create-fontset-from-ascii-font (font &optional resolved-font
580 "Create a fontset from an ASCII font FONT.
583 If omitted, `x-resolve-font-name' is called to get the resolved name.
591 (setq font (downcase font))
592 (if resolved-font
593 (setq resolved-font (downcase resolved-font))
594 (setq resolved-font (downcase (x-resolve-font-name font))))
595 (let ((xlfd (x-decompose-font-name font))
596 (resolved-xlfd (x-decompose-font-name resolved-font))
609 (setq fontset (x-compose-font-name xlfd))
611 (create-fontset-from-fontset-spec (concat fontset ", ascii:" font)))))