3 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ca30dcc7a5..8abb20b481b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-10-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * faces.el (face-font-family-alternatives): Add "CMU Typewriter Text"
+        to the courier family.
+        * textmodes/tex-mode.el (tex-verbatim): Don't use "monospace" which is
+        usually not serif'd and hence rather unlike verbatim's printed output.
+
 2008-10-25  Chong Yidong  <cyd@stupidchicken.com>
 
         * vc-cvs.el (vc-cvs-status-extra-headers): Use full directory name
diff --git a/lisp/faces.el b/lisp/faces.el
index cab7f5b52cc..661cb9db4f0 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -70,7 +70,7 @@ a font height that isn't optimal."
 ;; which are generally available.
 (defcustom face-font-family-alternatives
   '(("Monospace" "courier" "fixed")
-    ("courier" "fixed")
+    ("courier" "CMU Typewriter Text" "fixed")
     ("Sans Serif" "helv" "helvetica" "arial" "fixed")
     ("helv" "helvetica" "arial" "fixed"))
   "*Alist of alternative font family names.
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 6b516ca6e90..7515e864fa5 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -725,7 +725,7 @@ Not smaller than the value set by `tex-suscript-height-minimum'."
 
 (defface tex-verbatim
   ;; '((t :inherit font-lock-string-face))
-  '((t :family "monospace"))
+  '((t :family "courier"))
   "Face used to highlight TeX verbatim environments."
   :group 'tex)
 ;; backward-compatibility alias