379 |
;; On a window system, a character is displayable if we have |
;; On a window system, a character is displayable if we have |
380 |
;; a font for that character in the default face of the |
;; a font for that character in the default face of the |
381 |
;; currently selected frame. |
;; currently selected frame. |
382 |
(let ((fontset (frame-parameter (selected-frame) 'font)) |
(car (internal-char-font nil char))) |
|
font-pattern) |
|
|
(if (query-fontset fontset) |
|
|
(setq font-pattern (fontset-font fontset char))) |
|
|
(or font-pattern |
|
|
(setq font-pattern (fontset-font "fontset-default" char))) |
|
|
(if font-pattern |
|
|
(progn |
|
|
;; Now FONT-PATTERN is a string or a cons of family |
|
|
;; field pattern and registry field pattern. |
|
|
(or (stringp font-pattern) |
|
|
(let ((family (or (car font-pattern) "*")) |
|
|
(registry (or (cdr font-pattern) "*"))) |
|
|
(or (string-match "-" family) |
|
|
(setq family (concat "*-" family))) |
|
|
(or (string-match "-" registry) |
|
|
(setq registry (concat registry "-*"))) |
|
|
(setq font-pattern |
|
|
(format "-%s-*-*-*-*-*-*-*-*-*-*-%s" |
|
|
family registry)))) |
|
|
(x-list-fonts font-pattern 'default (selected-frame) 1))))) |
|
383 |
(t |
(t |
384 |
(let ((coding (terminal-coding-system))) |
(let ((coding (terminal-coding-system))) |
385 |
(if coding |
(if coding |