Re: char-displayable-p and jisx0208

[Kenichi Handa]

In article <address@hidden>, Jesper Harder <address@hidden> writes:
> `char-displayable-p' returns nil for Japanese jisx0208 characters
> even though they are displayable for me:

>   (char-displayable-p ?元) ==> nil

> It seems to happen because `x-list-fonts' is called with the pattern
> "-*-*-jisx0208.1990".

Thank you for the report.  I'll install the attached fix as
soon as cvs server starts to react again.

---
Ken'ichi HANDA
address@hidden

2004-03-29  Kenichi Handa  <address@hidden>

        * international/mule-util.el (char-displayable-p): Fix generation
        of XLFD file name.

*** mule-util.el        02 Sep 2003 08:25:36 +0900      1.53
--- mule-util.el        29 Mar 2004 11:45:04 +0900      
***************
*** 384,393 ****
                 ;; Now FONT-PATTERN is a string or a cons of family
                 ;; field pattern and registry field pattern.
                 (or (stringp font-pattern)
!                    (setq font-pattern (concat "-"
!                                               (or (car font-pattern) "*")
!                                               "-*-"
!                                               (cdr font-pattern))))
                 (x-list-fonts font-pattern 'default (selected-frame) 1)))))
        (t
         (let ((coding (terminal-coding-system)))
--- 384,398 ----
                 ;; 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)))))
        (t
         (let ((coding (terminal-coding-system)))