Skip to content

GitLab

Commit 311a84c0 authored by Chong Yidong's avatar Chong Yidong
Browse files

(x-font-family-list): Remove entirely.

parent a933c4f7
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 12 deletions
lisp/faces.el
View file @ 311a84c0
...@@ -2681,18 +2681,6 @@ If that can't be done, return nil." ...@@ -2681,18 +2681,6 @@ If that can't be done, return nil."
(internal-frob-font-slant font "i"))) (internal-frob-font-slant font "i")))
(make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1") (make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1")
(defun x-font-family-list (&optional frame)
"Return a list of available font families on FRAME.
If FRAME is omitted or nil, use the selected frame.
Value is a list of conses (FAMILY . FIXED-P) where FAMILY
is a font family, and FIXED-P is non-nil if fonts of that family
are fixed-pitch."
(if (fboundp 'font-family-list)
(mapcar (lambda (family) (cons family nil))
(font-family-list))
'(("default" . t))))
(make-obsolete 'x-font-family-list 'font-family-list "23.1")
(provide 'faces) (provide 'faces)
;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6 ;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment