Re: sans-serif name change

[Kenichi Handa <handa@m17n.org>]

In article <4862198F.4060305@gnu.org>, Jason Rumney <jasonr@gnu.org> writes:

> My guess is that the `-' in Sans-Serif is being treated as a separator
> character, and causes Emacs to look for a font called Serif with the
> foundry Sans, or something similar.

Yes.  I didn't change that behaviour for backward
compatibility, but as face has the attribute :foundy now, it
may be ok to break that compatibility.

The parsing of XXX-YYY as FOUNDRY-FAMILY is now done in
the function set-face-attribute as this:

	(if (and (eq (car args) :family)
		 (stringp (cadr args))
		 (string-match "\\([^-]*\\)-\\([^-]*\\)" (cadr args)))
	    (let ((foundry (match-string 1 (cadr args)))
		  (family (match-string 2 (cadr args))))
	      (internal-set-lisp-face-attribute face :foundry
						(purecopy foundry)
						where)
	      (internal-set-lisp-face-attribute face :family
						(purecopy family)
						where))
	  (internal-set-lisp-face-attribute face (car args)
					    (purecopy (cadr args))
					    where)))

---
Kenichi Handa
handa@ni.aist.go.jp