Re: use of jisx0208 in cvs-status

[Kenichi Handa]

In article <address@hidden>, Dave Love <address@hidden> writes:

> Kenichi Handa <address@hidden> writes:
>>  I fixed some bug of char-displayable-p last month, and 
>>    (char-displayable-p (make-char 'japanese-jisx0208 40 44))
>>  returns
>>    ("-misc-fixed-medium-r-normal--16-150-75-75-c-160-jisx0208.1990-0")
>>  in my environment now.

> Not for me on Debian, either unstable (xfree 4.3.0) or stable++ (4.2.1
> fonts).

>>  Are you using the latest version?

> As far as I can tell.  What was the change?

The attached is the relevant change.

---
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.

Index: mule-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-util.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -c -r1.53 -r1.54
cvs server: conflicting specifications of output style
*** mule-util.el        1 Sep 2003 18:45:35 -0000       1.53
--- mule-util.el        29 Mar 2004 03:41:39 -0000      1.54
***************
*** 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)))