[Emacs-diffs] Changes to emacs/lisp/ps-mule.el [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/lisp/ps-mule.el
diff -c emacs/lisp/ps-mule.el:1.32.4.3 emacs/lisp/ps-mule.el:1.32.4.4
*** emacs/lisp/ps-mule.el:1.32.4.3      Fri Sep 26 08:47:23 2003
--- emacs/lisp/ps-mule.el       Fri Sep 26 09:00:44 2003
***************
*** 662,667 ****
--- 662,676 ----
  (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,684 ****
    currentdict
    end                 % fontname dic
    definefont pop
! } def
  "
    "PostScript code for printing multi-byte characters.")
  
--- 687,693 ----
    currentdict
    end                 % fontname dic
    definefont pop
! } bind def
  "
    "PostScript code for printing multi-byte characters.")
  
***************
*** 1293,1300 ****
       (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 "/%s ETOP%d V%s %f ReDefFont\n"
                   fonttag font-type fonttag size)))))
  
--- 1302,1310 ----
       (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\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)))))