X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0e78bb62807df9ca801aafc13ce22573fd1a28a5..b1a733efbb34e0e8ca6776bea1117b7afad3f870:/lisp/ps-mule.el

diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index 85416fe78e..d16b5da594 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -280,7 +280,7 @@ CHARSET is a charset (symbol) for this font family,
 
 FONT-TYPE is a font type: normal, bold, italic, or bold-italic.
 
-FONT-SRC is a font source: builtin, ps-bdf, vflib, or nil.
+FONT-SRC is a font source: builtin, bdf, vflib, or nil.
 
   If FONT-SRC is builtin, FONT-NAME is a built-in PostScript font name.
 
@@ -662,6 +662,15 @@ The generated code is inserted on prologue part."
 (defconst ps-mule-prologue
   "%%%% Start of Mule Section
 
+/Latin1Encoding {	% newname fontname  |  font
+    findfont dup length dict begin
+	{ 1 index /FID ne { def } { pop pop } ifelse } forall
+        /Encoding ISOLatin1Encoding def
+	currentdict
+    end
+    definefont
+} bind def
+
 %% Redefine fonts for multiple charsets.
 /ReDefFont {		     % fontname encoding fdepvector size  |  -
   20 dict begin
@@ -678,7 +687,7 @@ The generated code is inserted on prologue part."
   currentdict
   end			% fontname dic
   definefont pop
-} def
+} bind def
 "
   "PostScript code for printing multi-byte characters.")
 
@@ -1293,8 +1302,9 @@ This checks if all multi-byte characters in the region are printable or not."
      (list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
 	       ;; We ignore a font specfied in ps-font-info-database.
 	       (format "/V%s VTOP%d def\n" fonttag font-type)
-	     (format "/V%s [ VTOP%d aload pop ] def V%s 0 /%s findfont put\n"
-		     fonttag font-type fonttag ps-font))
+	     (format "/V%s [ VTOP%d aload pop ] def\n
+V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
+		     fonttag font-type fonttag ps-font ps-font))
 	   (format "/%s ETOP%d V%s %f ReDefFont\n"
 		   fonttag font-type fonttag size)))))