diff -ru xemacs-21.5.28.orig/lisp/x-faces.el xemacs-21.5.28/lisp/x-faces.el
--- xemacs-21.5.28.orig/lisp/x-faces.el	2007-05-07 16:27:44.000000000 +0200
+++ xemacs-21.5.28/lisp/x-faces.el	2007-07-18 19:25:10.000000000 +0200
@@ -198,7 +198,7 @@
 				(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 @@
 				(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)