font for jit chars?

Aidan Kehoe kehoea
Wed Nov 8 11:12:01 EST 2006


 Ar an t-ocht? l? de m? na Samhain, scr?obh Ilya N. Golubev: 

 > So, now `specifier-matching-instance' MATCHSPEC `car' must be
 > `(get-charset 'jit-ucs-charset-0)', and this does make difference with
 > just `'jit-ucs-charset-0'? 

No. 

 > 1If so, please document. If all of it should not make difference, then my
 > tools, `xfontsel', `xfd', show wrong things, or at least fail to
 > reproduce how xemacs uses this font.

Does specifier-matching-instance give a different result for the font
compared to this: 

(face-font-instance 'default nil 'jit-ucs-charset-0) 

? This assumes it is the default face you are investigating. 

 > And should normally use them to select the font. So in this case will
 > need at least an item in `PROBLEMS' describing how to figure that X tools
 > are broken this way, and what to use instead.
 > 
 > Is `encode-as-utf-8' in font specifier TAG-SET essential?  If so,
 > please document.

It?s essential if you want the font specification to apply to the JIT UCS
character sets. See define-specifier-tag for documentation of the new
specifier tag charset predicates; encode-as-utf-8 is a predefined specifier
tag with the semantics of the following:

(define-specifier-tag 'encode-as-utf-8 nil 
    		      (lambda (charset) 
    		        (charset-property charset 'encode-as-utf-8)))

To apply it to jit-ucs-charset-0 specifically, you could write: 

(define-specifier-tag 'jit-ucs-charset-0 nil
    		      (lambda (charset) 
    		        (eq charset (find-charset 'jit-ucs-charset-0))))

(set-face-font 'default "your desired font xlfd" nil
	'(x jit-ucs-charset-0))

Again, this assumes the default face. 

-- 
Santa Maradona, priez pour moi!



More information about the XEmacs-Beta mailing list