[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: char-displayable-p and jisx0208
From: |
Kenichi Handa |
Subject: |
Re: char-displayable-p and jisx0208 |
Date: |
Mon, 29 Mar 2004 12:14:10 +0900 (JST) |
User-agent: |
SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.3 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI) |
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)))