[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp faces.el

From: Chong Yidong
Subject: [Emacs-diffs] emacs/lisp faces.el
Date: Sat, 10 Jan 2009 12:55:24 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/10 12:55:24

Modified files:
        lisp           : faces.el 

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


Index: faces.el
RCS file: /sources/emacs/emacs/lisp/faces.el,v
retrieving revision 1.435
retrieving revision 1.436
diff -u -b -r1.435 -r1.436
--- faces.el    9 Jan 2009 14:11:12 -0000       1.435
+++ faces.el    10 Jan 2009 12:55:24 -0000      1.436
@@ -2681,18 +2681,6 @@
        (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]