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

311a84c0 · Chong Yidong · a933c4f7 · 311a84c0
Commit 311a84c0 authored Jan 10, 2009 by Chong Yidong
Show whitespace changes
Inline Side-by-side

Showing with 0 additions and 12 deletions

lisp/faces.el lisp/faces.el +0 -12

No files found.
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2681,18 +2681,6 @@ If that can't be done, return nil."
       (internal-frob-font-slant font "i")))
 (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)

 ;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6