diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-05-19 01:28:54 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-05-19 01:28:54 +0000 |
| commit | 3a92c0959382593b23f02e71b5033f3f7b29f019 (patch) | |
| tree | 7be470ec7f398317df568a94151fa37596690822 /lisp/faces.el | |
| parent | 1c6d1051f17696737000032498c108cf9d0fd114 (diff) | |
| download | emacs-3a92c0959382593b23f02e71b5033f3f7b29f019.tar.gz | |
(set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY".
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 778a363b170..57d6bd7dcb3 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -725,8 +725,8 @@ like an underlying face would be, with higher priority than underlying faces." (when (and (stringp family) (string-match "\\([^-]*\\)-\\([^-]*\\)" family)) (unless foundry - (setq foundry (match-string 2 family))) - (setq family (match-string 1 family))) + (setq foundry (match-string 1 family))) + (setq family (match-string 2 family))) (when (stringp family) (internal-set-lisp-face-attribute face :family (purecopy family) where)) |