(fixed-pitch): Use "Monospace" family.

(variable-pitch): Use "Sans" family.
(face-font-family-alternatives): Define alternatives for "Sans"
and "Monospace".

1 files 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)