Mercurial > emacs

changeset 27888:3e1c17057b79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Jason Rumney <jasonr@gnu.org>
date Sun, 27 Feb 2000 21:13:00 +0000
parents a9f19a6bfb69
children 51d0b4b8fc6a
files lisp/faces.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Feb 27 21:11:51 2000 +0000
+++ b/lisp/faces.el	Sun Feb 27 21:13:00 2000 +0000
@@ -58,7 +58,7 @@
 
 (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 @@
 (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 @@
 (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 @@
      (: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 @@
   :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)