# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1214077371 0
# Node ID abc9f7184a8c4bb91cc7a8a4031bdf8dc404f750
# Parent  fb2bc15fe83308f798b439d1bc223f97c0642c59
(fixed-pitch): Use "Monospace" family.
(variable-pitch): Use "Sans" family.
(face-font-family-alternatives): Define alternatives for "Sans"
and "Monospace".

diff -r fb2bc15fe833 -r abc9f7184a8c lisp/faces.el
--- a/lisp/faces.el	Sat Jun 21 19:42:37 2008 +0000
+++ b/lisp/faces.el	Sat Jun 21 19:42:51 2008 +0000
@@ -61,7 +61,9 @@
 
 ;; 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 @@
   :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)