Mercurial > emacs
comparison lisp/faces.el @ 103252:a0a7029a23d0
(set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY".
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 19 May 2009 01:28:13 +0000 |
| parents | 14d59871ce25 |
| children | 5883b0a08647 |
comparison
equal
deleted
inserted
replaced
| 103251:ed4e37cf73c3 | 103252:a0a7029a23d0 |
|---|---|
| 723 (setq spec (cddr spec))) | 723 (setq spec (cddr spec))) |
| 724 (when (or family foundry) | 724 (when (or family foundry) |
| 725 (when (and (stringp family) | 725 (when (and (stringp family) |
| 726 (string-match "\\([^-]*\\)-\\([^-]*\\)" family)) | 726 (string-match "\\([^-]*\\)-\\([^-]*\\)" family)) |
| 727 (unless foundry | 727 (unless foundry |
| 728 (setq foundry (match-string 2 family))) | 728 (setq foundry (match-string 1 family))) |
| 729 (setq family (match-string 1 family))) | 729 (setq family (match-string 2 family))) |
| 730 (when (stringp family) | 730 (when (stringp family) |
| 731 (internal-set-lisp-face-attribute face :family (purecopy family) | 731 (internal-set-lisp-face-attribute face :family (purecopy family) |
| 732 where)) | 732 where)) |
| 733 (when (stringp foundry) | 733 (when (stringp foundry) |
| 734 (internal-set-lisp-face-attribute face :foundry (purecopy foundry) | 734 (internal-set-lisp-face-attribute face :foundry (purecopy foundry) |