Variable: ps-mule-prologue

ps-mule-prologue is a variable defined in ps-mule.el.gz.

Value

"%%%% Start of Mule Section\n\n/Latin1Encoding {	% newname fontname  |  font\n    findfont dup length dict begin\n	{ 1 index /FID ne { def } { pop pop } ifelse } forall\n        /Encoding ISOLatin1Encoding def\n	currentdict\n    end\n    definefont\n} bind def\n\n%% Redefine fonts for multiple charsets.\n/ReDefFont {		     % fontname encoding fdepvector size  |  -\n  20 dict begin\n  3 index findfont {\n    1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse\n  } forall\n  /FontType 0 def\n  /FMapType 3 def\n  /EscChar 0 def\n  % FontMatrix ::= [ size 0 0 size 0 0 ]\n  /FontMatrix exch [ exch dup 0 exch 0 exch 0 0 ] def\n  /FDepVector exch def\n  /Encoding exch def\n  currentdict\n  end			% fontname dic\n  definefont pop\n} bind def\n"

Documentation

PostScript code for printing multi-byte characters.

Source Code

;; Defined in /usr/src/emacs/lisp/ps-mule.el.gz
;; This is a PostScript code inserted in the header of generated PostScript.
(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
  3 index findfont {
    1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse
  } forall
  /FontType 0 def
  /FMapType 3 def
  /EscChar 0 def
  % FontMatrix ::= [ size 0 0 size 0 0 ]
  /FontMatrix exch [ exch dup 0 exch 0 exch 0 0 ] def
  /FDepVector exch def
  /Encoding exch def
  currentdict
  end			% fontname dic
  definefont pop
} bind def
"
  "PostScript code for printing multi-byte characters.")