X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/blobdiff_plain/f33e684cacba4ae791bd013438959834be43e5f5..e42946da80cfb106a9135d9c131246b2477e63f7:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 2a19ad1..5a4923b 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1361,6 +1361,36 @@ (defun mdw-standard-fill-prefix (rx &optional mat)
 ;;;--------------------------------------------------------------------------
 ;;; Printing.
 
+;; Teach PostScript about a condensed variant of Courier.  I'm using 85% of
+;; the usual width, which happens to match `mdwfonts', and David Carlisle's
+;; `pslatex'.  (Once upon a time, I used 80%, but decided consistency with
+;; `pslatex' was useful.)
+(setq ps-user-defined-prologue "
+/CourierCondensed /Courier
+/CourierCondensed-Bold /Courier-Bold
+/CourierCondensed-Oblique /Courier-Oblique
+/CourierCondensed-BoldOblique /Courier-BoldOblique
+  4 { findfont [0.85 0 0 1 0 0] makefont definefont pop } repeat
+")
+
+;; Hack `ps-print''s settings.
+(eval-after-load 'ps-print
+  '(progn
+
+     ;; Teach `ps-print' about my condensed varsions of Courier.
+     (setq ps-font-info-database
+	     (append '((CourierCondensed
+			(fonts (normal . "CourierCondensed")
+			       (bold . "CourierCondensed-Bold")
+			       (italic . "CourierCondensed-Oblique")
+			       (bold-italic . "CourierCondensed-BoldOblique"))
+			(size . 10.0)
+			(line-height . 10.55)
+			(space-width . 5.1)
+			(avg-char-width . 5.1)))
+		     (cl-remove 'CourierCondensed ps-font-info-database
+				:key #'car)))))
+
 ;; Arrange to strip overlays from the buffer before we print .  This will
 ;; prevent `flyspell' from interfering with the printout.  (It would be less
 ;; bad if `ps-print' could merge the `flyspell' overlay face with the