[Emacs-diffs] emacs/lisp faces.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/05/19 01:28:14

Modified files:
        lisp           : faces.el 

Log message:
        (set-face-attribute): Fix handling of :family "FOUNDRY-FAMILY".

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/faces.el?cvsroot=emacs&r1=1.441&r2=1.442

Patches:
Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.441
retrieving revision 1.442
diff -u -b -r1.441 -r1.442
--- faces.el    7 May 2009 00:03:46 -0000       1.441
+++ faces.el    19 May 2009 01:28:13 -0000      1.442
@@ -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))