forked from pool/xemacs
23 lines
906 B
Diff
23 lines
906 B
Diff
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)
|