From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 20 May 2021 17:40:59 +0000 (+0100)
Subject: el/dot-emacs.el: Fix fontification in printouts.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/dc272b5289636dee4d587711dd39a5a9ee048fd3?ds=inline;hp=--cc

el/dot-emacs.el: Fix fontification in printouts.
---

dc272b5289636dee4d587711dd39a5a9ee048fd3
diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 5a4923b..1782095 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1377,6 +1377,18 @@ (setq ps-user-defined-prologue "
 (eval-after-load 'ps-print
   '(progn
 
+     ;; Notice that the comment-delimiters should be in italics too.
+     (pushnew 'font-lock-comment-delimiter-face ps-italic-faces)
+
+     ;; Select more suitable colours for the main kinds of tokens.  The
+     ;; colours set on the Emacs faces are chosen for use against a dark
+     ;; background, and work very badly on white paper.
+     (ps-extend-face '(font-lock-comment-face "darkgreen" nil italic))
+     (ps-extend-face '(font-lock-comment-delimiter-face "darkgreen" nil italic))
+     (ps-extend-face '(font-lock-string-face "RoyalBlue4" nil))
+     (ps-extend-face '(mdw-punct-face "sienna" nil))
+     (ps-extend-face '(mdw-number-face "OrangeRed3" nil))
+
      ;; Teach `ps-print' about my condensed varsions of Courier.
      (setq ps-font-info-database
 	     (append '((CourierCondensed