From 3855860a6f445e07f36371dc07775cabbfe6ecea Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 27 Feb 2000 21:13:00 +0000 Subject: [PATCH] (face-font-family-alternatives): Add arial to helv. (mode-line, header-line, tool-bar): Same default as x for w32. (fixed-pitch, variable-pitch): Remove wildcard as it prevents face-font-family-alternatives from working. --- lisp/faces.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index b2b3afde8c4..c719b0a2f87 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -58,7 +58,7 @@ a font height that isn't optimal." (defcustom face-font-family-alternatives '(("courier" "fixed") - ("helv" "helvetica" "fixed")) + ("helv" "helvetica" "arial" "fixed")) "*Alist of alternative font family names. Each element has the the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...). If fonts of family FAMILY can't be loaded, try ALTERNATIVE1, then @@ -1480,6 +1480,8 @@ created." (defface mode-line '((((type x) (class color)) (:box (:line-width 2 :style released-button) :background "grey75")) + (((type w32) (class color)) + (:box (:line-width 2 :style released-button) :background "grey75")) (t (:inverse-video t))) "Basic mode line face." @@ -1493,6 +1495,8 @@ created." (defface header-line '((((type x) (class color)) (:box (:line-width 2 :style released-button) :background "grey75")) + (((type w32) (class color)) + (:box (:line-width 2 :style released-button) :background "grey75")) (t (:inverse-video t))) "Basic header-line face." @@ -1505,6 +1509,8 @@ created." (:box (:line-width 1 :style released-button) :background "grey75")) (((type x) (class mono)) (:box (:line-width 1 :style released-button) :background "grey")) + (((type w32) (class color)) + (:box (:line-width 1 :style released-button) :background "grey75")) (t ())) "Basic tool-bar face." @@ -1618,12 +1624,12 @@ created." :group 'basic-faces) -(defface fixed-pitch '((t (:family "courier*"))) +(defface fixed-pitch '((t (:family "courier"))) "The basic fixed-pitch face." :group 'basic-faces) -(defface variable-pitch '((t (:family "helv*"))) +(defface variable-pitch '((t (:family "helv"))) "The basic variable-pitch face." :group 'basic-faces) -- 2.39.5