# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1213322677 0
# Node ID 1388820636dae2a6bd5684346d1cafa548991b33
# Parent  d4b7c9244713919273c69077903e728cbacbd395
(set-face-attribute): Fix previous change.

diff -r d4b7c9244713 -r 1388820636da lisp/faces.el
--- a/lisp/faces.el	Fri Jun 13 02:01:07 2008 +0000
+++ b/lisp/faces.el	Fri Jun 13 02:04:37 2008 +0000
@@ -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))))