22 lines
888 B
Diff
22 lines
888 B
Diff
|
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)
|