From d5f5733533eb2e32f83555eabf81699b03c8d3b5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 21 Jun 2008 19:42:51 +0000 Subject: [PATCH] (fixed-pitch): Use "Monospace" family. (variable-pitch): Use "Sans" family. (face-font-family-alternatives): Define alternatives for "Sans" and "Monospace". --- lisp/faces.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 643b50a1316..1867cda0df1 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -61,7 +61,9 @@ a font height that isn't optimal." ;; This is defined originally in xfaces.c. (defcustom face-font-family-alternatives - '(("courier" "fixed") + '(("Monospace" "courier" "fixed") + ("courier" "fixed") + ("Sans" "helv" "helvetica" "arial" "fixed") ("helv" "helvetica" "arial" "fixed")) "*Alist of alternative font family names. Each element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...). @@ -2220,12 +2222,12 @@ terminal type to a different value." :group 'basic-faces) (defface fixed-pitch - '((t :family "courier")) + '((t :family "Monospace")) "The basic fixed-pitch face." :group 'basic-faces) (defface variable-pitch - '((t :family "helv")) + '((t :family "Sans")) "The basic variable-pitch face." :group 'basic-faces) -- 2.39.2