Mercurial > emacs

changeset 103252:a0a7029a23d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ed4e37cf73c3
children ea57dd823342
files lisp/faces.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue May 19 00:27:03 2009 +0000
+++ b/lisp/faces.el	Tue May 19 01:28:13 2009 +0000
@@ -725,8 +725,8 @@
       (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))