[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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/faces.el?cvsroot=emacs&r1=1.435&r2=1.436
Patches:
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