Index: xemacs-21.5.29/lisp/x-faces.el
===================================================================
--- xemacs-21.5.29.orig/lisp/x-faces.el
+++ xemacs-21.5.29/lisp/x-faces.el
@@ -198,7 +198,7 @@ If it fails, it returns nil."
 				(fc-name-parse font))))
     (if pattern
 	(let ((size (fc-pattern-get-size pattern 0))
-	      (copy (fc-copy-pattern-partial pattern (list "family"))))
+	      (copy (fc-copy-pattern-partial pattern (list "family" "slant"))))
 	  (fc-pattern-del-weight copy)
 	  (fc-pattern-del-style copy)
 	  (when copy
@@ -272,7 +272,7 @@ If it fails, it returns nil."
 				(fc-name-parse font))))
     (if pattern
       (let ((size (fc-pattern-get-size pattern 0))
-	    (copy (fc-copy-pattern-partial pattern (list "family"))))
+	    (copy (fc-copy-pattern-partial pattern (list "family" "weight"))))
 	(when copy
 	  (fc-pattern-del-slant copy)
 	  (fc-pattern-del-style copy)