/[emacs]/emacs/lisp/international/mule-util.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51.6.3 by handa, Fri Apr 16 12:50:30 2004 UTC revision 1.51.6.4 by miles, Mon Jun 28 07:29:47 2004 UTC
# Line 379  basis, this may not be accurate." Line 379  basis, this may not be accurate."
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

Legend:
Removed from v.1.51.6.3  
changed lines
  Added in v.1.51.6.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26