[Emacs-diffs] Changes to emacs/lisp/faces.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/06/13 02:04:37

Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.408
retrieving revision 1.409
diff -u -b -r1.408 -r1.409
--- faces.el    13 Jun 2008 02:01:07 -0000      1.408
+++ faces.el    13 Jun 2008 02:04:37 -0000      1.409
@@ -706,6 +706,7 @@
       ;; when we update the frame's font param fro the attributes.
       (let ((inhibit-face-set-after-frame-default t))
        (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))))