/[emacs]/emacs/lisp/ps-mule.el
ViewVC logotype

Diff of /emacs/lisp/ps-mule.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32.4.3 by handa, Fri Sep 26 12:47:23 2003 UTC revision 1.32.4.4 by handa, Fri Sep 26 13:00:44 2003 UTC
# Line 662  The generated code is inserted on prolog Line 662  The generated code is inserted on prolog
662  (defconst ps-mule-prologue  (defconst ps-mule-prologue
663    "%%%% Start of Mule Section    "%%%% Start of Mule Section
664    
665    /Latin1Encoding {       % newname fontname  |  font
666        findfont dup length dict begin
667            { 1 index /FID ne { def } { pop pop } ifelse } forall
668            /Encoding ISOLatin1Encoding def
669            currentdict
670        end
671        definefont
672    } bind def
673    
674  %% Redefine fonts for multiple charsets.  %% Redefine fonts for multiple charsets.
675  /ReDefFont {                 % fontname encoding fdepvector size  |  -  /ReDefFont {                 % fontname encoding fdepvector size  |  -
676    20 dict begin    20 dict begin
# Line 678  The generated code is inserted on prolog Line 687  The generated code is inserted on prolog
687    currentdict    currentdict
688    end                   % fontname dic    end                   % fontname dic
689    definefont pop    definefont pop
690  } def  } bind def
691  "  "
692    "PostScript code for printing multi-byte characters.")    "PostScript code for printing multi-byte characters.")
693    
# Line 1293  This checks if all multi-byte characters Line 1302  This checks if all multi-byte characters
1302       (list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))       (list (if (ps-mule-font-spec-src (cdr (car font-spec-alist)))
1303                 ;; We ignore a font specfied in ps-font-info-database.                 ;; We ignore a font specfied in ps-font-info-database.
1304                 (format "/V%s VTOP%d def\n" fonttag font-type)                 (format "/V%s VTOP%d def\n" fonttag font-type)
1305               (format "/V%s [ VTOP%d aload pop ] def V%s 0 /%s findfont put\n"               (format "/V%s [ VTOP%d aload pop ] def\n
1306                       fonttag font-type fonttag ps-font))  V%s 0 /%s-latin1 /%s Latin1Encoding put\n"
1307                         fonttag font-type fonttag ps-font ps-font))
1308             (format "/%s ETOP%d V%s %f ReDefFont\n"             (format "/%s ETOP%d V%s %f ReDefFont\n"
1309                     fonttag font-type fonttag size)))))                     fonttag font-type fonttag size)))))
1310    

Legend:
Removed from v.1.32.4.3  
changed lines
  Added in v.1.32.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26