;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:48 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/ps-mule.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ps-mule.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\301B\304\301!\204\305\306\307!\204\307\310M\210\306\311!\204$\311\312M\210\306\313!\204.\313\314M\210\306\315!\2048\315\316M\210\306\317!\204B\317\320M\210\306\321!\204L\321\322M\210\306\323!\204V\323\324M\210\306\325!\204`\325\326M\210\306\327!\204j\327\330M\210\306\331!\204t\331\332M\210\306\333!\204~\333\334M\210\306\335!\204\210\335\336M\210\306\337!\204\222\337\340M\210\306\341!\204\234\341\342M\210\306\343!\204\246\343\344M\210\306\345!\204\260\345\346M\210\306\347!\204\273\350\347\351\"\210\302\207" [current-load-list leading-code-private-22 require ps-print boundp 157 fboundp charset-bytes #[(charset) "\300\207" [1] 1] charset-dimension #[(charset) "\300\207" [1] 1] charset-id #[(charset) "\300\207" [0] 1] charset-width #[(charset) "\300\207" [1] 1] find-charset-region #[(beg end &optional table) "\300C\207" [ascii] 1] char-valid-p #[(char) "g\300W\207" [256] 2] split-char #[(char) "\301!\203\n\302\202 \303D\207" [char char-valid-p ascii unknow] 2] char-width #[(char) "\300\207" [1] 1] chars-in-region #[(beg end) " ] ^Z\207" [beg end] 3] forward-point #[(arg) "\212\303!\304!\203\305\202\211\245\211\305V\203/e`W\203/`dW\203/ u\210\nS\211\202`\n _\\+\207" [arg step count abs zerop 0] 4] decompose-composite-char #[(char &optional type with-composition-rule) "\300\207" [nil] 1] encode-coding-string #[(string coding-system &optional nocopy) "\203 \207\302 !\207" [nocopy string copy-sequence] 2] coding-system-p #[(obj) "\300\207" [nil] 1] ccl-execute-on-string #[(ccl-prog status str &optional contin unibyte-p) "\207" [str] 1] define-ccl-program (macro . #[(name ccl-program &optional doc) "\302\303 F\207" [name doc defconst nil] 4]) multibyte-string-p #[(str) "G\304\305\n W\203\nH\306V\211\204\nT\211\202 +\207" [str multibyte i len 0 nil 255] 4] string-make-multibyte defalias copy-sequence] 3) #@1782 *Specifies the multi-byte buffer handling. Valid values are: nil This is the value to use the default settings which is by default for printing buffer with only ASCII and Latin characters. The default setting can be changed by setting the variable `ps-mule-font-info-database-default' differently. The initial value of this variable is `ps-mule-font-info-database-latin' (see documentation). `non-latin-printer' This is the value to use when you have a Japanese or Korean PostScript printer and want to print buffer with ASCII, Latin-1, Japanese (JISX0208 and JISX0201-Kana) and Korean characters. At present, it was not tested the Korean characters printing. If you have a korean PostScript printer, please, test it. `bdf-font' This is the value to use when you want to print buffer with BDF fonts. BDF fonts include both latin and non-latin fonts. BDF (Bitmap Distribution Format) is a format used for distributing X's font source file. BDF fonts are included in `intlfonts-1.2' which is a collection of X11 fonts for all characters supported by Emacs. In order to use this value, be sure to have installed `intlfonts-1.2' and set the variable `bdf-directory-list' appropriately (see ps-bdf.el for documentation of this variable). `bdf-font-except-latin' This is like `bdf-font' except that it is used PostScript default fonts to print ASCII and Latin-1 characters. This is convenient when you want or need to use both latin and non-latin characters on the same buffer. See `ps-font-family', `ps-header-font-family' and `ps-font-info-database'. Any other value is treated as nil. (custom-declare-variable 'ps-multibyte-buffer 'nil '(#$ . -2532) :type '(choice (const non-latin-printer) (const bdf-font) (const bdf-font-except-latin) (const :tag "nil" nil)) :group 'ps-print-font) (byte-code "\300\301!\203)\301J\302\231\204)\303\304\305\"\210\303\306\307\"\210\303\310\311\"\210\312\313M\210\314\312\315\316#\210\2029\304\317M\210\306\320M\210\310\321M\210\312\322M\210\300\301!\203Q\301J\323\231\203Q\324\325M\210\326\327M\210\202e\330\324!\204[\324\331M\210\330\326!\204e\326\332M\210\300\207" [boundp mule-version "4.0" defalias ps-mule-next-point 1+ ps-mule-chars-in-string length ps-mule-string-char aref ps-mule-next-index #[(str i) "T\207" [i] 1] put byte-optimizer byte-compile-inline-expand #[(arg) "\212b\210\301u\210`)\207" [arg 1] 1] #[(string) "G\302\303!!\211\301N)\304H\245\207" [string charset char-charset string-to-char 1] 5] #[(string idx) "\302 \303O!\207" [string idx string-to-char nil] 4] #[(string i) "\303\304 !!\211\302N)\305H\\\207" [i string charset char-charset string-to-char 1] 5] "5.0" encode-composition-rule #[(rule) "@\301U\203 \302\240\210A\301U\203\302\241\210@\303_A\\\207" [rule 4 10 12] 2] find-composition #[(pos &rest ignore) "f\211\205%\303 !\304=\205%\305 \306\307#\310!\n\211\311H\250\312\313 !\257))\207" [pos ch components char-charset composition decompose-composite-char vector t ps-mule-next-point 1 nil char-width] 8] fboundp #[(rule) "\300\207" [130] 1] #[(pos &rest ignore) "\300\207" [nil] 1]] 4) #@1539 Alist of charsets with the corresponding font information. Each element has the form: (CHARSET (FONT-TYPE FONT-SRC FONT-NAME ENCODING BYTES) ...) Where 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. If FONT-SRC is builtin, FONT-NAME is a built-in PostScript font name. If FONT-SRC is bdf, FONT-NAME is a BDF font file name, or a list of alternative font names. To use this font, the external library `ps-bdf' is required. If FONT-SRC is vflib, FONT-NAME is the name of a font that VFlib knows. To use this font, the external library `vflib' is required. If FONT-SRC is nil, a proper ASCII font in the variable `ps-font-info-database' is used. This is useful for Latin-1 characters. ENCODING is a coding system to encode a string of characters of CHARSET into a proper string matching an encoding of the specified font. ENCODING may be a function that does this encoding. In this case, the function is called with one argument, the string to encode, and it should return an encoded string. BYTES specifies how many bytes each character has in the encoded byte sequence; it should be 1 or 2. All multi-byte characters are printed by fonts specified in this database regardless of a font family of ASCII characters. The exception is Latin-1 characters which are printed by the same font as ASCII characters, thus obey font family. See also the variable `ps-font-info-database'. (defvar ps-mule-font-info-database nil (#$ . 5825)) #@68 Sample setting of `ps-mule-font-info-database' to use latin fonts. (defconst ps-mule-font-info-database-latin '((latin-iso8859-1 (normal nil nil iso-latin-1))) (#$ . 7421)) #@64 *The default setting to use when `ps-multibyte-buffer' is nil. (custom-declare-variable 'ps-mule-font-info-database-default 'ps-mule-font-info-database-latin '(#$ . -7600) :type '(symbol :tag "Multi-Byte Buffer Database Font Default") :group 'ps-print-font) #@149 Sample setting of the `ps-mule-font-info-database' to use builtin PS font. Currently, data for Japanese and Korean PostScript printers are listed. (defconst ps-mule-font-info-database-ps '((katakana-jisx0201 (normal builtin "Ryumin-Light.Katakana" ps-mule-encode-7bit 1) (bold builtin "GothicBBB-Medium.Katakana" ps-mule-encode-7bit 1) (bold-italic builtin "GothicBBB-Medium.Katakana" ps-mule-encode-7bit 1)) (latin-jisx0201 (normal builtin "Ryumin-Light.Hankaku" ps-mule-encode-7bit 1) (bold builtin "GothicBBB-Medium.Hankaku" ps-mule-encode-7bit 1)) (japanese-jisx0208 (normal builtin "Ryumin-Light-H" ps-mule-encode-7bit 2) (bold builtin "GothicBBB-Medium-H" ps-mule-encode-7bit 2)) (korean-ksc5601 (normal builtin "Munhwa-Regular-KSC-EUC-H" ps-mule-encode-7bit 2) (bold builtin "Munhwa-Bold-KSC-EUC-H" ps-mule-encode-7bit 2))) (#$ . 7865)) #@489 Sample setting of the `ps-mule-font-info-database' to use BDF fonts. BDF (Bitmap Distribution Format) is a format used for distributing X's font source file. Current default value list for BDF fonts is included in `intlfonts-1.2' which is a collection of X11 fonts for all characters supported by Emacs. Using this list as default value to `ps-mule-font-info-database', all characters including ASCII and Latin-1 are printed by BDF fonts. See also `ps-mule-font-info-database-ps-bdf'. (defconst ps-mule-font-info-database-bdf '((ascii (normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") nil 1) (bold bdf ("lt1-16b-etl.bdf" "etl16b-latin1.bdf") nil 1) (italic bdf ("lt1-16i-etl.bdf" "etl16i-latin1.bdf") nil 1) (bold-italic bdf ("lt1-16bi-etl.bdf" "etl16bi-latin1.bdf") nil 1)) (latin-iso8859-1 (normal bdf ("lt1-24-etl.bdf" "etl24-latin1.bdf") iso-latin-1 1) (bold bdf ("lt1-16b-etl.bdf" "etl16b-latin1.bdf") iso-latin-1 1) (italic bdf ("lt1-16i-etl.bdf" "etl16i-latin1.bdf") iso-latin-1 1) (bold-italic bdf ("lt1-16bi-etl.bdf" "etl16bi-latin1.bdf") iso-latin-1 1)) (latin-iso8859-2 (normal bdf ("lt2-24-etl.bdf" "etl24-latin2.bdf") iso-latin-2 1)) (latin-iso8859-3 (normal bdf ("lt3-24-etl.bdf" "etl24-latin3.bdf") iso-latin-3 1)) (latin-iso8859-4 (normal bdf ("lt4-24-etl.bdf" "etl24-latin4.bdf") iso-latin-4 1)) (thai-tis620 (normal bdf ("thai24.bdf" "thai-24.bdf") thai-tis620 1)) (greek-iso8859-7 (normal bdf ("grk24-etl.bdf" "etl24-greek.bdf") greek-iso-8bit 1)) (hebrew-iso8859-8 (normal bdf ("heb24-etl.bdf" "etl24-hebrew.bdf") hebrew-iso-8bit 1)) (katakana-jisx0201 (normal bdf "12x24rk.bdf" ps-mule-encode-8bit 1)) (latin-jisx0201 (normal bdf "12x24rk.bdf" ps-mule-encode-7bit 1)) (cyrillic-iso8859-5 (normal bdf ("cyr24-etl.bdf" "etl24-cyrillic.bdf") cyrillic-iso-8bit 1)) (latin-iso8859-9 (normal bdf ("lt5-24-etl.bdf" "etl24-latin5.bdf") iso-latin-5 1)) (japanese-jisx0208-1978 (normal bdf "jiskan24.bdf" ps-mule-encode-7bit 2)) (chinese-gb2312 (normal bdf "gb24st.bdf" ps-mule-encode-7bit 2)) (japanese-jisx0208 (normal bdf "jiskan24.bdf" ps-mule-encode-7bit 2)) (korean-ksc5601 (normal bdf "hanglm24.bdf" ps-mule-encode-7bit 2)) (japanese-jisx0212 (normal bdf ("jksp40.bdf" "jisksp40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-1 (normal bdf ("cns1-40.bdf" "cns-1-40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-2 (normal bdf ("cns2-40.bdf" "cns-2-40.bdf") ps-mule-encode-7bit 2)) (chinese-big5-1 (normal bdf "taipei24.bdf" chinese-big5 2)) (chinese-big5-2 (normal bdf "taipei24.bdf" chinese-big5 2)) (chinese-sisheng (normal bdf ("sish24-etl.bdf" "etl24-sisheng.bdf") ps-mule-encode-7bit 1)) (ipa (normal bdf ("ipa24-etl.bdf" "etl24-ipa.bdf") ps-mule-encode-8bit 1)) (vietnamese-viscii-lower (normal bdf ("visc24-etl.bdf" "etl24-viscii.bdf") vietnamese-viscii 1)) (vietnamese-viscii-upper (normal bdf ("visc24-etl.bdf" "etl24-viscii.bdf") vietnamese-viscii 1)) (arabic-digit (normal bdf ("arab24-0-etl.bdf" "etl24-arabic0.bdf") ps-mule-encode-7bit 1)) (arabic-1-column (normal bdf ("arab24-1-etl.bdf" "etl24-arabic1.bdf") ps-mule-encode-7bit 1)) (lao (normal bdf ("lao24-mule.bdf" "mule-lao-24.bdf") lao 1)) (arabic-2-column (normal bdf ("arab24-2-etl.bdf" "etl24-arabic2.bdf") ps-mule-encode-7bit 1)) (indian-is13194 (normal bdf ("isci24-mule.bdf" "mule-iscii-24.bdf") ps-mule-encode-7bit 1)) (indian-1-column (normal bdf ("ind1c24-mule.bdf" "mule-indian-1col-24.bdf") ps-mule-encode-7bit 2)) (tibetan-1-column (normal bdf ("tib1c24-mule.bdf" "mule-tibmdx-1col-24.bdf") ps-mule-encode-7bit 2)) (ethiopic (normal bdf ("ethio24f-uni.bdf" "ethiomx24f-uni.bdf") ps-mule-encode-ethiopic 2)) (chinese-cns11643-3 (normal bdf ("cns3-40.bdf" "cns-3-40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-4 (normal bdf ("cns4-40.bdf" "cns-4-40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-5 (normal bdf ("cns5-40.bdf" "cns-5-40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-6 (normal bdf ("cns6-40.bdf" "cns-6-40.bdf") ps-mule-encode-7bit 2)) (chinese-cns11643-7 (normal bdf ("cns7-40.bdf" "cns-7-40.bdf") ps-mule-encode-7bit 2)) (indian-2-column (normal bdf ("ind24-mule.bdf" "mule-indian-24.bdf") ps-mule-encode-7bit 2)) (tibetan (normal bdf ("tib24p-mule.bdf" "tib24-mule.bdf" "mule-tibmdx-24.bdf") ps-mule-encode-7bit 2))) (#$ . 8717)) #@525 Sample setting of the `ps-mule-font-info-database' to use BDF fonts. Current default value list for BDF fonts is included in `intlfonts-1.2' which is a collection of X11 fonts for all characters supported by Emacs. Using this list as default value to `ps-mule-font-info-database', all characters except ASCII and Latin-1 characters are printed by BDF fonts. ASCII and Latin-1 characters are printed by PostScript font specified by `ps-font-family' and `ps-header-font-family'. See also `ps-mule-font-info-database-bdf'. (defconst ps-mule-font-info-database-ps-bdf (byte-code "@ AAB\207" [ps-mule-font-info-database-latin ps-mule-font-info-database-bdf] 2) (#$ . 12980)) (defalias 'ps-mule-encode-7bit #[(string) "\301\302\"\207" [string ps-mule-encode-bit 0] 3]) (defalias 'ps-mule-encode-8bit #[(string) "\301\302\"\207" [string ps-mule-encode-bit 128] 3]) (defalias 'ps-mule-encode-bit #[(string delta) "\306\307!!\211\301N)\310H\311!\n_\312 \313\"\313\313\n\314U\203K W\203\205\f\315\316 \"!A@\\I\210  T*T\211\202% W\203\205\315\316 \"!\fA@\\I\210\fT\3108\\I\210  T*\310\\)\202K\f-\207" [string charset dim len str i char-charset string-to-char 2 ps-mule-chars-in-string make-string 0 1 split-char ps-mule-string-char j delta split] 7]) (byte-code "\304\305!\203!\306\302 B\307\302\310\311#\210\307\302\312\313\302\"#\210)\202-\302 B\304\302!\204-\311\304\305!\203:\314\315M\210\202>\314\316M\210\303 B\304\303!\204J\311\311\207" [prog current-load-list ccl-encode-ethio-unicode ps-mule-current-charset boundp mule-version [1 26 78 5211 18 157 14 3355 18 245 302 78 81975 127 82007 127 51 (ccl-encode-ethio-font . ccl-program-idx) 49 -4281 -4532 337 17 -5372 -5561 -5812 22] put variable-documentation nil ccl-program-idx register-ccl-program ps-mule-encode-ethiopic #[(string) "\301\302J\303\304\305\"#\207" [string ccl-execute-on-string ccl-encode-ethio-unicode make-vector 9 nil] 5] #[(string) "\207" [string] 1]] 6) #@302 Return FONT-SPEC for printing characters CHARSET with FONT-TYPE. FONT-SPEC is a list that has the form: (FONT-SRC FONT-NAME ENCODING BYTES) FONT-SPEC is extracted from `ps-mule-font-info-database'. See the documentation of `ps-mule-font-info-database' for the meaning of each element of the list. (defalias 'ps-mule-get-font-spec #[(charset font-type) " \236A\211\205% \n\236\206$ \304=\203!\305\n\236\206$\306\n\236\206$\307\n\236A)\207" [charset ps-mule-font-info-database slot font-type bold-italic bold italic normal] 3 (#$ . 14988)]) (defalias 'ps-mule-font-spec-src #[(font-spec) "@\207" [font-spec] 1]) (put 'ps-mule-font-spec-src 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-mule-font-spec-name #[(font-spec) "A@\207" [font-spec] 1]) (put 'ps-mule-font-spec-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-mule-font-spec-encoding #[(font-spec) "\3018\207" [font-spec 2] 2]) (put 'ps-mule-font-spec-encoding 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-mule-font-spec-bytes #[(font-spec) "\3018\207" [font-spec 3] 2]) (put 'ps-mule-font-spec-bytes 'byte-optimizer 'byte-compile-inline-expand) #@48 Non-nil if characters in CHARSET is printable. (defalias 'ps-mule-printable-p #[(charset) "\301\302\"\207" [charset ps-mule-get-font-spec normal] 3 (#$ . 16153)]) (put 'ps-mule-printable-p 'byte-optimizer 'byte-compile-inline-expand) #@1086 Alist of information of external libraries to support PostScript printing. Each element has the form: (FONT-SRC FEATURE INITIALIZED-P PROLOGUE-FUNC FONT-FUNC GLYPHS-FUNC) FONT-SRC is the font source: builtin, bdf, pcf, or vflib. FEATURE is the feature that provide a facility to handle FONT-SRC. Except for `builtin' FONT-SRC, this feature is automatically `require'd before handling FONT-SRC. Currently, we only have the feature `ps-bdf'. INITIALIZED-P indicates if this library is initialized or not. PROLOGUE-FUNC is a function to generate PostScript code which define several PostScript procedures that will be called by FONT-FUNC and GLYPHS-FUNC. It is called with no argument, and should return a list of strings. FONT-FUNC is a function to generate PostScript code which define a new font. It is called with one argument FONT-SPEC, and should return a list of strings. GLYPHS-FUNC is a function to generate PostScript code which define glyphs of characters. It is called with three arguments FONT-SPEC, CODE-LIST, and BYTES, and should return a list of strings. (defconst ps-mule-external-libraries '((builtin nil nil nil nil nil) (bdf ps-bdf nil bdf-generate-prologue bdf-generate-font bdf-generate-glyphs) (pcf nil nil pcf-generate-prologue pcf-generate-font pcf-generate-glyphs) (vflib nil nil vflib-generate-prologue vflib-generate-font vflib-generate-glyphs)) (#$ . 16396)) #@151 Initialize external library specified by FONT-SPEC for PostScript printing. See the documentation of `ps-mule-get-font-spec' for FONT-SPEC's meaning. (defalias 'ps-mule-init-external-library #[(font-spec) "\211@)\211\n\236 ?\206.\305 8\206.\306 8\211\203(\307 A@!\210\310\f !\210 AA\311\240)*\207" [font-spec font-src ps-mule-external-libraries slot func 2 3 require ps-output-prologue t] 3 (#$ . 17805)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list ps-mule-font-cache boundp nil] 2) #@156 Generate PostScript codes to define a new font in FONT-SPEC for CHARSET. If optional 3rd arg HEADER-P is non-nil, generate codes to define a header font. (defalias 'ps-mule-generate-font #[(font-spec charset &optional header-p) "\211A@)\211:\203 @\202 \306 \n\"\211@)\307\f \2368\203;\310=\2036\202=\202=\203J\311\202K\310\\\203[\312\313\"\202y\314=\203j\312\315\"\202y\312\316\211\317N)\310H#\203\215 \204\215\320\"!\210\320\312\321 \204\241\314=\203\245\322\202\246\323%C!\210 \203\276 AB A@B\240\210\202\314 BC\324E\211\nB .\207" [font-spec font-name ps-mule-font-cache font-cache font-src ps-mule-external-libraries assoc 4 0 10 format "h%d" ascii "f%d" "f%02x-%d" charset ps-output-prologue "/%s %f /%s Def%sFontMule\n" "Ascii" "" cache func header-p ps-current-font ps-header-title-font-size-internal ps-header-font-size-internal ps-font-size-internal font-size current-font scaled-font-name ps-mule-current-charset] 9 (#$ . 18329)]) #@77 Generate PostScript codes which generate glyphs for CODE-LIST of FONT-SPEC. (defalias 'ps-mule-generate-glyphs #[(font-spec code-list) "\211@)\305 \n\2368\211\205\306 \f\3078)#!*\207" [font-spec font-src ps-mule-external-libraries func code-list 5 ps-output-prologue 3] 7 (#$ . 19367)]) #@383 Generate PostScript codes to print STRING of CHARSET by font FONT-SPEC. The generated code is inserted on prologue part except the code that sets the current font (using PostScript procedure `FM'). If optional 4th arg NO-SETFONT is non-nil, don't generate the code for setting the current font. If optional 5th arg HEADER-P is non-nil, generate a code for setting a header font. (defalias 'ps-mule-prepare-font #[(font-spec string charset &optional no-setfont header-p) "\211A@)\211:\203 @\202 \n \203\306\202\307\\\310 \"\211\2032\f\3118\236\204:\312 #\204\\\fA@\236A\211\232\204[\313\314\315\"!\210)\316\211@)\2368\205\333AA\3178)G\307\320\320W\203\317\311U\203\234H\202\252H\321_TH\\\211>\204\304BAB\241\210\\\211\202\207\205\331\322\".,\207" [font-spec font-name ps-current-font header-p current-font ps-mule-font-cache 10 0 assoc 1 ps-mule-generate-font ps-output format "/%s FM\n" 5 3 nil 256 ps-mule-generate-glyphs font-cache charset no-setfont new-font ps-last-font ps-mule-external-libraries cached-codes bytes string len i newcodes code] 5 (#$ . 19671)]) #@83 Setup special ASCII font for STRING. STRING should contain only ASCII characters. (defalias 'ps-mule-prepare-ascii-font #[(string) "\304\305\306\306\307N)8@\"\211\205\310\n \305#)\207" [ps-current-font font-sym font-spec string ps-mule-get-font-spec ascii ps-font-for-text fonts ps-mule-prepare-font] 6 (#$ . 20863)]) (defalias 'ps-mule-set-ascii-font #[nil "\302=?\205\303 !\210\302\211\207" [ps-mule-current-charset ps-current-font ascii ps-set-font] 2]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list ps-mule-charset-list boundp nil] 2) #@53 PostScript code for printing multi-byte characters. (defconst ps-mule-prologue "%%%% Start of Mule Section\n\n%% Working dictionary for general use.\n/MuleDict 10 dict def\n\n%% Adjust /RelativeCompose properly by checking /BaselineOffset.\n/AdjustRelativeCompose { % fontdict |- fontdict\n dup length 2 add dict begin\n { 1 index /FID ne { def } { pop pop } ifelse } forall\n currentdict /BaselineOffset known {\n BaselineOffset false eq { /BaselineOffset 0 def } if\n } {\n /BaselineOffset 0 def\n } ifelse\n currentdict /RelativeCompose known not {\n /RelativeCompose [ 0 0.1 ] def\n } {\n RelativeCompose false ne {\n [ BaselineOffset RelativeCompose BaselineOffset add\n [ FontMatrix { FontSize div } forall ] transform ]\n /RelativeCompose exch def\n } if\n } ifelse\n currentdict\n end\n} def\n\n%% Define already scaled font for non-ASCII character sets.\n/DefFontMule { % fontname size basefont |- --\n findfont exch scalefont AdjustRelativeCompose definefont pop\n} bind def\n\n%% Define already scaled font for ASCII character sets.\n/DefAsciiFontMule { % fontname size basefont |-\n MuleDict begin\n findfont dup /Encoding get /ISOLatin1Encoding exch def\n exch scalefont AdjustRelativeCompose reencodeFontISO\n end\n} def\n\n/CurrentFont false def\n\n%% Set the specified font to use.\n%% For non-ASCII font, don't install Ascent, etc.\n/FM { % fontname |- --\n /font exch def\n font /f0 eq font /f1 eq font /f2 eq font /f3 eq or or or {\n font F\n } {\n font findfont setfont\n } ifelse\n} bind def\n\n%% Show vacant box for characters which don't have appropriate font.\n/SB { % count column |- --\n SpaceWidth mul /w exch def\n 1 exch 1 exch { %for\n pop\n gsave\n 0 setlinewidth\n 0 Descent rmoveto w 0 rlineto\n 0 LineHeight rlineto w neg 0 rlineto closepath stroke\n grestore\n w 0 rmoveto\n } for\n} bind def\n\n%% Flag to tell if we are now handling a composition. This is\n%% defined here because both composition handler and bitmap font\n%% handler require it.\n/Composing false def\n\n%%%% End of Mule Section\n\n" (#$ . 21440)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list ps-mule-prologue-generated boundp nil] 2) (defalias 'ps-mule-prologue-generated #[nil "?\205\f\302 !\210\303\211\207" [ps-mule-prologue-generated ps-mule-prologue ps-output-prologue t] 2]) #@641 Find the longest sequence which is printable in the current line. The search starts at FROM and goes until TO. Optional 4th arg COMPOSITION, if non-nil, is information of composition starting at FROM. If COMPOSITION is nil, it is assumed that all characters between FROM and TO belong to a charset in `ps-mule-current-charset'. Otherwise, it is assumed that all characters between FROM and TO belong to the same composition. CHAR-WIDTH is the average width of ASCII characters in the current font. Returns the value: (ENDPOS . RUN-WIDTH) Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of the sequence. (defalias 'ps-mule-find-wrappoint #[(from to char-width &optional composition) "\204\n \300=\2038\203\3068\202\303\nf! _\211 V\203'\n B\2026\2031A@\2024\307\n!\fB)\207 \211\310N)\311H_\312\n \" _\211 V\203f \212\nb\210\313\314 \245!!)^ B\202j \fB)\207" [composition ps-mule-current-charset from char-width run-width ps-width-remaining 5 ps-mule-next-point charset 4 chars-in-region forward-point truncate to] 6 (#$ . 23864)]) #@348 Generate PostScript code for plotting characters in the region FROM and TO. It is assumed that all characters in this region belong to the same charset. Optional argument BG-COLOR specifies background color. Returns the value: (ENDPOS . RUN-WIDTH) Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of the sequence. (defalias 'ps-mule-plot-string #[(from to &optional bg-color) "\306!\307\n\310\310\311N)#\211@ \310\310\312N)8@\313 \"\314\n\"\nU\204\212\203E\315\316\"!\210\317\320!\210\202\212 \321=\203Y\315\322!!\210\317\320!\210\202\212 \323=\203k\324\325!#\210\202\212\317\326\327G \323=\203~\330f!\202\207 \211\331N)\332H#!\210\f-\207" [from ps-mule-current-charset to font-sym wrappoint ps-current-font charset-after ps-mule-find-wrappoint ps-font-for-text avg-char-width fonts ps-mule-get-font-spec buffer-substring-no-properties ps-output-string ps-mule-string-encoding ps-output " S\n" latin-iso8859-1 ps-mule-string-ascii composition ps-mule-plot-composition ps-mule-next-point format "%d %d SB\n" char-width charset 4 font-type font-spec string bg-color] 7 (#$ . 24964)]) #@353 Generate PostScript code for plotting composition in the region FROM and TO. It is assumed that all characters in this region belong to the same composition. Optional argument BG-COLOR specifies background color. Returns the value: (ENDPOS . RUN-WIDTH) Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of the sequence. (defalias 'ps-mule-plot-composition #[(from to &optional bg-color) "\306\307\211\310$\311\n\312\312\313N) $\211@ \312\312\314N)8@\nW\203A\315 8\316\317\"\320 8\203=\321\202>\322\"\210)\f,\207" [from composition to font-sym wrappoint ps-current-font find-composition nil t ps-mule-find-wrappoint ps-font-for-text avg-char-width fonts 2 ps-mule-plot-components ps-mule-prepare-font-for-components 3 "RLC" "RBC" font-type components] 6 (#$ . 26129)]) (defalias 'ps-mule-prepare-font-for-components #[(components font-type) "G\306\307\n W\203y\nH\211:\203\310 !\202m\311 !\211 =\206B\f\312=\2035\313\314\"\202B\313\315\f\211\304N)\306H#\307\f\316\317\f\"\320 !\321#;\203iB\202l+\n I\210\nT\211\202+\207" [components elt i len charset ps-mule-current-charset 0 nil encode-composition-rule char-charset ascii format "/f%d" "/f%02x-%d" ps-mule-string-encoding ps-mule-get-font-spec char-to-string no-setfont ps-current-font font str font-type ps-last-font] 5]) (defalias 'ps-mule-plot-components #[(components tail) "\305HG\306\307\310!\210 ;\203\311 !\210\202$\307 @\312\"\210\311 A!\210 \nW\203^ H T\307\312!\210 ;\203A\311 !\210\202$ :\203T\307 @\312\"\210\311 A!\210\202$\307\313\314 \"!\210\202$\307\315\f\316#+\207" [components i len elt tail 0 1 ps-output "[ " ps-output-string " " format "%d" " ] " "\n"] 4]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list ps-mule-composition-prologue-generated boundp nil] 2) #@53 PostScript code for printing character composition. (defconst ps-mule-composition-prologue "%%%% Character composition handler\n/RelativeCompositionSkip 0.4 def\n\n%% Get a bounding box (relative to currentpoint) of STR.\n/GetPathBox { % str |- --\n gsave\n currentfont /FontType get 3 eq { %ifelse\n stringwidth pop pop\n } {\n currentpoint /y exch def /x exch def\n false charpath flattenpath pathbbox\n y sub /URY exch def x sub /URX exch def\n y sub /LLY exch def x sub /LLX exch def\n } ifelse\n grestore\n} bind def\n\n%% Apply effects (underline, strikeout, overline, box) to the\n%% rectangle specified by TOP BOTTOM LEFT RIGHT.\n/SpecialEffect { % -- |- --\n currentpoint dup TOP add /yy exch def BOTTOM add /YY exch def\n dup LEFT add /xx exch def RIGHT add /XX exch def\n %% Adjust positions for future shadowing.\n Effect 8 and 0 ne {\n /yy yy Yshadow add def\n /XX XX Xshadow add def\n } if\n Effect 1 and 0 ne { UnderlinePosition Hline } if % underline\n Effect 2 and 0 ne { StrikeoutPosition Hline } if % strikeout\n Effect 4 and 0 ne { OverlinePosition Hline } if % overline\n bg { % background\n true\n Effect 16 and 0 ne {SpaceBackground doBox} { xx yy XX YY doRect} ifelse\n } if\n Effect 16 and 0 ne { false 0 doBox } if % box\n} def\n\n%% Show STR with effects (shadow, outline).\n/ShowWithEffect { % str |- --\n Effect 8 and 0 ne { dup doShadow } if\n Effect 32 and 0 ne { true doOutline } { show } ifelse\n} def\n\n%% Draw COMPONENTS which have the form [ font0? [str0 xoff0 yoff0] ... ].\n/ShowComponents { % components |- -\n LEFT 0 lt { LEFT neg 0 rmoveto } if\n {\n dup type /nametype eq { % font\n FM\n } { % [ str xoff yoff ]\n gsave\n aload pop rmoveto ShowWithEffect\n grestore\n } ifelse\n } forall\n RIGHT 0 rmoveto\n} def\n\n%% Show relative composition.\n/RLC { % [ font0? str0 font1? str1 ... fontN? strN ] |- --\n /components exch def\n /Composing true def\n /first true def\n gsave\n [ components {\n /elt exch def\n elt type /nametype eq { % font\n elt dup FM\n } { first { % first string\n /first false def\n elt GetPathBox\n %% Bounding box of overall glyphs.\n /LEFT LLX def\n /RIGHT URX def\n /TOP URY def\n /BOTTOM LLY def\n currentfont /RelativeCompose known {\n /relative currentfont /RelativeCompose get def\n } {\n %% Disable relative composition by setting sufficiently low\n %% and high positions.\n /relative [ -100000 100000 ] def\n } ifelse\n [ elt 0 0 ]\n } { % other strings\n elt GetPathBox\n [ elt % str\n LLX 0 lt { RIGHT } { 0 } ifelse % xoff\n LLY relative 1 get ge { % compose on TOP\n TOP LLY sub RelativeCompositionSkip add % yoff\n /TOP TOP URY LLY sub add RelativeCompositionSkip add def\n } { URY relative 0 get le { % compose under BOTTOM\n BOTTOM URY sub RelativeCompositionSkip sub % yoff\n /BOTTOM BOTTOM URY LLY sub sub\n RelativeCompositionSkip sub def\n } {\n 0 % yoff\n URY TOP gt { /TOP URY def } if\n LLY BOTTOM lt { /BOTTOM LLY def } if\n } ifelse } ifelse\n ]\n URX RIGHT gt { /RIGHT URX def } if\n } ifelse } ifelse\n } forall ] /components exch def\n grestore\n\n %% Reflect special effects.\n SpecialEffect\n\n %% Draw components while ignoring effects other than shadow and outline.\n components ShowComponents\n /Composing false def\n\n} def\n\n%% Show rule-base composition.\n/RBC { % [ font0? str0 rule1 font1? str1 rule2 ... strN ] |- --\n /components exch def\n /Composing true def\n /first true def\n gsave\n [ components {\n /elt exch def\n elt type /nametype eq { % font\n elt dup FM\n } { elt type /integertype eq { % rule\n %% This RULE decoding should be compatible with macro\n %% COMPOSITION_DECODE_RULE in emacs/src/composite.h.\n elt 12 idiv dup 3 mod /grefx exch def 3 idiv /grefy exch def\n elt 12 mod dup 3 mod /nrefx exch def 3 idiv /nrefy exch def\n } { first { % first string\n /first false def\n elt GetPathBox\n %% Bounding box of overall glyphs.\n /LEFT LLX def\n /RIGHT URX def\n /TOP URY def\n /BOTTOM LLY def\n /WIDTH RIGHT LEFT sub def\n [ elt 0 0 ]\n } { % other strings\n elt GetPathBox\n /width URX LLX sub def\n /height URY LLY sub def\n /left LEFT [ 0 WIDTH 2 div WIDTH ] grefx get add\n [ 0 width 2 div width ] nrefx get sub def\n /bottom [ TOP 0 BOTTOM TOP BOTTOM add 2 div ] grefy get\n [ height LLY neg 0 height 2 div ] nrefy get sub def\n %% Update bounding box\n left LEFT lt { /LEFT left def } if\n left width add RIGHT gt { /RIGHT left width add def } if\n /WIDTH RIGHT LEFT sub def\n bottom BOTTOM lt { /BOTTOM bottom def } if\n bottom height add TOP gt { /TOP bottom height add def } if\n [ elt left LLX sub bottom LLY sub ]\n } ifelse } ifelse } ifelse\n } forall ] /components exch def\n grestore\n\n %% Reflect special effects.\n SpecialEffect\n\n %% Draw components while ignoring effects other than shadow and outline.\n components ShowComponents\n\n /Composing false def\n} def\n%%%% End of character composition handler\n\n" (#$ . 28006)) (defalias 'ps-mule-string-ascii #[(str) "\302!\210\303\304 \305\"!\207" [ps-current-font str ps-set-font string-as-unibyte encode-coding-string iso-latin-1] 4]) (defalias 'ps-mule-string-encoding #[(font-spec str &optional no-setfont header-p) "\3068)\307\310 !\203\311\n \"\202-\312 !\203! \n!\202- \203,\313\314 \"\202-\n!\211@)\203F\315\n \f\206@ %\210\202O\f\204O\316!\210\n)\207" [font-spec encoding str ps-mule-current-charset no-setfont header-p 2 string-as-unibyte coding-system-p encode-coding-string functionp error "Invalid coding system or function: %s" ps-mule-prepare-font ps-set-font ps-current-font] 7]) (byte-code "\301B\303\301!\204\f\304\302B\305\304\207" [current-load-list ps-mule-bitmap-prologue-generated ps-mule-bitmap-prologue boundp nil "%%%% Bitmap font handler\n\n/str7 7 string def % working area\n\n%% We grow the dictionary one bunch (1024 entries) by one.\n/BitmapDictArray 256 array def\n/BitmapDictLength 1024 def\n/BitmapDictIndex -1 def\n\n/NewBitmapDict { % -- |- --\n /BitmapDictIndex BitmapDictIndex 1 add def\n BitmapDictArray BitmapDictIndex BitmapDictLength dict put\n} bind def\n\n%% Make at least one dictionary.\nNewBitmapDict\n\n/AddBitmap { % gloval-charname bitmap-data |- --\n BitmapDictArray BitmapDictIndex get\n dup length BitmapDictLength ge {\n pop\n NewBitmapDict\n BitmapDictArray BitmapDictIndex get\n } if\n 3 1 roll put\n} bind def\n\n/GetBitmap { % gloval-charname |- bitmap-data\n 0 1 BitmapDictIndex { BitmapDictArray exch get begin } for\n load\n 0 1 BitmapDictIndex { pop end } for\n} bind def\n\n%% Return a global character name which can be used as a key in the\n%% bitmap dictionary.\n/GlobalCharName { % fontidx code1 code2 |- gloval-charname\n exch 256 mul add exch 65536 mul add 16777216 add 16 str7 cvrs 0 66 put\n str7 cvn\n} bind def\n\n%% Character code holder for a 2-byte character.\n/FirstCode -1 def\n\n%% Glyph rendering procedure\n/BuildGlyphCommon { % fontdict charname |- --\n 1 index /FontDimension get 1 eq { /FirstCode 0 store } if\n NameIndexDict exch get % STACK: fontdict charcode\n FirstCode 0 lt { %ifelse\n %% This is the first byte of a 2-byte character. Just\n %% remember it for the moment.\n /FirstCode exch store\n pop\n 0 0 setcharwidth\n } {\n 1 index /FontSize get /size exch def\n 1 index /FontSpaceWidthRatio get /ratio exch def\n 1 index /FontIndex get exch FirstCode exch\n GlobalCharName GetBitmap /bmp exch def\n %% bmp == [ DWIDTH BBX-WIDTH BBX-HEIGHT BBX-XOFF BBX-YOFF BITMAP ]\n Composing { %ifelse\n /FontMatrix get [ exch { size div } forall ] /mtrx exch def\n bmp 3 get bmp 4 get mtrx transform\n /LLY exch def /LLX exch def\n bmp 1 get bmp 3 get add bmp 2 get bmp 4 get add mtrx transform\n /URY exch def /URX exch def\n } {\n pop\n } ifelse\n /FirstCode -1 store\n\n bmp 0 get SpaceWidthRatio ratio div mul size div 0 % wx wy\n setcharwidth % We can't use setcachedevice here.\n\n bmp 1 get 0 gt bmp 2 get 0 gt and {\n bmp 1 get bmp 2 get % width height\n true % polarity\n [ size 0 0 size neg bmp 3 get neg bmp 2 get bmp 4 get add ] % matrix\n bmp 5 1 getinterval cvx % datasrc\n imagemask\n } if\n } ifelse\n} bind def\n\n/BuildCharCommon {\n 1 index /Encoding get exch get\n 1 index /BuildGlyph get exec\n} bind def\n\n%% Bitmap font creator\n\n%% Common Encoding shared by all bitmap fonts.\n/EncodingCommon 256 array def\n%% Mapping table from character name to character code.\n/NameIndexDict 256 dict def\n0 1 255 { %for\n /idx exch def\n /idxname idx 256 add 16 (XXX) cvrs dup 0 67 put cvn def % `C' == 67\n EncodingCommon idx idxname put\n NameIndexDict idxname idx put\n} for\n\n/GlobalFontIndex 0 def\n\n%% fontname dim col fontsize relative-compose baseline-offset fbbx |- --\n/BitmapFont {\n 15 dict begin\n /FontBBox exch def\n /BaselineOffset exch def\n /RelativeCompose exch def\n /FontSize exch def\n /FontBBox [ FontBBox { FontSize div } forall ] def\n FontBBox 2 get FontBBox 0 get sub exch div\n /FontSpaceWidthRatio exch def\n /FontDimension exch def\n /FontIndex GlobalFontIndex def\n /FontType 3 def\n /FontMatrix matrix def\n /Encoding EncodingCommon def\n /BuildGlyph { BuildGlyphCommon } def\n /BuildChar { BuildCharCommon } def\n currentdict end\n definefont pop\n /GlobalFontIndex GlobalFontIndex 1 add def\n} bind def\n\n%% Define a new bitmap font.\n%% fontname dim col fontsize relative-compose baseline-offset fbbx |- --\n/NF {\n /fbbx exch def\n %% Convert BDF's FontBoundingBox to PostScript's FontBBox\n [ fbbx 2 get fbbx 3 get\n fbbx 2 get fbbx 0 get add fbbx 3 get fbbx 1 get add ]\n BitmapFont\n} bind def\n\n%% Define a glyph for the specified font and character.\n/NG { % fontname charcode bitmap-data |- --\n /bmp exch def\n exch findfont dup /BaselineOffset get bmp 4 get add bmp exch 4 exch put\n /FontIndex get exch\n dup 256 idiv exch 256 mod GlobalCharName\n bmp AddBitmap\n} bind def\n%%%% End of bitmap font handler\n\n"] 2) (defalias 'ps-mule-generate-bitmap-prologue #[nil "?\205 \302 C\207" [ps-mule-bitmap-prologue-generated ps-mule-bitmap-prologue t] 1]) (defalias 'ps-mule-generate-bitmap-font #[(&rest args) "\301\302\303#C\207" [args apply format "/%s %d %d %f %S %d %S NF\n"] 4]) (defalias 'ps-mule-generate-bitmap-glyph #[(font-name code dwidth bbx bitmap) "\305\306 \n \307H \310H \311H \312H\f& \207" [font-name code dwidth bbx bitmap format "/%s %d [ %d %d %d %d %d <%s> ] NG\n" 0 1 2 3] 10]) #@60 Initialize global data for printing multi-byte characters. (defalias 'ps-mule-initialize #[nil "\305\305\305\305\306\307\f\"\207" [ps-mule-font-cache ps-mule-prologue-generated ps-mule-composition-prologue-generated ps-mule-bitmap-prologue-generated ps-mule-external-libraries nil mapcar #[(x) "AA\301\240\207" [x nil] 2]] 3 (#$ . 38979)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list ps-mule-header-charsets boundp nil] 2) #@105 Generate PostScript code for ploting STRING by font FONTTAG. FONTTAG should be a string "/h0" or "/h1". (defalias 'ps-mule-encode-header-string #[(string fonttag) ";\204 \306\202\307!\203\310!\202\311! \203\341 @\312=\203NG\313\n W\203E\314\nH!\315>\204>\n\316I\210\nT\211\202*\317\320\"*\202\341\f\321\230\203X\313\202Y\322 @ \323\323\324N)8@\325\"\211 \203\205\211\326N)\327H\322U\204\257G\313\n W\203\246\314\nH!\330>\204\237\n\316I\210\nT\211\202\213\317\320\"*\202\340\331 @DG\313!\n W\203\327\314\nH!!>\204\320\n\316I\210\nT\211\202\273+\332 \333\334$,\207" [string ps-mule-header-charsets i len fonttag ps-current-font "" multibyte-string-p copy-sequence string-make-multibyte latin-iso8859-1 0 char-charset (ascii latin-iso8859-1) 63 encode-coding-string iso-latin-1 "/h0" 1 ps-font-for-header fonts ps-mule-get-font-spec charset 2 (ascii latin-iso8859-1) ascii ps-mule-string-encoding nil t ps-mule-current-charset font-sym font-type font-spec charsets] 6 (#$ . 39439)]) #@65 Return a list of character sets that appears in header strings. (defalias 'ps-mule-header-string-charsets #[nil "\306 \203m\n D\f\203l\307\f@ \fA \203h W\203h @ A T ;\203;\202b9\203N\310!\203N \202b9\203a\311!\203aJ\202b\306P)\202*\202\n)G\307\312W\203\246\313H!T\314=\204\242>\204\242B)\202w,\207" [str ps-print-header ps-left-header ps-right-header tail tmp "" 0 fboundp boundp nil char-charset ascii count ps-header-lines elt charset-list i len charset] 3 (#$ . 40498)]) #@139 Start printing job for multi-byte chars between FROM and TO. This checks if all multi-byte characters in the region are printable or not. (defalias 'ps-mule-begin-job #[(from to) "\306\306\n\307=\203 \202$\n\310=\203\f\202$\n\311=\203\" \202$12\312\313!\203\301 \203\301\31434\"5\315\316\315\317\315\3065\"\"\"\2115\2123b\210\320\3214\322#\203Z\323B)\324 \2116\203\2136@\316=\204\2026@ B6@5>\204\2026@5B56A\2116\204c)5\203\3005@\323=\204\2475@7\3257\326\")\203\2555A\202\272\327\330!\203\267\306\202\272\331\332!\2115\204\221)\3168\333\33434\"8\203\3379\204\337\335 \210\336:!\210\3229\204\347 \2030\337 \"\306\211;<=\335 \210=\203/=@;=A=;\323=\2039\204\336:!\210\3229\202\366\325;\326\"\211<\203\366\340\341\342N)\343?@@\203l\344\325\316@@\"\345\316\346$\210@A@?T?\202N*) \203\222 @\347=\204\222\325 @\326\"\211<\203\221\343?\344<\350\316\322\211%\210))\205\301A\351=\203\241\352\202\276A\353=\203\256\354\355!\202\276A\356=\203\273\354\357!\202\276\354\360!\211B\207" [ps-mule-charset-list ps-mule-header-charsets ps-multibyte-buffer ps-mule-font-info-database-ps ps-mule-font-info-database-bdf ps-mule-font-info-database-ps-bdf nil non-latin-printer bdf-font bdf-font-except-latin boundp enable-multibyte-characters find-charset-region delq ascii unknown search-forward "\200" t composition ps-mule-header-string-charsets ps-mule-get-font-spec normal y-or-n-p "Font for some characters not found, continue anyway? " error "Printing cancelled" 2 find-composition ps-mule-prologue-generated ps-output-prologue append ps-mule-init-external-library ps-font-for-text fonts 0 ps-mule-prepare-font " " no-setfont latin-iso8859-1 "0123456789/" 8-bit "[^ -~]" control-8-bit string-as-multibyte "[^ -~\240-\377]" control "[^ -~\200-\377]" "[^- -\377]" ps-mule-font-info-database-default ps-mule-font-info-database from to charsets tail charset ps-mule-current-charset ps-mule-composition-prologue-generated ps-mule-composition-prologue elt font-spec the-list font-sym ps-current-font font ps-print-control-characters ps-control-or-escape-regexp] 8 (#$ . 41063)]) (defalias 'ps-mule-begin-page #[nil "\301\211\207" [ps-mule-current-charset ascii] 2]) (provide 'ps-mule)