el/dot-emacs.el: Various bits of minor face hacking.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index b77ea98edbf0a2debb38a91ed4dca64d78aa5911..75bbe8e68d96454dae2dbe702fdd9724b5b9ac6c 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -699,6 +699,11 @@ (mdw-define-face fixed-pitch
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)
   (t :foreground "white" :background "black"))
   (((type w32)) :family "courier new" :height 85)
   (((type x)) :family "6x13" :height 130)
   (t :foreground "white" :background "black"))

+(if (>= emacs-major-version 23)
+    (mdw-define-face variable-pitch
+      (((type x)) :family "sans" :height 100))
+  (mdw-define-face variable-pitch
+    (((type x)) :family "helvetica" :height 120)))

 (mdw-define-face region
   (((type tty)) :background "blue") (t :background "grey30"))
 (mdw-define-face minibuffer-prompt
 (mdw-define-face region
   (((type tty)) :background "blue") (t :background "grey30"))
 (mdw-define-face minibuffer-prompt


@@ -713,9 +718,9 @@ (mdw-define-face scroll-bar
   (t :foreground "black" :background "lightgrey"))
 (mdw-define-face fringe
   (t :foreground "yellow"))
   (t :foreground "black" :background "lightgrey"))
 (mdw-define-face fringe
   (t :foreground "yellow"))

-(mdw-define-face show-paren-match-face
+(mdw-define-face show-paren-match

   (t :background "darkgreen"))
   (t :background "darkgreen"))

-(mdw-define-face show-paren-mismatch-face
+(mdw-define-face show-paren-mismatch

   (t :background "red"))
 (mdw-define-face highlight
   (t :background "DarkSeaGreen4"))
   (t :background "red"))
 (mdw-define-face highlight
   (t :background "DarkSeaGreen4"))


@@ -737,7 +742,7 @@ (mdw-define-face mdw-punct-face
 (mdw-define-face mdw-number-face
   (t :foreground "yellow"))
 (mdw-define-face font-lock-function-name-face
 (mdw-define-face mdw-number-face
   (t :foreground "yellow"))
 (mdw-define-face font-lock-function-name-face

-  (t :weight bold))
+  (t :slant italic))

 (mdw-define-face font-lock-keyword-face
   (t :weight bold))
 (mdw-define-face font-lock-constant-face
 (mdw-define-face font-lock-keyword-face
   (t :weight bold))
 (mdw-define-face font-lock-constant-face