Current File : //usr/local/share/emacs/27.2/lisp/ps-print.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@397 ps-print.el, v 7.3.5 <2009/12/23 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs, please also
report the version of Emacs, if any, that ps-print was distributed with.
Please send all bug fixes and enhancements to
bug-gnu-emacs@gnu.org and Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>.
(defconst ps-print-version "7.3.5" (#$ . 409))
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315& \210\304\316\306\317\320\321\322\323\312\313\314\324\314\305&
\210\304\325\306\326\322\323\310\327\312\313\314\316& \210\304\330\306\331\322\323\310\332\312\313\314\316& \210\304\333\306\334\322\323\310\335\312\313\314\316& \210\304\336\306\337\322\323\310\340\312\313\314\316& \210\304\341\306\342\322\323\310\343\312\313\314\316& \210\304\344\306\345\322\323\310\346\312\313\314\316\314\347&
\210\304\350\306\351\322\323\310\352\312\313\314\316& \210\304\353\306\354\322\323\310\355\312\313\314\316& \210\304\356\306\357\322\323\310\360\312\313\314\316& \210\304\361\362\363\322\323\310\364\312\313\314\316& \210\304\365\306\366\322\323\310\367\312\313\314\316& \210\304\370\306\371\322\323\310\372\312\313\314\316& \210\373\374\375\376\377DD\201@ \201A \201B \312\313\314\370& \210\373\201C \375\376\201D DD\201E \201A \201F \312\313\314\370& \210\373\201G \375\376\201H DD\201I \201A \201J \312\313\314\370& \210\373\201K \375\376\201L DD\201M \201A \201N \312\313\314\361& \210\373\201O \375\376\201P DD\201Q \201A \201R \312\201S \314\361& \210\373\201T \375\376\201U DD\201V \201A \201W \312\313\314\361& \210\373\201X \375\376\201Y DD\201Z \201A \201[ \312\313\314\361& \210\373\201\\ \375\376\201] DD\201^ \201A \376\312\313\314\361& \210\373\201_ \375\376\201` DD\201a \201A \201b \312\313\314\361& \210\373\201c \375\376\201d DD\201e \312\201S \201A \201b \312\313\314\361& \210\373\201f \375\376\201g DD\201h \201A \201i \312\313\314\365& \210\373\201j \375\376\201k DD\201l \201A \201m \312\313\314\365& \210\373\201n \375\376\201o DD\201p \201A \201b \312\313\314\365& \210\373\201q \375\376\201r DD\201s \201A \201b \312\313\314\365& \210\373\201t \375\376\201u DD\201v \201A \201b \312\201S \314\365& \210\373\201w \375\376\201x DD\201y \201A \201z \312\313\314\365& \210\373\201{ \375\376\201| DD\201} \201A \201~ \312\313\314\365& \210\373\201 \375\376\201\200 DD\201\201 \201A \201\202 \312\313\314\370& \210\373\201\203 \375\376\201\204 DD\201\205 \201A \201\206 \312\313\314\350& \210\373\201\207 \375\376\201\210 DD\201\211 \201A \201\212 \312\313\314\350& \210\373\201\213 \375\376\201\214 DD\201\215 \201A \201b \312\313\314\350& \210\373\201\216 \375\376\201\217 DD\201\220 \201A \201\221 \312\313\314\350& \210\373\201\222 \375\376\201\223 DD\201\224 \201A \201\212 \312\313\314\370& \210\373\201\225 \375\376\201\226 DD\201\227 \201A \201b \312\313\314\353& \210\373\201\230 \375\376\201\231 DD\201\232 \201A \201\212 \312\313\314\353& \210\373\201\233 \375\376\201\234 DD\201\235 \201A \201\236 \312\313\314\353& \210\373\201\237 \375\376\201\240 DD\201\241 \201A \201\242 \312\313\314\353& \210\373\201\243 \375\376\201\244 DD\201\245 \201A \201b \312\313\314\370& \210\373\201\246 \375\376\201\247 DD\201\250 \201A \201\251 \312\313\314\370& \210\373\201\252 \375\376\201\253 DD\201\254 \201A \201\255 \312\313\314\370& \210\373\201\256 \375\376\201\257 DD\201\260 \201A \201\261 \312\313\314\356& \210\373\201\262 \375\376\201\263 DD\201\264 \201A \201\265 \312\313\314\356& \210\373\201\266 \375\376\201\267 DD\201\270 \201A \201\212 \312\313\314\325& \210\373\201\271 \375\376\201\272 DD\201\273 \201A \201\212 \312\313\314\325& \210\373\201\274 \375\376\201\275 DD\201\276 \201A \201\212 \312\313\314\325& \210\373\201\277 \375\376\201\300 DD\201\301 \201A \201\212 \312\313\314\330& \210\373\201\302 \375\376\201\303 DD\201\304 \201A \201\212 \312\313\314\330& \210\373\201\305 \375\376\201\306 DD\201\307 \201A \201\212 \312\313\314\330& \210\373\201\310 \375\376\201\311 DD\201\312 \201A \201\212 \312\313\314\330& \210\373\201\313 \375\376\201\314 DD\201\315 \201A \201\212 \312\313\314\330& \210\373\201\316 \375\376\201\317 DD\201\320 \201A \201\212 \312\313\314\330& \210\373\201\321 \375\376\201\322 DD\201\323 \201A \201b \312\313\314\333& \210\373\201\324 \375\376\201\325 DD\201\326 \201A \201b \312\313\314\333& \210\373\201\327 \375\376\201\330 DD\201\331 \312\201S \201A \201\332 \312\313\314\333& \210\373\201\333 \375\376\201\334 DD\201\335 \201A \201\336 \312\313\314\333& \210\373\201\337 \375\376\201\340 DD\201\341 \201A \201b \312\201S \314\333& \210\373\201\342 \375\376\201\343 DD\201\344 \201A \201b \312\201S \314\333& \210\373\201\345 \375\376\201\346 DD\201\347 \201A \201\350 \312\201S \314\333& \210\373\201\351 \375\376\201\352 DD\201\353 \201A \201\336 \312\201S \314\333& \210\373\201\354 \375\376\201\355 DD\201\356 \201A \201b \312\313\314\333& \210\373\201\357 \375\376\201\360 DD\201\361 \201A \201\362 \312\313\314\333& \210\373\201\363 \375\376\201\364 DD\201\365 \201A \201b \312\313\314\333& \210\373\201\366 \375\376\201\367 DD\201\370 \201A \201\371 \312\313\314\333& \210\373\201\372 \375\376\201\373 DD\201\374 \201A \201b \312\313\314\333& \210\373\201\375 \375\376\201\376 DD\201\377 \201A \201b \312\313\314\333& \210\373\201 \375\376\201DD\201\201A \201\312\313\314\336& \210\373\201\375\376\201DD\201\201A \201\312\313\314\336& \210\373\201\375\376\201 DD\201\n\201A \201 \312\313\314\336& \210\373\201\f\375\376\201
DD\201\201A \201\312\313\314\336& \210\373\201\375\376\201DD\201\201A \201\312\313\314\336& \210\373\201\375\376\201DD\201\201A \201\312\313\314\336& \210\373\201\375\376\201DD\201\201A \201\312\201S \314\336& \210\373\201\375\376\201DD\201 \201A \201 \312\201S \314\336& \210\373\201 \375\376\201 DD\201 \201A \201!\312\201S \314\336\314\370& \210\373\201\"\375\376\201#DD\201$\201A \201W \312\313\314\336\314\370& \210\373\201%\375\376\201&DD\201'\201A \201(\312\313\314\336\314\370& \210\373\201)\375\376\201*DD\201+\201A \201,\312\313\314\341& \210\373\201-\375\376\201.DD\201/\201A \2010\312\313\314\341& \210\373\2011\375\376\2012DD\2013\201A \2014\312\313\314\341& \210\373\2015\375\376\2016DD\2017\201A \2018\312\2019\314\341& \210\373\201:\375\376\201;DD\201<\201A \201b \312\2019\314\341& \210\373\201=\375\376\201>DD\201?\201A \201b \312\313\314\336& \210\373\201@\375\376\201ADD\201B\312\201S \201A \201C\312\313\314\344& \210\373\201D\375\376\201EDD\201F\201A \201G\312\313\314\344& \210\373\201H\375\376\201IDD\201J\201A \201K\312\313\314\344& \210\373\201L\375\376\201MDD\201N\201A \201O\312\313\314\344& \210\373\201P\375\376\201QDD\201R\201A \201S\312\313\314\344& \210\373\201T\375\376\201UDD\201V\201A \201W\312\313\314\333& \210\373\201X\375\376\201YDD\201Z\201A \201[\312\313\314\333& \210\373\201\\\375\376\201]DD\201^\201A \201_\312\201S \314\333& \210\373\201`\375\376\201aDD\201b\201A \201c\312\201S \314\333& \210\373\201d\375\376\201eDD\201f\201A \201b \312\313\314\370& \210\373\201g\375\376\201hDD\201i\201A \201W \312\313\314\370& \210\373\201j\375\376\201kDD\201l\201A \201b \312\313\314\344& \210\373\201m\375\376\201nDD\201o\201A \201b \312\313\314\344& \210\373\201p\375\376\201qDD\201r\201A \201b \312\313\314\333& \210\373\201s\375\376\201tDD\201u\201A \201v\312\313\314\370& \210\373\201w\375\376\201xDD\201y\201A \201z\312\201S \314\370& \210\373\201{\375\376\201|DD\201}\201A \201~\312\201S \314\370& \210\373\201\375\376\201\200DD\201\201\201A \201\202\312\201S \314\370& \210\373\201\203\375\376\201\204DD\201\205\201A \201\206\312\201S \314\370& \210\373\201\207\375\376\201\210DD\201\211\201A \201\212\312\201S \314\370& \207" [require lpr ps-def ps-print-loaddefs custom-declare-group postscript nil "Support for printing and PostScript." :tag "PostScript" :version "20" :group external ps-print "PostScript generator for Emacs." :link (emacs-library-link :tag "Source Lisp File" "ps-print.el") :prefix "ps-" text ps-print-horizontal "Horizontal page layout." "Horizontal" ps-print-vertical "Vertical page layout." "Vertical" ps-print-headers "Headers & footers layout." "Header & Footer" ps-print-font "Fonts customization." "Font" ps-print-color "Color customization." "Color" ps-print-face "Faces customization." "PS Faces" faces ps-print-n-up "N-up customization." "N-Up" ps-print-zebra "Zebra customization." "Zebra" ps-print-background "Background customization." "Background" ps-print-printer ((lpr custom-group)) "Printer customization." "Printer" ps-print-page "Page customization." "Page" ps-print-miscellany "Miscellany customization." "Miscellany" custom-declare-variable ps-error-handler-message funcall function #[0 "\300\207" [paper] 1] "Specify where the error handler message should be sent.\n\nValid values are:\n\n `none' catch the error and *DON'T* send any message.\n\n `paper' catch the error and print on paper the error message.\n\n `system' catch the error and send back the error message to\n printing system. This is useful only if printing system\n send back an email reporting the error, or if there is\n some other alternative way to report back the error from\n the system to you.\n\n `paper-and-system' catch the error, print on paper the error message and\n send back the error message to printing system.\n\nAny other value is treated as `paper'." :type (choice :menu-tag "Error Handler Message" :tag "Error Handler Message" (const none) (const paper) (const system) (const paper-and-system)) ps-user-defined-prologue #[0 "\300\207" [nil] 1] "User defined PostScript prologue code inserted before all prologue code.\n\n`ps-user-defined-prologue' may be a string or a symbol function which returns a\nstring. Note that this string is inserted after `ps-adobe-tag' and PostScript\nprologue comments, and before ps-print PostScript prologue code section. That\nis, this string is inserted after error handler initialization and before\nps-print settings.\n\nIt's strongly recommended only insert PostScript code and/or comments specific\nfor your printing system particularities. For example, some special\ninitialization that only your printing system needs.\n\nDo not insert code for duplex printing, n-up printing or error handler,\nps-print handles this in a suitable way.\n\nFor more information about PostScript, see:\n PostScript Language Reference Manual (2nd edition)\n Adobe Systems Incorporated\n\nAs an example for `ps-user-defined-prologue' setting:\n\n ;; Setting for HP PostScript printer\n (setq ps-user-defined-prologue\n (concat \"<</DeferredMediaSelection true /PageSize [612 792] \"\n \"/MediaPosition 2 /MediaType (Plain)>> setpagedevice\"))" (choice :menu-tag "User Defined Prologue" :tag "User Defined Prologue" (const :tag "none" nil) string symbol) ps-print-prologue-header #[0 "\300\207" [nil] 1] "PostScript prologue header comments besides that ps-print generates.\n\n`ps-print-prologue-header' may be a string or a symbol function which returns a\nstring. Note that this string is inserted on PostScript prologue header\nsection which is used to define some document characteristic through PostScript\nspecial comments, like \"%%Requirements: jog\\n\".\n\nps-print always inserts the %%Requirements: comment, so if you need to insert\nmore requirements put them first in `ps-print-prologue-header' using the\n\"%%+\" comment. For example, if you need to set numcopies to 3 and jog on\nrequirements and set %%LanguageLevel: to 2, do:\n\n (setq ps-print-prologue-header\n \"%%+ numcopies(3) jog\\n%%LanguageLevel: 2\\n\")\n\nThe duplex requirement is inserted by ps-print (see `ps-spool-duplex').\n\nDo not forget to terminate the string with \"\\n\".\n\nFor more information about PostScript document comments, see:\n PostScript Language Reference Manual (2nd edition)\n Adobe Systems Incorporated\n Appendix G: Document Structuring Conventions -- Version 3.0" (choice :menu-tag "Prologue Header" :tag "Prologue Header" (const :tag "none" nil) string symbol) ps-printer-name #[0 "\300\207" [nil] 1] "The name of a local printer for printing PostScript files.\n\nOn Unix-like systems, a string value should be a name understood by lpr's -P\noption; a value of nil means use the value of `printer-name' instead.\n\nOn MS-DOS and MS-Windows systems, a string value is taken as the name of the\nprinter device or port to which PostScript files are written, provided\n`ps-lpr-command' is \"\". By default it is the same as `printer-name'; typical\nnon-default settings would be \"LPT1\" to \"LPT3\" for parallel printers, or\n\"COM1\" to \"COM4\" or \"AUX\" for serial printers, or \"\\\\hostname\\printer\"\nfor a shared network printer. You can also set it to a name of a file, in\nwhich case the output gets appended to that file. (Note that `ps-print'\npackage already has facilities for printing to a file, so you might as well use\nthem instead of changing the setting of this variable.) If you want to\nsilently discard the printed output, set this to \"NUL\".\n\nSet to t, if the utility given by `ps-lpr-command' needs an empty printer name.\n\nAny other value is treated as t, that is, an empty printer name.\n\nSee also `ps-printer-name-option' for documentation." (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "Same as printer-name" nil) (const :tag "No Printer Name" t) (file :tag "Print to file") (string :tag "Pipe to ps-lpr-command")) ps-printer-name-option #[0 "\203 \302\207 \207" [lpr-windows-system lpr-printer-switch "/D:"] 1] "Option for `ps-printer-name' variable (see it).\n\nOn Unix-like systems, if `lpr' is in use, this should be the string\n\"-P\"; if `lp' is in use, this should be the string \"-d\".\n\nOn MS-DOS and MS-Windows systems, if `print' is in use, this should be\nthe string \"/D:\".\n\nFor any other printing utility, see its documentation.\n\nSet this to \"\" or nil, if the utility given by `ps-lpr-command'\nneeds an empty printer name option--that is, pass the printer name\nwith no special option preceding it.\n\nThis variable is used only when `ps-printer-name' is a non-empty string." (choice :menu-tag "Printer Name Option" :tag "Printer Name Option" (const :tag "None" nil) (string :tag "Option")) "21.1" ps-lpr-command #[0 "\207" [lpr-command] 1] "Name of program for printing a PostScript file.\n\nOn MS-DOS and MS-Windows systems, if the value is an empty string then Emacs\nwill write directly to the printer port named by `ps-printer-name'. The\nprograms `print' and `nprint' (the standard print programs on Windows NT and\nNovell Netware respectively) are handled specially, using `ps-printer-name' as\nthe destination for output; any other program is treated like `lpr' except that\nan explicit filename is given as the last argument." string ps-lpr-switches #[0 "\207" [lpr-switches] 1] "List of extra switches to pass to `ps-lpr-command'.\n\nThe list element can be:\n\n string it should be an option for `ps-lpr-command' (which see).\n For example: \"-o Duplex=DuplexNoTumble\"\n\n symbol it can be a function or variable symbol. If it's a function\n symbol, it should be a function with no argument. The result\n of the function or the variable value should be a string or a\n list of strings.\n\n list the header should be a symbol function and the tail is the\n arguments for this function. This function should return a\n string or a list of strings.\n\nAny other value is silently ignored.\n\nIt is recommended to set `ps-printer-name' (which see) instead of including an\nexplicit switch on this list.\n\nSee `ps-lpr-command'." (repeat :tag "PostScript lpr Switches" (choice :menu-tag "PostScript lpr Switch" :tag "PostScript lpr Switch" string symbol (repeat sexp))) ps-print-region-function #[0 "\301>\203 \302\207\303\207" [system-type (ms-dos windows-nt) w32-direct-ps-print-region-function call-process-region] 2] "Specify a function to print the region on a PostScript printer.\nSee definition of `call-process-region' for calling conventions. The fourth\nand the sixth arguments are both nil." ps-manual-feed #[0 "\300\207" [nil] 1] "Non-nil means the printer will manually feed paper.\n\nIf it's nil, automatic feeding takes place." boolean ps-end-with-control-d #[0 "\205 \301\207" [lpr-windows-system t] 1] "Non-nil means insert C-d at end of PostScript file generated." ps-page-dimensions-database #[0 "\300\301\302\303\245\304\305_\306\245\307F\310\304\311_\312\245\313\314\245\315F\316\304\317_\320\321F\322\304\323_\324\325F\326\304\327_\304\330_\331F\332\333\334\335F\336\337\340\341F\342\304\343_\304\344_\345F\346\304\347_\350\351F\352\304\353_\304\354_\355F\356\304\357_\304\360_\361F\362\304\363_\304\364_\365F\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \201K \201L \257#!\207" [purecopy a4 1512.0 2.54 72 29.7 2.54 "A4" a3 29.7 2.54 3024.0 2.54 "A3" letter 8.5 792.0 "Letter" legal 8.5 1008.0 "Legal" letter-small 7.68 10.16 "LetterSmall" tabloid 792.0 1224.0 "Tabloid" ledger 1224.0 792.0 "Ledger" statement 5.5 8.5 "Statement" executive 7.5 720.0 "Executive" a4small 7.47 10.85 "A4Small" b4 10.125 14.33 "B4" b5 7.16 10.125 "B5" (addresslarge 236.0 99.0 "AddressLarge") (addresssmall 236.0 68.0 "AddressSmall") (cuthanging13 90.0 222.0 "CutHanging13") (cuthanging15 90.0 114.0 "CutHanging15") (diskette 181.0 136.0 "Diskette") (eurofilefolder 139.0 112.0 "EuropeanFilefolder") (eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") (eurofolderwide 526.0 136.0 "EuroFolderWide") (euronamebadge 189.0 108.0 "EuroNameBadge") (euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") (filefolder 230.0 37.0 "FileFolder") (jewelry 76.0 136.0 "Jewelry") (mediabadge 180.0 136.0 "MediaBadge") (multipurpose 126.0 68.0 "MultiPurpose") (retaillabel 90.0 104.0 "RetailLabel") (shipping 271.0 136.0 "Shipping") (slide35mm 26.0 104.0 "Slide35mm") (spine8mm 187.0 26.0 "Spine8mm") (topcoated 425.19685 136.0 "TopCoatedPaper") (topcoatedpaper 396.0 136.0 "TopcoatedPaper150") (vhsface 205.0 127.0 "VHSFace") (vhsspine 400.0 50.0 "VHSSpine") (zipdisk 156.0 136.0 "ZipDisk")] 36] "List associating a symbolic paper type to its width, height and doc media.\nSee `ps-paper-type'." (repeat (list :tag "Paper Type" (symbol :tag "Symbol Name") (number :tag "Width in points") (number :tag "Height in points") (string :tag "Media"))) ps-paper-type #[0 "\300\207" [letter] 1] "Specify the size of paper to format for.\nShould be one of the paper types defined in `ps-page-dimensions-database', for\nexample `letter', `legal' or `a4'." (symbol :validate (lambda (wid) (if (assq (widget-value wid) ps-page-dimensions-database) nil (widget-put wid :error "Unknown paper size") wid))) ps-warn-paper-type #[0 "\300\207" [t] 1] "Non-nil means give an error if paper size is not equal to `ps-paper-type'.\n\nIt's used when `ps-spool-config' is set to `setpagedevice'." ps-landscape-mode #[0 "\300\207" [nil] 1] "Non-nil means print in landscape mode." ps-print-upside-down #[0 "\300\207" [nil] 1] "Non-nil means print upside-down (that is, rotated by 180 degrees)." ps-selected-pages #[0 "\300\207" [nil] 1] "Specify which pages to print.\n\nIf nil, print all pages.\n\nIf a list, the lists element may be an integer or a cons cell (FROM . TO)\ndesignating FROM page to TO page; any invalid element is ignored, that is, an\ninteger lesser than one or if FROM is greater than TO.\n\nOtherwise, it's treated as nil.\n\nAfter ps-print processing `ps-selected-pages' is set to nil. But the\nlatest `ps-selected-pages' is saved in `ps-last-selected-pages' (which\nsee). So you can restore the latest selected pages by using\n`ps-last-selected-pages' or with the `ps-restore-selected-pages'\ncommand (which see).\n\nSee also `ps-even-or-odd-pages'." (repeat :tag "Selected Pages" (radio :tag "Page" (integer :tag "Number") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))) ps-even-or-odd-pages #[0 "\300\207" [nil] 1] "Specify if it prints even/odd pages.\n\nValid values are:\n\n nil print all pages.\n\n `even-page' print only even pages.\n\n `odd-page' print only odd pages.\n\n `even-sheet' print only even sheets.\n That is, if `ps-n-up-printing' is 1, it behaves as `even-page';\n but for values greater than 1, it'll print only the even sheet\n of paper.\n\n `odd-sheet' print only odd sheets.\n That is, if `ps-n-up-printing' is 1, it behaves as `odd-page';\n but for values greater than 1, it'll print only the odd sheet\n of paper.\n\nAny other value is treated as nil.\n\nIf you set option `ps-selected-pages', first the pages are\nfiltered by option `ps-selected-pages' and then by `ps-even-or-odd-pages'.\nFor example, if we have:\n\n (setq ps-selected-pages \\='(1 4 (6 . 10) (12 . 16) 20))\n\nCombining with `ps-even-or-odd-pages' and option `ps-n-up-printing', we have:\n\n`ps-n-up-printing' = 1:\n `ps-even-or-odd-pages' PAGES PRINTED\n nil 1, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 20\n even-page 4, 6, 8, 10, 12, 14, 16, 20\n odd-page 1, 7, 9, 13, 15\n even-sheet 4, 6, 8, 10, 12, 14, 16, 20\n odd-sheet 1, 7, 9, 13, 15\n\n`ps-n-up-printing' = 2:\n `ps-even-or-odd-pages' PAGES PRINTED\n nil 1/4, 6/7, 8/9, 10/12, 13/14, 15/16, 20\n even-page 4/6, 8/10, 12/14, 16/20\n odd-page 1/7, 9/13, 15\n even-sheet 6/7, 10/12, 15/16\n odd-sheet 1/4, 8/9, 13/14, 20\n\nSo even-page/odd-page are about page parity and even-sheet/odd-sheet are about\nsheet parity." (choice :menu-tag "Print Even/Odd Pages" :tag "Print Even/Odd Pages" (const :tag "All Pages" nil) (const :tag "Only Even Pages" even-page) (const :tag "Only Odd Pages" odd-page) (const :tag "Only Even Sheets" even-sheet) (const :tag "Only Odd Sheets" odd-sheet)) ps-print-control-characters #[0 "\300\207" [control-8-bit] 1] "Specify the printable form for control and 8-bit characters.\nThat is, instead of sending, for example, a ^D (\\004) to printer,\nit is sent the string \"^D\".\n\nValid values are:\n\n `8-bit' This is the value to use when you want an ASCII encoding of\n any control or non-ASCII character. Control characters are\n encoded as \"^D\", and non-ASCII characters have an\n octal encoding.\n\n `control-8-bit' This is the value to use when you want an ASCII encoding of\n any control character, whether it is 7 or 8-bit.\n European 8-bits accented characters are printed according\n the current font.\n\n `control' Only ASCII control characters have an ASCII encoding.\n European 8-bits accented characters are printed according\n the current font.\n\n nil No ASCII encoding. Any character is printed according the\n current font.\n\nAny other value is treated as nil." (choice :menu-tag "Control Char" :tag "Control Char" (const 8-bit) (const control-8-bit) (const control) (const :tag "nil" nil)) ps-n-up-printing #[0 "\300\207" [1] 1] "Specify the number of pages per sheet paper." (integer :tag "N Up Printing" :validate (lambda (wid) (if (and (< 0 (widget-value wid)) (<= (widget-value wid) 100)) nil (widget-put wid :error "Number of pages per sheet paper must be between 1 and 100.") wid))) ps-n-up-margin #[0 "\300\301\245\207" [72.0 2.54] 2] "Specify the margin in points between the sheet border and n-up printing." number ps-n-up-border-p #[0 "\300\207" [t] 1] "Non-nil means a border is drawn around each page." ps-n-up-filling #[0 "\300\207" [left-top] 1] "Specify how page matrix is filled on each sheet of paper.\n\nFollowing are the valid values for `ps-n-up-filling' with a filling example\nusing a 3x4 page matrix:\n\n `left-top' 1 2 3 4 `left-bottom' 9 10 11 12\n 5 6 7 8 5 6 7 8\n 9 10 11 12 1 2 3 4\n\n `right-top' 4 3 2 1 `right-bottom' 12 11 10 9\n 8 7 6 5 8 7 6 5\n 12 11 10 9 4 3 2 1\n\n `top-left' 1 4 7 10 `bottom-left' 3 6 9 12\n 2 5 8 11 2 5 8 11\n 3 6 9 12 1 4 7 10\n\n `top-right' 10 7 4 1 `bottom-right' 12 9 6 3\n 11 8 5 2 11 8 5 2\n 12 9 6 3 10 7 4 1\n\nAny other value is treated as `left-top'." (choice :menu-tag "N-Up Filling" :tag "N-Up Filling" (const left-top) (const left-bottom) (const right-top) (const right-bottom) (const top-left) (const bottom-left) (const top-right) (const bottom-right)) ps-number-of-columns #[0 "\203 \301\207\302\207" [ps-landscape-mode 2 1] 1] "Specify the number of columns." ps-zebra-stripes #[0 "\300\207" [nil] 1] "Non-nil means print zebra stripes.\nSee also documentation for `ps-zebra-stripe-height' and `ps-zebra-color'." ps-zebra-stripe-height #[0 "\300\207" [3] 1] "Number of zebra stripe lines.\nSee also documentation for `ps-zebra-stripes' and `ps-zebra-color'." ps-zebra-color #[0 "\300\207" [0.95] 1] "Zebra stripe gray scale or RGB color.\nSee also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'." (choice :menu-tag "Zebra Gray/Color" :tag "Zebra Gray/Color" (number :tag "Gray Scale" :value 0.95) (string :tag "Color Name" :value "gray95") (list :tag "RGB Color" :value (0.95 0.95 0.95) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) ps-zebra-stripe-follow #[0 "\300\207" [nil] 1] "Specify how zebra stripes continue on next page.\n\nVisually, valid values are (the character `+' at right of each column indicates\nthat a line is printed):\n\n nil `follow' `full' `full-follow'\n Current Page -------- ----------- --------- ----------------\n 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX +\n 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX +\n 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX +\n 4 + 4 + 4 + 4 +\n 5 + 5 + 5 + 5 +\n 6 + 6 + 6 + 6 +\n 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX +\n 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX +\n 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX +\n 10 + 10 +\n 11 + 11 +\n -------- ----------- --------- ----------------\n Next Page -------- ----------- --------- ----------------\n 12 XXXXX + 12 + 10 XXXXXX + 10 +\n 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 +\n 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 +\n 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX +\n 16 + 16 + 14 + 14 XXXXXXXXXXXXX +\n 17 + 17 + 15 + 15 XXXXXXXXXXXXX +\n 18 XXXXX + 18 + 16 XXXXXX + 16 +\n 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 +\n 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 +\n 21 + 21 XXXXXXXX +\n 22 + 22 +\n -------- ----------- --------- ----------------\n\nAny other value is treated as nil." (choice :menu-tag "Zebra Stripe Follow" :tag "Zebra Stripe Follow" (const :tag "Always Restart" nil) (const :tag "Continue on Next Page" follow) (const :tag "Print Only Full Stripe" full) (const :tag "Continue on Full Stripe" full-follow)) ps-line-number #[0 "\300\207" [nil] 1] "Non-nil means print line number." ps-line-number-step #[0 "\300\207" [1] 1] "Specify the interval that line number is printed.\n\nFor example, `ps-line-number-step' is set to 2, the printing will look like:\n\n 1 one line\n one line\n 3 one line\n one line\n 5 one line\n one line\n ...\n\nValid values are:\n\n integer an integer that specifies the interval that line number is\n printed. If it's lesser than or equal to zero, it's used the\n value 1.\n\n `zebra' specifies that only the line number of the first line in a\n zebra stripe is to be printed.\n\nAny other value is treated as `zebra'." (choice :menu-tag "Line Number Step" :tag "Line Number Step" (integer :tag "Step Interval") (const :tag "Synchronize Zebra" zebra)) ps-line-number-start #[0 "\300\207" [1] 1] "Specify the starting point in the interval given by `ps-line-number-step'.\n\nFor example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is\nset to 3, the printing will look like:\n\n one line\n one line\n 3 one line\n one line\n one line\n 6 one line\n one line\n one line\n 9 one line\n one line\n ...\n\nThe values for `ps-line-number-start':\n\n * If `ps-line-number-step' is an integer, must be between 1 and the value of\n `ps-line-number-step' inclusive.\n\n * If `ps-line-number-step' is set to `zebra', must be between 1 and the\n value of `ps-zebra-stripe-height' inclusive. Use this combination if you\n wish that line number be relative to zebra stripes." (integer :tag "Start Step Interval") ps-print-background-image #[0 "\300\207" [nil] 1] "EPS image list to be printed on background.\n\nThe elements are:\n\n (FILENAME X Y XSCALE YSCALE ROTATION PAGES...)\n\nFILENAME is a file name which contains an EPS image or some PostScript\nprogramming like EPS.\nFILENAME is ignored, if it doesn't exist or is read protected.\n\nX and Y are relative positions on paper to put the image.\nIf X and Y are nil, the image is centered on paper.\n\nXSCALE and YSCALE are scale factor to be applied to image before printing.\nIf XSCALE and YSCALE are nil, the original size is used.\n\nROTATION is the image rotation angle; if nil, the default is 0.\n\nPAGES designates the page to print background image.\nPAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO\npage.\nIf PAGES is nil, print background image on all pages.\n\nX, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer\nnumber or a string. If it is a string, the string should contain PostScript\nprogramming that returns a float or integer value.\n\nFor example, if you wish to print an EPS image on all pages use:\n\n ((\"~/images/EPS-image.ps\"))" (repeat (list (file :tag "EPS File") (choice :tag "X" (const :tag "default" nil) number string) (choice :tag "Y" (const :tag "default" nil) number string) (choice :tag "X Scale" (const :tag "default" nil) number string) (choice :tag "Y Scale" (const :tag "default" nil) number string) (choice :tag "Rotation" (const :tag "default" nil) number string) (repeat :tag "Pages" :inline t (radio (integer :tag "Page") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))))) ps-print-background-text #[0 "\300\207" [nil] 1] "Text list to be printed on background.\n\nThe elements are:\n\n (STRING X Y FONT FONTSIZE GRAY ROTATION PAGES...)\n\nSTRING is the text to be printed on background.\n\nX and Y are positions on paper to put the text.\nIf X and Y are nil, the text is positioned at lower left corner.\n\nFONT is a font name to be used on printing the text.\nIf nil, \"Times-Roman\" is used.\n\nFONTSIZE is font size to be used, if nil, 200 is used.\n\nGRAY is the text gray factor (should be very light like 0.8).\nIf nil, the default is 0.85.\n\nROTATION is the text rotation angle; if nil, the angle is given by the diagonal\nfrom lower left corner to upper right corner.\n\nPAGES designates the page to print background text.\nPAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO\npage.\nIf PAGES is nil, print background text on all pages.\n\nX, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer\nnumber or a string. If it is a string, the string should contain PostScript\nprogramming that returns a float or integer value.\n\nFor example, if you wish to print text \"Preliminary\" on all pages use:\n\n ((\"Preliminary\"))" (repeat (list (string :tag "Text") (choice :tag "X" (const :tag "default" nil) number string) (choice :tag "Y" (const :tag "default" nil) number string) (choice :tag "Font" (const :tag "default" nil) string) (choice :tag "Fontsize" (const :tag "default" nil) number string) (choice :tag "Gray" (const :tag "default" nil) number string) (choice :tag "Rotation" (const :tag "default" nil) number string) (repeat :tag "Pages" :inline t (radio (integer :tag "Page") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))))) ps-left-margin #[0 "\300\301\245\207" [144.0 2.54] 2] "Left margin in points (1/72 inch)." ps-right-margin #[0 "\300\301\245\207" [144.0 2.54] 2] "Right margin in points (1/72 inch)." ps-inter-column #[0 "\300\301\245\207" [144.0 2.54] 2] "Horizontal space between columns in points (1/72 inch)." ps-bottom-margin #[0 "\300\301_\302\245\207" [72 1.5 2.54] 2] "Bottom margin in points (1/72 inch)." ps-top-margin #[0 "\300\301_\302\245\207" [72 1.5 2.54] 2] "Top margin in points (1/72 inch)." ps-header-offset #[0 "\300\301\245\207" [72.0 2.54] 2] "Vertical space in points (1/72 inch) between the main text and the header." ps-header-line-pad #[0 "\300\207" [0.15] 1] "Portion of a header title line height to insert.\nThe insertion is done between the header frame and the text it contains,\nboth in the vertical and horizontal directions." ps-footer-offset #[0 "\300\301\245\207" [72.0 2.54] 2] "Vertical space in points (1/72 inch) between the main text and the footer." ps-footer-line-pad #[0 "\300\207" [0.15] 1] "Portion of a footer title line height to insert.\nThe insertion is done between the footer frame and the text it contains,\nboth in the vertical and horizontal directions." ps-print-header #[0 "\300\207" [t] 1] "Non-nil means print a header at the top of each page.\nBy default, the header displays the buffer name, page number, and, if the\nbuffer is visiting a file, the file's directory. Headers are customizable by\nchanging variables `ps-left-header' and `ps-right-header'." ps-print-header-frame #[0 "\300\207" [t] 1] "Non-nil means draw a gaudy frame around the header." ps-header-frame-alist #[0 "\300\207" [((fore-color . 0.0) (back-color . 0.9) (border-width . 0.4) (border-color . 0.0) (shadow-color . 0.0))] 1] "Specify header frame properties alist.\n\nValid frame properties are:\n\n `fore-color' Specify the foreground frame color.\n It should be a float number between 0.0 (black color)\n and 1.0 (white color), a string which is a color name,\n or a list of 3 float numbers which corresponds to the\n Red Green Blue color scale, each float number between\n 0.0 (dark color) and 1.0 (bright color).\n\n `back-color' Specify the background frame color (similar to\n `fore-color').\n\n `shadow-color' Specify the shadow color (similar to `fore-color').\n\n `border-color' Specify the border color (similar to `fore-color').\n\n `border-width' Specify the border width.\n\nAny other property is ignored.\n\nDon't change this alist directly, instead use customization, or `ps-value',\n`ps-get', `ps-put' and `ps-del' functions (see them for documentation)." (repeat (choice :menu-tag "Header Frame Element" :tag #1="" (cons :tag "Foreground Color" :format "%v" (const :format #1# fore-color) (choice :menu-tag "Foreground Color" :tag "Foreground Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Background Color" :format "%v" (const :format #1# back-color) (choice :menu-tag "Background Color" :tag "Background Color" (number :tag "Gray Scale" :value 0.9) (string :tag "Color Name" :value "gray90") (list :tag "RGB Color" :value (0.9 0.9 0.9) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Border Width" :format "%v" (const :format #1# border-width) (number :tag "Border Width" :value 0.4)) (cons :tag "Border Color" :format "%v" (const :format #1# border-color) (choice :menu-tag "Border Color" :tag "Border Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Shadow Color" :format "%v" (const :format #1# shadow-color) (choice :menu-tag "Shadow Color" :tag "Shadow Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))))) ps-header-lines #[0 "\300\207" [2] 1] "Number of lines to display in page header, when generating PostScript." integer ps-print-footer #[0 "\300\207" [nil] 1] "Non-nil means print a footer at the bottom of each page.\nBy default, the footer displays page number.\nFooters are customizable by changing variables `ps-left-footer' and\n`ps-right-footer'." ps-print-footer-frame #[0 "\300\207" [t] 1] "Non-nil means draw a gaudy frame around the footer." ps-footer-frame-alist #[0 "\300\207" [((fore-color . 0.0) (back-color . 0.9) (border-width . 0.4) (border-color . 0.0) (shadow-color . 0.0))] 1] "Specify footer frame properties alist.\n\nDon't change this alist directly, instead use customization, or `ps-value',\n`ps-get', `ps-put' and `ps-del' functions (see them for documentation).\n\nSee also `ps-header-frame-alist' for documentation." (repeat (choice :menu-tag "Header Frame Element" :tag #1# (cons :tag "Foreground Color" :format "%v" (const :format #1# fore-color) (choice :menu-tag "Foreground Color" :tag "Foreground Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Background Color" :format "%v" (const :format #1# back-color) (choice :menu-tag "Background Color" :tag "Background Color" (number :tag "Gray Scale" :value 0.9) (string :tag "Color Name" :value "gray90") (list :tag "RGB Color" :value (0.9 0.9 0.9) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Border Width" :format "%v" (const :format #1# border-width) (number :tag "Border Width" :value 0.4)) (cons :tag "Border Color" :format "%v" (const :format #1# border-color) (choice :menu-tag "Border Color" :tag "Border Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Shadow Color" :format "%v" (const :format #1# shadow-color) (choice :menu-tag "Shadow Color" :tag "Shadow Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))))) ps-footer-lines #[0 "\300\207" [2] 1] "Number of lines to display in page footer, when generating PostScript." ps-print-only-one-header #[0 "\300\207" [nil] 1] "Non-nil means print only one header/footer at the top/bottom of each page.\nThis is useful when printing more than one column, so it is possible to have\nonly one header/footer over all columns or one header/footer per column.\nSee also `ps-print-header' and `ps-print-footer'." ps-switch-header #[0 "\300\207" [duplex] 1] "Specify if headers/footers are switched or not.\n\nValid values are:\n\nnil Never switch headers/footers.\n\nt Always switch headers/footers.\n\nduplex Switch headers/footers only when duplexing is on, that is, when\n `ps-spool-duplex' is non-nil.\n\nAny other value is treated as t.\n\nSee also `ps-print-header' and `ps-print-footer'." (choice :menu-tag "Switch Header/Footer" :tag "Switch Header/Footer" (const :tag "Never Switch" nil) (const :tag "Always Switch" t) (const :tag "Switch When Duplexing" duplex)) ps-show-n-of-n #[0 "\300\207" [t] 1] "Non-nil means show page numbers as N/M, meaning page N of M.\nNOTE: page numbers are displayed as part of headers,\n see variable `ps-print-header'." ps-spool-config #[0 "?\205 \301\207" [lpr-windows-system lpr-switches] 1] "Specify who is responsible for setting duplex and page size.\n\nValid values are:\n\n `lpr-switches' duplex and page size are configured by `ps-lpr-switches'.\n Don't forget to set `ps-lpr-switches' to select duplex\n printing for your printer.\n\n `setpagedevice' duplex and page size are configured by ps-print using the\n setpagedevice PostScript operator.\n\n nil duplex and page size are configured by ps-print *not* using\n the setpagedevice PostScript operator.\n\nAny other value is treated as nil.\n\nWARNING: The setpagedevice PostScript operator affects ghostview utility when\n viewing file generated using landscape. Also on some printers,\n setpagedevice affects zebra stripes; on other printers, setpagedevice\n affects the left margin.\n Besides all that, if your printer does not have the paper size\n specified by setpagedevice, your printing will be aborted.\n So, if you need to use setpagedevice, set `ps-spool-config' to\n `setpagedevice', generate a test file and send it to your printer; if\n the printed file isn't OK, set `ps-spool-config' to nil." (choice :menu-tag "Spool Config" :tag "Spool Config" (const lpr-switches) (const setpagedevice) (const :tag "nil" nil)) ps-spool-duplex #[0 "\300\207" [nil] 1] "Non-nil generates PostScript for a two-sided printer.\nFor a duplex printer, the `ps-spool-*' and `ps-print-*' commands will insert\nblank pages as needed between print jobs so that the next buffer printed will\nstart on the right page. Also, if headers are turned on, the headers will be\nreversed on duplex printers so that the page numbers fall to the left on\neven-numbered pages.\n\nSee also `ps-spool-tumble'." ps-spool-tumble #[0 "\300\207" [nil] 1] "Specify how the page images on opposite sides of a sheet are oriented.\nIf `ps-spool-tumble' is nil, produces output suitable for binding on the left\nor right. If `ps-spool-tumble' is non-nil, produces output suitable for\nbinding at the top or bottom.\n\nIt has effect only when `ps-spool-duplex' is non-nil." ps-font-info-database #[0 "\300\207" [((Courier (fonts (normal . "Courier") (bold . "Courier-Bold") (italic . "Courier-Oblique") (bold-italic . "Courier-BoldOblique")) (size . 10.0) (line-height . 10.55) (space-width . 6.0) (avg-char-width . 6.0)) (Helvetica (fonts (normal . "Helvetica") (bold . "Helvetica-Bold") (italic . "Helvetica-Oblique") (bold-italic . "Helvetica-BoldOblique")) (size . 10.0) (line-height . 11.56) (space-width . 2.78) (avg-char-width . 5.09243)) (Times (fonts (normal . "Times-Roman") (bold . "Times-Bold") (italic . "Times-Italic") (bold-italic . "Times-BoldItalic")) (size . 10.0) (line-height . 11.0) (space-width . 2.5) (avg-char-width . 4.71432)) (Palatino (fonts (normal . "Palatino-Roman") (bold . "Palatino-Bold") (italic . "Palatino-Italic") (bold-italic . "Palatino-BoldItalic")) (size . 10.0) (line-height . 12.1) (space-width . 2.5) (avg-char-width . 5.08676)) (Helvetica-Narrow (fonts (normal . "Helvetica-Narrow") (bold . "Helvetica-Narrow-Bold") (italic . "Helvetica-Narrow-Oblique") (bold-italic . "Helvetica-Narrow-BoldOblique")) (size . 10.0) (line-height . 11.56) (space-width . 2.2796) (avg-char-width . 4.17579)) (NewCenturySchlbk (fonts (normal . "NewCenturySchlbk-Roman") (bold . "NewCenturySchlbk-Bold") (italic . "NewCenturySchlbk-Italic") (bold-italic . "NewCenturySchlbk-BoldItalic")) (size . 10.0) (line-height . 12.15) (space-width . 2.78) (avg-char-width . 5.31162)) (AvantGarde-Book (fonts (normal . "AvantGarde-Book") (italic . "AvantGarde-BookOblique")) (size . 10.0) (line-height . 11.77) (space-width . 2.77) (avg-char-width . 5.45189)) (AvantGarde-Demi (fonts (normal . "AvantGarde-Demi") (italic . "AvantGarde-DemiOblique")) (size . 10.0) (line-height . 12.72) (space-width . 2.8) (avg-char-width . 5.51351)) (Bookman-Demi (fonts (normal . "Bookman-Demi") (italic . "Bookman-DemiItalic")) (size . 10.0) (line-height . 11.77) (space-width . 3.4) (avg-char-width . 6.05946)) (Bookman-Light (fonts (normal . "Bookman-Light") (italic . "Bookman-LightItalic")) (size . 10.0) (line-height . 11.79) (space-width . 3.2) (avg-char-width . 5.67027)) (Symbol (fonts (normal . "Symbol")) (size . 10.0) (line-height . 13.03) (space-width . 2.5) (avg-char-width . 3.24324)) (Zapf-Dingbats (fonts (normal . "Zapf-Dingbats")) (size . 10.0) (line-height . 9.63) (space-width . 2.78) (avg-char-width . 2.78)) (ZapfChancery-MediumItalic (fonts (normal . "ZapfChancery-MediumItalic")) (size . 10.0) (line-height . 11.45) (space-width . 2.2) (avg-char-width . 4.10811)) (Zapf-Chancery-MediumItalic (fonts (normal . "ZapfChancery-MediumItalic")) (size . 10.0) (line-height . 11.45) (space-width . 2.2) (avg-char-width . 4.10811)))] 1] "Font info database.\nEach element comprises: font family (the key), name, bold, italic, bold-italic,\nreference size, line height, space width, average character width.\nTo get the info for another specific font (say Helvetica), do the following:\n- create a new buffer\n- generate the PostScript image to a file (C-u M-x ps-print-buffer)\n- open this file and delete the leading `%' (which is the PostScript comment\n character) from the line\n `% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage'\n to get the line\n `3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage'\n- add the values to `ps-font-info-database'.\nYou can get all the fonts of YOUR printer using `ReportAllFontInfo'.\n\nNote also that ps-print DOESN'T download any font to your printer, instead it\nuses the fonts resident in your printer." (repeat (list :tag "Font Definition" (symbol :tag "Font Family") (cons :format "%v" (const :format #1# fonts) (repeat :tag "Faces" (cons (choice :menu-tag "Font Weight/Slant" :tag "Font Weight/Slant" (const normal) (const bold) (const italic) (const bold-italic) (symbol :tag "Face")) (string :tag "Font Name")))) (cons :format "%v" (const :format #1# size) (number :tag "Reference Size")) (cons :format "%v" (const :format #1# line-height) (number :tag "Line Height")) (cons :format "%v" (const :format #1# space-width) (number :tag "Space Width")) (cons :format "%v" (const :format #1# avg-char-width) (number :tag "Average Character Width")))) ps-font-family #[0 "\300\207" [Courier] 1] "Font family name for ordinary text, when generating PostScript." symbol ps-font-size #[0 "\300\207" [(7 . 8.5)] 1] "Font size, in points, for ordinary text, when generating PostScript.\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)." (choice :menu-tag "Ordinary Text Font Size" :tag "Ordinary Text Font Size" (number :tag "Text Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Text Size") (number :tag "Portrait Text Size"))) ps-header-font-family #[0 "\300\207" [Helvetica] 1] "Font family name for text in the header, when generating PostScript." ps-header-font-size #[0 "\300\207" [(10 . 12)] 1] "Font size, in points, for text in the header, when generating PostScript.\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)." (choice :menu-tag "Header Font Size" :tag "Header Font Size" (number :tag "Header Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Header Size") (number :tag "Portrait Header Size"))) ps-header-title-font-size #[0 "\300\207" [(12 . 14)] 1] "Font size, in points, for the top line of text in header, in PostScript.\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)." (choice :menu-tag "Header Title Font Size" :tag "Header Title Font Size" (number :tag "Header Title Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Header Title Size") (number :tag "Portrait Header Title Size"))) ps-footer-font-family #[0 "\300\207" [Helvetica] 1] "Font family name for text in the footer, when generating PostScript." ps-footer-font-size #[0 "\300\207" [(10 . 12)] 1] "Font size, in points, for text in the footer, when generating PostScript.\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)." (choice :menu-tag "Footer Font Size" :tag "Footer Font Size" (number :tag "Footer Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Footer Size") (number :tag "Portrait Footer Size"))) ps-line-number-color #[0 "\300\207" [#2="black"] 1 #2#] "Specify color for line-number, when generating PostScript." (choice :menu-tag "Line Number Color" :tag "Line Number Color" (number :tag "Gray Scale" :value 0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0 0 0) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) ps-line-number-font #[0 "\300\207" [#3="Times-Italic"] 1 #3#] "Font for line-number, when generating PostScript." ps-line-number-font-size #[0 "\300\207" [6] 1] "Font size, in points, for line number, when generating PostScript.\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE)." (choice :menu-tag "Line Number Font Size" :tag "Line Number Font Size" (number :tag "Font Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Font Size") (number :tag "Portrait Font Size"))) ps-print-color-p #[0 "\300\301!\207" [fboundp x-color-values] 2] "Specify how buffer's text color is printed.\n\nValid values are:\n\n nil Do not print colors.\n\n t Print colors.\n\n black-white Print colors on black/white printer.\n See also `ps-black-white-faces'.\n\nAny other value is treated as t." (choice :menu-tag "Print Color" :tag "Print Color" (const :tag "Do NOT Print Color" nil) (const :tag "Print Always Color" t) (const :tag "Print Black/White Color" black-white)) ps-default-fg #[0 "\300\207" [nil] 1] "RGB values of the default foreground color.\n\nThe `ps-default-fg' variable contains the default foreground color used by\nps-print, that is, if there is a face in a text that doesn't have a foreground\ncolor, the `ps-default-fg' color should be used.\n\nValid values are:\n\n t The foreground color of Emacs session will be used.\n\n frame-parameter The foreground-color frame parameter will be used.\n\n NUMBER It's a real value between 0.0 (black) and 1.0 (white) that\n indicate the gray color.\n\n COLOR-NAME It's a string which contains the color name. For example:\n \"yellow\".\n\n LIST It's a list of RGB values, that is a list of three real values\n of the form:\n\n (RED GREEN BLUE)\n\n Where RED, GREEN and BLUE are reals between 0.0 (no color) and\n 1.0 (full color).\n\nAny other value is ignored and black color will be used.\n\nThis variable is used only when `ps-print-color-p' (which see) is neither nil\nnor black-white." (choice :menu-tag "Default Foreground Gray/Color" (const :tag "Session Foreground" t) (const :tag "Frame Foreground" frame-parameter) (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")) (other :tag "Default Foreground Gray/Color" nil)) ps-default-bg #[0 "\300\207" [nil] 1] "RGB values of the default background color.\n\nThe `ps-default-bg' variable contains the default background color used by\nps-print, that is, if there is a face in a text that doesn't have a background\ncolor, the `ps-default-bg' color should be used.\n\nValid values are:\n\n t The background color of Emacs session will be used.\n\n frame-parameter The background-color frame parameter will be used.\n\n NUMBER It's a real value between 0.0 (black) and 1.0 (white) that\n indicate the gray color.\n\n COLOR-NAME It's a string which contains the color name. For example:\n \"yellow\".\n\n LIST It's a list of RGB values, that is a list of three real values\n of the form:\n\n (RED GREEN BLUE)\n\n Where RED, GREEN and BLUE are reals between 0.0 (no color) and\n 1.0 (full color).\n\nAny other value is ignored and white color will be used.\n\nThis variable is used only when `ps-print-color-p' (which see) is neither nil\nnor black-white.\n\nSee also `ps-use-face-background'." (choice :menu-tag "Default Background Gray/Color" (const :tag "Session Background" t) (const :tag "Frame Background" frame-parameter) (number :tag "Gray Scale" :value 1.0) (string :tag "Color Name" :value "white") (list :tag "RGB Color" :value (1.0 1.0 1.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")) (other :tag "Default Background Gray/Color" nil)) ps-fg-list #[0 "\300\207" [nil] 1] "Specify foreground color list.\n\nThis list is used to chose a text foreground color which is different from the\nbackground color. It'll be used the first foreground color in `ps-fg-list'\nwhich is different from the background color.\n\nIf this list is nil, the default foreground color is used. See\n`ps-default-fg'.\n\nThe list element valid values are:\n\n NUMBER It's a real value between 0.0 (black) and 1.0 (white) that\n indicate the gray color.\n\n COLOR-NAME It's a string which contains the color name. For example:\n \"yellow\".\n\n LIST It's a list of RGB values, that is a list of three real values\n of the form:\n\n (RED GREEN BLUE)\n\n Where RED, GREEN and BLUE are reals between 0.0 (no color) and\n 1.0 (full color).\n\nAny other value is ignored and black color will be used.\n\nThis variable is used only when `ps-fg-validate-p' (which see) is non-nil and\nwhen `ps-print-color-p' (which see) is neither nil nor black-white." (repeat (choice :menu-tag "Foreground Gray/Color" :tag "Foreground Gray/Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) "22" ps-fg-validate-p #[0 "\300\207" [t] 1] "Non-nil means validate if foreground color is different than background.\n\nIf text foreground and background colors are equals, no text will appear.\n\nSee also `ps-fg-list'." ps-auto-font-detect #[0 "\300\207" [t] 1] "Non-nil means automatically detect bold/italic/underline face attributes.\nIf nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces', and\n`ps-underlined-faces'." ps-black-white-faces #[0 "\300\207" [((font-lock-builtin-face "black" nil bold) (font-lock-comment-face "gray20" nil italic) (font-lock-constant-face "black" nil bold) (font-lock-function-name-face "black" nil bold) (font-lock-keyword-face "black" nil bold) (font-lock-string-face "black" nil italic) (font-lock-type-face "black" nil italic) (font-lock-variable-name-face "black" nil bold italic) (font-lock-warning-face "black" nil bold italic))] 1] "Specify list of face attributes to print colors on black/white printers.\n\nThe list elements are the same as defined on `ps-extend-face' (which see).\n\nThis variable is used only when `ps-print-color-p' is set to `black-white'." (repeat (list :tag "Face Specification" (face :tag "Face Symbol") (choice :menu-tag "Foreground Color" :tag "Foreground Color" (const :tag "Black" nil) (string :tag "Color Name")) (choice :menu-tag "Background Color" :tag "Background Color" (const :tag "None" nil) (string :tag "Color Name")) (repeat :inline t (choice :menu-tag "Attribute" (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline))))) ps-bold-faces #[0 "?\205 \301\207" [ps-print-color-p (font-lock-function-name-face font-lock-builtin-face font-lock-variable-name-face font-lock-keyword-face font-lock-warning-face)] 1] "A list of the (non-bold) faces that should be printed in bold font.\nThis applies to generating PostScript." (repeat face) ps-italic-faces #[0 "?\205 \301\207" [ps-print-color-p (font-lock-variable-name-face font-lock-type-face font-lock-string-face font-lock-comment-face font-lock-warning-face)] 1] "A list of the (non-italic) faces that should be printed in italic font.\nThis applies to generating PostScript." (repeat face) ps-underlined-faces #[0 "?\205 \301\207" [ps-print-color-p (font-lock-function-name-face font-lock-constant-face font-lock-warning-face)] 1] "A list of the (non-underlined) faces that should be printed underlined.\nThis applies to generating PostScript." (repeat face) ps-use-face-background #[0 "\300\207" [nil] 1] "Specify if face background should be used.\n\nValid values are:\n\n t always use face background color.\n nil never use face background color.\n (face...) list of faces whose background color will be used.\n\nAny other value will be treated as t." (choice :menu-tag "Use Face Background" :tag "Use Face Background" (const :tag "Always Use Face Background" t) (const :tag "Never Use Face Background" nil) (repeat :menu-tag "Face Background List" :tag "Face Background List" face)) ps-left-header #[0 "\300\301D\207" [ps-get-buffer-name ps-header-dirpart] 2] "The items to display (each on a line) on the left part of the page header.\nThis applies to generating PostScript.\n\nThe value should be a list of strings and symbols, each representing an entry\nin the PostScript array HeaderLinesLeft.\n\nStrings are inserted unchanged into the array; those representing\nPostScript string literals should be delimited with PostScript string\ndelimiters `(' and `)'.\n\nFor symbols with bound functions, the function is called and should return a\nstring to be inserted into the array. For symbols with bound values, the value\nshould be a string to be inserted into the array. In either case, function or\nvariable, the string value has PostScript string delimiters added to it.\n\nIf symbols are unbounded, they are silently ignored." (repeat (choice :menu-tag "Left Header" :tag "Left Header" string symbol)) ps-right-header #[0 "\300\301\302E\207" ["/pagenumberstring load" ps-time-stamp-locale-default ps-time-stamp-hh:mm:ss] 3] "The items to display (each on a line) on the right part of the page header.\nThis applies to generating PostScript.\n\nSee the variable `ps-left-header' for a description of the format of this\nvariable.\n\nThere are the following basic functions implemented:\n\n `ps-time-stamp-locale-default' Return the locale's \"preferred\" date\n as, for example, \"06/18/01\".\n\n `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".\n\n `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".\n\n `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO\n date).\n\n `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.\n\nYou can also create your own time stamp function by using `format-time-string'\n(which see)." (repeat (choice :menu-tag "Right Header" :tag "Right Header" string symbol)) ps-left-footer #[0 "\300\301D\207" [ps-get-buffer-name ps-header-dirpart] 2] "The items to display (each on a line) on the left part of the page footer.\nThis applies to generating PostScript.\n\nThe value should be a list of strings and symbols, each representing an entry\nin the PostScript array FooterLinesLeft.\n\nStrings are inserted unchanged into the array; those representing PostScript\nstring literals should be delimited with PostScript string delimiters `(' and\n`)'.\n\nFor symbols with bound functions, the function is called and should return a\nstring to be inserted into the array. For symbols with bound values, the value\nshould be a string to be inserted into the array. In either case, function or\nvariable, the string value has PostScript string delimiters added to it.\n\nIf symbols are unbounded, they are silently ignored." (repeat (choice :menu-tag "Left Footer" :tag "Left Footer" string symbol)) ps-right-footer #[0 "\300\301\302E\207" ["/pagenumberstring load" ps-time-stamp-locale-default ps-time-stamp-hh:mm:ss] 3] "The items to display (each on a line) on the right part of the page footer.\nThis applies to generating PostScript.\n\nSee the variable `ps-left-footer' for a description of the format of this\nvariable.\n\nThere are the following basic functions implemented:\n\n `ps-time-stamp-locale-default' Return the locale's \"preferred\" date\n as, for example, \"06/18/01\".\n\n `ps-time-stamp-hh:mm:ss' Return time as \"17:28:31\".\n\n `ps-time-stamp-mon-dd-yyyy' Return date as \"Jun 18 2001\".\n\n `ps-time-stamp-yyyy-mm-dd' Return date as \"2001-06-18\" (ISO\n date).\n\n `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'.\n\nYou can also create your own time stamp function by using `format-time-string'\n(which see)." (repeat (choice :menu-tag "Right Footer" :tag "Right Footer" string symbol)) ps-razzle-dazzle #[0 "\300\207" [t] 1] "Non-nil means report progress while formatting buffer." ps-adobe-tag #[0 "\300\207" [#4="%!PS-Adobe-3.0\n"] 1 #4#] "Contains the header line identifying the output as PostScript.\nBy default, `ps-adobe-tag' contains the standard identifier. Some printers\nrequire slightly different versions of this line." ps-build-face-reference #[0 "\300\207" [t] 1] "Non-nil means build the reference face lists.\n\nps-print sets this value to nil after it builds its internal reference lists of\nbold and italic faces. By setting its value back to t, you can force ps-print\nto rebuild the lists the next time you invoke one of the ...-with-faces\ncommands.\n\nYou should set this value back to t after you change the attributes of any\nface, or create new faces. Most users shouldn't have to worry about its\nsetting, though." ps-always-build-face-reference #[0 "\300\207" [nil] 1] "Non-nil means always rebuild the reference face lists.\n\nIf this variable is non-nil, ps-print will rebuild its internal reference lists\nof bold and italic faces *every* time one of the ...-with-faces commands is\ncalled. Most users shouldn't need to set this variable." ps-banner-page-when-duplexing #[0 "\300\207" [nil] 1] "Non-nil means the very first page is skipped.\nIt's like the very first character of buffer (or region) is ^L (\\014)." ps-postscript-code-directory #[0 "\207" [data-directory] 1] "Directory where it's located the PostScript prologue file used by ps-print.\nBy default, this directory is the same as in the variable `data-directory'." directory ps-line-spacing #[0 "\300\207" [0] 1] "Specify line spacing, in points, for ordinary text.\n\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE).\n\nSee also `ps-paragraph-spacing' and `ps-paragraph-regexp'.\n\nTo get all lines with some spacing set both `ps-line-spacing' and\n`ps-paragraph-spacing' variables." (choice :menu-tag "Line Spacing For Ordinary Text" :tag "Line Spacing For Ordinary Text" (number :tag "Line Spacing") (cons :tag "Landscape/Portrait" (number :tag "Landscape Line Spacing") (number :tag "Portrait Line Spacing"))) ps-paragraph-spacing #[0 "\300\207" [0] 1] "Specify paragraph spacing, in points, for ordinary text.\n\nEither a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE).\n\nSee also `ps-line-spacing' and `ps-paragraph-regexp'.\n\nTo get all lines with some spacing set both `ps-line-spacing' and\n`ps-paragraph-spacing' variables." (choice :menu-tag "Paragraph Spacing For Ordinary Text" :tag "Paragraph Spacing For Ordinary Text" (number :tag "Paragraph Spacing") (cons :tag "Landscape/Portrait" (number :tag "Landscape Paragraph Spacing") (number :tag "Portrait Paragraph Spacing"))) ps-paragraph-regexp #[0 "\300\207" [#5="[ ]*$"] 1 #5#] "Specify paragraph delimiter.\n\nIt should be a regexp or nil.\n\nSee also `ps-paragraph-spacing'." (choice :menu-tag "Paragraph Delimiter" (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp")) ps-begin-cut-regexp #[0 "\300\207" [nil] 1] "Specify regexp which is start of a region to cut out when printing.\n\nAs an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may be\nset to \"^Local Variables:\" and \"^End:\", respectively, in order to leave out\nsome special printing instructions from the actual print. Special printing\ninstructions may be appended to the end of the file just like any other\nbuffer-local variables. See section \"Local Variables in Files\" on Emacs\nmanual for more information.\n\nVariables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what\nactually gets printed. Both variables may be set to nil in which case no\ncutting occurs." (choice (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp")) ps-end-cut-regexp #[0 "\300\207" [nil] 1] "Specify regexp which is end of the region to cut out when printing.\n\nSee `ps-begin-cut-regexp' for more information." (choice (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp"))] 14)
#@35 Latest `ps-selected-pages' value.
(defvar ps-last-selected-pages nil (#$ . 65061))
#@43 Restore latest `ps-selected-pages' value.
(defalias 'ps-restore-selected-pages #[0 "\211\207" [ps-last-selected-pages ps-selected-pages] 2 (#$ . 65150) nil])
#@34 Customization of ps-print group.
(defalias 'ps-print-customize #[0 "\300\301!\207" [customize-group ps-print] 2 (#$ . 65316) nil])
#@466 Generate and print a PostScript image of the buffer.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the PostScript image in that file instead of
sending it to the printer.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
send the image to the printer. If FILENAME is a string, save the PostScript
image in a file with that name.
(fn &optional FILENAME)
(defalias 'ps-print-buffer #[256 "\300ed#\207" [ps-print-without-faces] 5 (#$ . 65454) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@281 Generate and print a PostScript image of the buffer.
Like `ps-print-buffer', but includes font, color, and underline information in
the generated image. This command works only if you are using a window system,
so it has a way to determine color values.
(fn &optional FILENAME)
(defalias 'ps-print-buffer-with-faces #[256 "\300ed#\207" [ps-print-with-faces] 5 (#$ . 66083) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@147 Generate and print a PostScript image of the region.
Like `ps-print-buffer', but prints just the current region.
(fn FROM TO &optional FILENAME)
(defalias 'ps-print-region #[770 "\300\301$\207" [ps-print-without-faces t] 8 (#$ . 66535) (ps-print-preprint-region current-prefix-arg)])
#@289 Generate and print a PostScript image of the region.
Like `ps-print-region', but includes font, color, and underline information in
the generated image. This command works only if you are using a window system,
so it has a way to determine color values.
(fn FROM TO &optional FILENAME)
(defalias 'ps-print-region-with-faces #[770 "\300\301$\207" [ps-print-with-faces t] 8 (#$ . 66830) (ps-print-preprint-region current-prefix-arg)])
#@243 Generate and spool a PostScript image of the buffer.
Like `ps-print-buffer' except that the PostScript image is saved in a local
buffer to be sent to the printer later.
Use the command `ps-despool' to send the spooled images to the printer.
(defalias 'ps-spool-buffer #[0 "\300ed\"\207" [ps-spool-without-faces] 3 (#$ . 67275) nil])
#@341 Generate and spool a PostScript image of the buffer.
Like the command `ps-spool-buffer', but includes font, color, and underline
information in the generated image. This command works only if you are using
a window system, so it has a way to determine color values.
Use the command `ps-despool' to send the spooled images to the printer.
(defalias 'ps-spool-buffer-with-faces #[0 "\300ed\"\207" [ps-spool-with-faces] 3 (#$ . 67616) nil])
#@209 Generate a PostScript image of the region and spool locally.
Like `ps-spool-buffer', but spools just the current region.
Use the command `ps-despool' to send the spooled images to the printer.
(fn FROM TO)
(defalias 'ps-spool-region #[514 "\300\301#\207" [ps-spool-without-faces t] 6 (#$ . 68063) "r"])
#@351 Generate a PostScript image of the region and spool locally.
Like `ps-spool-region', but includes font, color, and underline information in
the generated image. This command works only if you are using a window system,
so it has a way to determine color values.
Use the command `ps-despool' to send the spooled images to the printer.
(fn FROM TO)
(defalias 'ps-spool-region-with-faces #[514 "\300\301#\207" [ps-spool-with-faces t] 6 (#$ . 68377) "r"])
#@465 Send the spooled PostScript to the printer.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of sending it to the printer.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
send the image to the printer. If FILENAME is a string, save the PostScript
image in a file with that name.
(fn &optional FILENAME)
(defalias 'ps-despool #[256 "\300!\207" [ps-do-despool] 3 (#$ . 68841) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@186 Display the correspondence between a line length and a font size.
Done using the current ps-print setup.
Try: pr -t file | awk \='{printf "%3d %s
", length($0), $0}\=' | sort -r | head
(defalias 'ps-line-lengths #[0 "\300 \207" [ps-line-lengths-internal] 1 (#$ . 69453) nil])
#@137 Display number of pages to print this buffer, for various font heights.
The table depends on the current ps-print setup.
(fn NB-LINES)
(defalias 'ps-nb-pages-buffer #[257 "\300!\207" [ps-nb-pages] 3 (#$ . 69736) (byte-code "\300ed\"\207" [ps-count-lines-preprint] 3)])
#@136 Display number of pages to print the region, for various font heights.
The table depends on the current ps-print setup.
(fn NB-LINES)
(defalias 'ps-nb-pages-region #[257 "\300!\207" [ps-nb-pages] 3 (#$ . 70014) (byte-code "\300\301 `\"\207" [ps-count-lines-preprint mark] 3)])
#@40 Used for `ps-print-quote' (which see).
(defvar ps-prefix-quote nil (#$ . 70299))
#@49 Return the current PostScript-generation setup.
(defalias 'ps-setup #[0 "\304\305\306\307 \310Q\311\312\313\n\"\312\314 \"\304\315\316\317\320\321\322\323\324\304\325\326\327\330\331\304\332\333\334\335\336\337\340\304\341\342\343\344\345\304\346\304\347\304\350\304\351\304\352\353\354\355\356\304\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \304\201K \201L \201M \201N \304\201O \201P \201Q \201R \201S \201T \201U \201V \201W \201X \201Y \201Z \201[ \201\\ \201] \201^ \304\201_ \201` \201a \304\201b \201c \304\201d \201e \201f \201g \201h \201i \257p\310#)\207" [ps-prefix-quote ps-print-version emacs-version lpr-windows-system nil mapconcat ps-print-quote "\n;;; (Emacs) ps-print version " "\n" ";; internal vars" ps-comment-string "emacs-version " "lpr-windows-system" (25 . ps-print-color-p) (25 . ps-lpr-command) (25 . ps-lpr-switches) (25 . ps-printer-name) (25 . ps-printer-name-option) (25 . ps-print-region-function) (25 . ps-manual-feed) (25 . ps-end-with-control-d) (23 . ps-paper-type) (23 . ps-warn-paper-type) (23 . ps-landscape-mode) (23 . ps-print-upside-down) (23 . ps-number-of-columns) (23 . ps-zebra-stripes) (23 . ps-zebra-stripe-height) (23 . ps-zebra-stripe-follow) (23 . ps-zebra-color) (23 . ps-line-number) (23 . ps-line-number-step) (23 . ps-line-number-start) (17 . ps-razzle-dazzle) (17 . ps-default-bg) (17 . ps-default-fg) (17 . ps-fg-validate-p) (17 . ps-fg-list) (23 . ps-use-face-background) (28 . ps-print-control-characters) (26 . ps-print-background-image) (25 . ps-print-background-text) (29 . ps-error-handler-message) (29 . ps-user-defined-prologue) (29 . ps-print-prologue-header) (29 . ps-postscript-code-directory) (29 . ps-adobe-tag) (30 . ps-left-margin) (30 . ps-right-margin) (30 . ps-inter-column) (30 . ps-bottom-margin) (30 . ps-top-margin) (30 . ps-print-only-one-header) (30 . ps-switch-header) (30 . ps-print-header) (30 . ps-header-lines) (30 . ps-header-offset) (30 . ps-header-line-pad) (30 . ps-print-header-frame) (30 . ps-header-frame-alist) (30 . ps-print-footer) (30 . ps-footer-lines) (30 . ps-footer-offset) (30 . ps-footer-line-pad) (30 . ps-print-footer-frame) (30 . ps-footer-frame-alist) (30 . ps-show-n-of-n) (30 . ps-spool-config) (30 . ps-spool-duplex) (30 . ps-spool-tumble) (30 . ps-banner-page-when-duplexing) (30 . ps-left-header) (30 . ps-right-header) (30 . ps-left-footer) (30 . ps-right-footer) (23 . ps-n-up-printing) (23 . ps-n-up-margin) (23 . ps-n-up-border-p) (23 . ps-n-up-filling) (26 . ps-multibyte-buffer) (26 . ps-font-family) (26 . ps-font-size) (26 . ps-header-font-family) (26 . ps-header-font-size) (26 . ps-header-title-font-size) (26 . ps-footer-font-family) (26 . ps-footer-font-size) (26 . ps-line-number-color) (26 . ps-line-number-font) (26 . ps-line-number-font-size) (26 . ps-line-spacing) (26 . ps-paragraph-spacing) (26 . ps-paragraph-regexp) (26 . ps-begin-cut-regexp) (26 . ps-end-cut-regexp) (23 . ps-even-or-odd-pages) (23 . ps-selected-pages) (23 . ps-last-selected-pages) (31 . ps-build-face-reference) (31 . ps-always-build-face-reference) (20 . ps-auto-font-detect) (20 . ps-bold-faces) (20 . ps-italic-faces) (20 . ps-underlined-faces) (20 . ps-black-white-faces) " )\n\n;; The following customized variables have long lists and are seldom modified:\n;; ps-page-dimensions-database\n;; ps-font-info-database\n\n;;; ps-print - end of settings\n"] 114 (#$ . 70386)])
#@711 Quote ELT for printing (used for showing settings).
If ELT is nil, return an empty string.
If ELT is string, return it.
Otherwise, ELT should be a cons (LEN . SYM) where SYM is a variable symbol and
LEN is the field length where SYM name will be inserted. The variable
`ps-prefix-quote' is used to form the string, if `ps-prefix-quote' is nil, it's
used "(setq " as prefix; otherwise, it's used " ". So, the string
generated is:
* If `ps-prefix-quote' is nil:
"(setq SYM-NAME SYM-VALUE"
|<------->|
LEN
* If `ps-prefix-quote' is non-nil:
" SYM-NAME SYM-VALUE"
|<------->|
LEN
If `ps-prefix-quote' is nil, it's set to t after generating string.
(fn ELT)
(defalias 'ps-print-quote #[257 "\211;\203 \207\211:\203L \211@\250\203L \211A9\203L \301A!\203L \211@A\302!\211GJ\2031 \303\2024 \304\305V\203F \306Z\307\"\202G \310\311!R\207\312\207" [ps-prefix-quote boundp symbol-name " " t "(setq " make-string 32 " " ps-value-string ""] 11 (#$ . 73879)])
#@77 Return a string representation of VAL. Used by `ps-print-quote'.
(fn VAL)
(defalias 'ps-value-string #[257 "\211\204 \300\207\211\301=\203 \302\207\2119\204 \211<\203 \303\304\"\207\303\305\"\207" ["nil" t "t" format "'%S" "%S"] 4 (#$ . 74909)])
#@64 Return a comment string like ";; STR = VALUE".
(fn STR VALUE)
(defalias 'ps-comment-string #[514 "\300\301\302!#\207" [format ";; %s = %s" ps-value-string] 7 (#$ . 75169)])
#@92 Return value from association list ALIST-SYM which car is `eq' to KEY.
(fn ALIST-SYM KEY)
(defalias 'ps-value #[514 "\211J\236A\207" [] 4 (#$ . 75351)])
#@94 Return element from association list ALIST-SYM which car is `eq' to KEY.
(fn ALIST-SYM KEY)
(defalias 'ps-get #[514 "\211J\236\207" [] 4 (#$ . 75512)])
(make-obsolete 'ps-get 'alist-get "25.1")
#@196 Store element (KEY . VALUE) into association list ALIST-SYM.
If KEY already exists in ALIST-SYM, modify cdr to VALUE.
It can be retrieved with `(ps-get ALIST-SYM KEY)'.
(fn ALIST-SYM KEY VALUE)
(defalias 'ps-put #[771 "J\236\211\203 \211\241\210\202 B\262JBL\210\211\207" [] 7 (#$ . 75715)])
(make-obsolete 'ps-put "use (setf (alist-get ..) ..) instead" "25.1")
#@88 Delete by side effect element KEY from association list ALIST-SYM.
(fn ALIST-SYM KEY)
(defalias 'ps-del #[514 "J\300\2030 @@=\203& \211\203 \211A\241\210\202 AL\210\300\262\202 \262A\262\202 \266J\207" [nil] 6 (#$ . 76095)])
(make-obsolete 'ps-del "use (setf (alist-get k alist nil t) nil) instead" "25.1")
#@67 Return the locale's "preferred" date as, for example, "06/18/01".
(defalias 'ps-time-stamp-locale-default #[0 "\300\301!\207" [format-time-string "%x"] 2 (#$ . 76427)])
#@31 Return date as "Jun 18 2001".
(defalias 'ps-time-stamp-mon-dd-yyyy #[0 "\300\301!\207" [format-time-string "%b %d %Y"] 2 (#$ . 76602)])
#@41 Return date as "2001-06-18" (ISO date).
(defalias 'ps-time-stamp-yyyy-mm-dd #[0 "\300\301!\207" [format-time-string "%Y-%m-%d"] 2 (#$ . 76744)])
(defalias 'ps-time-stamp-iso8601 'ps-time-stamp-yyyy-mm-dd)
#@28 Return time as "17:28:31".
(defalias 'ps-time-stamp-hh:mm:ss #[0 "\300\301!\207" [format-time-string "%T"] 2 (#$ . 76955)])
(defvar ps-print-color-scale 1.0)
#@14
(fn COLOR)
(defalias 'ps-color-scale #[257 "\300\301\302!\"\207" [mapcar #[257 "\211\245\207" [ps-print-color-scale] 3 "\n\n(fn VALUE)"] ps-color-values] 5 (#$ . 77119)])
#@13
(fn FACE)
(defalias 'ps-face-underlined-p #[257 "\301!\206 \211>\207" [ps-underlined-faces face-underline-p] 3 (#$ . 77300)])
#@261 If prologue FILENUMBER exists and is readable, return contents as string.
Note: No major/minor-mode is activated and no local variables are evaluated for
FILENUMBER, but proper EOL-conversion and character interpretation is
done!
(fn FILENUMBER)
(defalias 'ps-prologue-file #[257 "\301\302\303\304\"\"!\305!\2034 \306!\2034 \307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320!\210\321 *\262\2028 \322\323\"\207" [ps-postscript-code-directory convert-standard-filename expand-file-name format "ps-prin%d.ps" file-exists-p file-readable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string error "ps-print PostScript prologue `%s' file was not found"] 9 (#$ . 77438)])
(defvar ps-mark-code-directory nil)
#@36 ps-print PostScript error handler.
(defvar ps-print-prologue-0 "" (#$ . 78282))
#@31 ps-print PostScript prologue.
(defvar ps-print-prologue-1 "" (#$ . 78368))
(defvar ps-source-buffer nil)
(defvar ps-spool-buffer-name "*PostScript*")
(defvar ps-spool-buffer nil)
(defvar ps-output-head nil)
(defvar ps-output-tail nil)
(defvar ps-page-postscript 0)
(defvar ps-page-order 0)
(defvar ps-page-sheet 0)
(defvar ps-page-column 0)
(defvar ps-page-printed 0)
(defvar ps-page-n-up 0)
(defvar ps-lines-printed 0)
(defvar ps-showline-count 1)
(defvar ps-first-page nil)
(defvar ps-last-page nil)
(defvar ps-print-page-p t)
(defvar ps-control-or-escape-regexp nil)
(defvar ps-n-up-on nil)
(defvar ps-background-pages nil)
(defvar ps-background-all-pages nil)
(defvar ps-background-text-count 0)
(defvar ps-background-image-count 0)
(defvar ps-current-font 0)
(defvar ps-default-foreground nil)
(defvar ps-default-background nil)
(defvar ps-default-color nil)
(defvar ps-current-color nil)
(defvar ps-current-bg nil)
(defvar ps-foreground-list nil)
(defvar ps-zebra-stripe-full-p nil)
(defvar ps-razchunk 0)
(defvar ps-color-p nil)
#@110 Vertical and horizontal space between the header frame and the text.
This is in units of points (1/72 inch).
(defvar ps-header-pad 0 (#$ . 79411))
#@110 Vertical and horizontal space between the footer frame and the text.
This is in units of points (1/72 inch).
(defvar ps-footer-pad 0 (#$ . 79565))
#@13
(fn DIMS)
(defalias 'ps-page-dimensions-get-width '(macro . #[257 "\300\301E\207" [nth 0] 4 (#$ . 79718)]))
#@13
(fn DIMS)
(defalias 'ps-page-dimensions-get-height '(macro . #[257 "\300\301E\207" [nth 1] 4 (#$ . 79835)]))
#@13
(fn DIMS)
(defalias 'ps-page-dimensions-get-media '(macro . #[257 "\300\301E\207" [nth 2] 4 (#$ . 79953)]))
(defvar ps-landscape-page-height nil)
(defvar ps-print-width nil)
(defvar ps-print-height nil)
(defvar ps-height-remaining nil)
(defvar ps-width-remaining nil)
(defvar ps-font-size-internal nil)
(defvar ps-header-font-size-internal nil)
(defvar ps-header-title-font-size-internal nil)
(defvar ps-footer-font-size-internal nil)
(defvar ps-line-spacing-internal nil)
(defvar ps-paragraph-spacing-internal nil)
#@362 Alist of symbolic faces used for black/white PostScript printers.
An element of this list has the same form as `ps-print-face-extension-alist'
(which see).
Don't change this list directly; instead,
use `ps-extend-face' and `ps-extend-face-list'.
See documentation for `ps-extend-face' for valid extension symbol.
See also documentation for `ps-print-color-p'.
(defvar ps-black-white-faces-alist nil (#$ . 80479))
#@573 Alist of symbolic faces *WITH* extension features (box, outline, etc).
An element of this list has the following form:
(FACE . [BITS FG BG])
FACE is a symbol denoting a face name
BITS is a bit vector, where each bit correspond
to a feature (bold, underline, etc)
(see documentation for `ps-print-face-map-alist')
FG foreground color (string or nil)
BG background color (string or nil)
Don't change this list directly; instead,
use `ps-extend-face' and `ps-extend-face-list'.
See documentation for `ps-extend-face' for valid extension symbol.
(defvar ps-print-face-extension-alist nil (#$ . 80900))
#@296 Alist of symbolic faces *WITHOUT* extension features (box, outline, etc).
An element of this list has the same form as an element of
`ps-print-face-extension-alist'.
Don't change this list directly; this list is used by `ps-face-attributes',
`ps-map-face' and `ps-build-reference-face-lists'.
(defvar ps-print-face-alist nil (#$ . 81535))
#@106 Alist of all features and the corresponding bit mask.
Each symbol correspond to one bit in a bit vector.
(defconst ps-print-face-map-alist '((bold . 1) (italic . 2) (underline . 4) (strikeout . 8) (overline . 16) (shadow . 32) (box . 64) (outline . 128)) (#$ . 81883))
#@443 Extend face in ALIST-SYM.
If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged
with face extension in ALIST-SYM; otherwise, overrides.
If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
otherwise, it should be an alist symbol.
The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'.
See `ps-extend-face' for documentation.
(fn FACE-EXTENSION-LIST &optional MERGE-P ALIST-SYM)
(defalias 'ps-extend-face-list #[769 "\205 \300@#\210A\262\202 \207" [ps-extend-face] 7 (#$ . 82159)])
#@1038 Extend face in ALIST-SYM.
If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged
with face extensions in ALIST-SYM; otherwise, overrides.
If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used;
otherwise, it should be an alist symbol.
The elements of FACE-EXTENSION list have the form:
(FACE-NAME FOREGROUND BACKGROUND EXTENSION...)
FACE-NAME is a face name symbol.
FOREGROUND and BACKGROUND may be nil or a string that denotes the
foreground and background colors respectively.
EXTENSION is one of the following symbols:
bold - use bold font.
italic - use italic font.
underline - put a line under text.
strikeout - like underline, but the line is in middle of text.
overline - like underline, but the line is over the text.
shadow - text will have a shadow.
box - text will be surrounded by a box.
outline - print characters as hollow outlines.
If EXTENSION is any other symbol, it is ignored.
(fn FACE-EXTENSION &optional MERGE-P ALIST-SYM)
(defalias 'ps-extend-face #[769 "\211\204 \300\262\3018A@@\211J\236A\211\206 \302\303\304\211#\305!\303 \2031 \306\303H\"\2022 I\210\203B \203H ;\203H \307I\210\203V \203\\ ;\203\\ \301I\210\206j BJBL\207" [ps-print-face-extension-alist 2 vector 0 nil ps-extension-bit logior 1] 14 (#$ . 82720)])
#@23
(fn FACE-EXTENSION)
(defalias 'ps-extension-bit #[257 "\301AA\262A\211\262\203 \302@\236A\206 \301\"\262\202 \211\207" [ps-print-face-map-alist 0 logior] 6 (#$ . 84095)])
(defalias 'ps-message-log-max #[0 "\301 \302\230?\205 \303\300!\205 \207" [message-log-max buffer-name "*Messages*" boundp] 2])
(defvar ps-print-hook nil)
(defvar ps-print-begin-sheet-hook nil)
(defvar ps-print-begin-page-hook nil)
(defvar ps-print-begin-column-hook nil)
#@44
(fn FROM TO &optional FILENAME REGION-P)
(defalias 'ps-print-without-faces #[1026 "\300#\210\301!\207" [ps-spool-without-faces ps-do-despool] 8 (#$ . 84560)])
#@35
(fn FROM TO &optional REGION-P)
(defalias 'ps-spool-without-faces #[770 "\301 \302\303!\210\304#\210\305p\306$)\207" [message-log-max ps-message-log-max run-hooks ps-print-hook ps-printing-region ps-generate ps-generate-postscript] 8 (#$ . 84731)])
#@44
(fn FROM TO &optional FILENAME REGION-P)
(defalias 'ps-print-with-faces #[1026 "\300#\210\301!\207" [ps-spool-with-faces ps-do-despool] 8 (#$ . 84994)])
#@35
(fn FROM TO &optional REGION-P)
(defalias 'ps-spool-with-faces #[770 "\301 \302\303!\210\304#\210\305p\306$)\207" [message-log-max ps-message-log-max run-hooks ps-print-hook ps-printing-region ps-generate ps-generate-postscript-with-faces] 8 (#$ . 85159)])
#@16
(fn FROM TO)
(defalias 'ps-count-lines-preprint #[514 "\203 \211\204\f \301\302!\210\303 \304\")C\207" [message-log-max error "The mark is not set now" ps-message-log-max count-lines] 5 (#$ . 85430)])
#@16
(fn FROM TO)
(defalias 'ps-count-lines #[514 "\300\"\212b\210i\301U\203 \302\202 \301)\\\207" [count-lines 0 1] 5 (#$ . 85644)])
#@386 Variable used to indicate the region that ps-print is printing.
It is a cons, the car of which is the line number where the region begins, and
its cdr is the total number of lines in the buffer. Formatting functions can
use this information to print the original line number (and not the number of
lines printed), and to indicate in the header that the printout is of a partial
file.
(defvar ps-printing-region nil (#$ . 85787))
#@46 Non-nil means ps-print is printing a region.
(defvar ps-printing-region-p nil (#$ . 86223))
#@25
(fn REGION-P FROM TO)
(defalias 'ps-printing-region #[771 "\203 \302e^\"\202 \303\302ed\"B\211\207" [ps-printing-region-p ps-printing-region ps-count-lines 1] 7 (#$ . 86321)])
#@17
(fn FONT-SYM)
(defalias 'ps-font-alist #[257 "\211\300N\207" [fonts] 3 (#$ . 86513)])
(put 'ps-font-alist 'byte-optimizer 'byte-compile-inline-expand)
#@96 Font family name for text of `font-type', when generating PostScript.
(fn FONT-SYM FONT-TYPE)
(defalias 'ps-font #[514 "\211\300N\262\301\236A\203 @@=\204 A\262\202\n @A\206$ \211\207" [fonts normal] 6 (#$ . 86672)])
#@17
(fn FONT-SYM)
(defalias 'ps-fonts #[257 "\300\301\211\302N\262\"\207" [mapcar cdr fonts] 6 (#$ . 86907)])
(put 'ps-fonts 'byte-optimizer 'byte-compile-inline-expand)
#@27
(fn FONT-SYM FONT-TYPE)
(defalias 'ps-font-number #[514 "\300\211\301N\262\"\206
\302\207" [ps-alist-position fonts 0] 7 (#$ . 87083)])
(put 'ps-font-number 'byte-optimizer 'byte-compile-inline-expand)
#@302 The height of a line, for generating PostScript.
This is the value that ps-print uses to determine the height,
y-dimension, of the lines of text it has printed, and thus affects the
point at which page-breaks are placed.
The line-height is *not* the same as the point size of the font.
(fn FONT-SYM)
(defalias 'ps-line-height #[257 "\211\300N\207" [line-height] 3 (#$ . 87298)])
(put 'ps-line-height 'byte-optimizer 'byte-compile-inline-expand)
#@316 The height of a `title' line, for generating PostScript.
This is the value that ps-print uses to determine the height,
y-dimension, of the lines of text it has printed, and thus affects the
point at which page-breaks are placed.
The title-line-height is *not* the same as the point size of the font.
(fn FONT-SYM)
(defalias 'ps-title-line-height #[257 "\211\300N\207" [title-line-height] 3 (#$ . 87751)])
(put 'ps-title-line-height 'byte-optimizer 'byte-compile-inline-expand)
#@123 The width of a space character, for generating PostScript.
This value is used in expanding tab characters.
(fn FONT-SYM)
(defalias 'ps-space-width #[257 "\211\300N\207" [space-width] 3 (#$ . 88236)])
(put 'ps-space-width 'byte-optimizer 'byte-compile-inline-expand)
#@252 The average width, in points, of a character, for generating PostScript.
This is the value that ps-print uses to determine the length,
x-dimension, of the text it has printed, and thus affects the point at
which long lines wrap around.
(fn FONT-SYM)
(defalias 'ps-avg-char-width #[257 "\211\300N\207" [avg-char-width] 3 (#$ . 88510)])
(put 'ps-avg-char-width 'byte-optimizer 'byte-compile-inline-expand)
#@186 Display the correspondence between a line length and a font size.
Done using the current ps-print setup.
Try: pr -t file | awk \='{printf "%3d %s
", length($0), $0}\=' | sort -r | head
(defalias 'ps-line-lengths-internal #[0 "\206 \305\306! \206 \305\307!\n\206 \305\310! \206 \305\311!\312\313!\314 \210\f\315\211\316N\262\317 \320\321\211\322\321\211\211\211\211\n _
\245\262\323\f \245!\262\n_
\245\262\323\f\245!\262\262
q\210db\210o\204v \324\325\326\327\"\324\261\210 \330\261\210\211X\203\242 \331!\245\262\f_ \245\262\332\333#c\210\211T\262\202| \324c\210\334\335\",\207" [ps-font-size-internal ps-header-font-size-internal ps-footer-font-size-internal ps-header-title-font-size-internal ps-print-width ps-get-font-size ps-font-size ps-header-font-size ps-footer-font-size ps-header-title-font-size get-buffer-create "*Line-lengths*" ps-get-page-dimensions ps-font-for-text avg-char-width ps-setup 5 nil 14 floor "\n" make-string 75 59 "\nnb char per line / font size\n" float format "%16d %s\n" display-buffer not-this-window] 18 (#$ . 88922)])
#@179 Display correspondence between font size and the number of pages.
The correspondence is based on having NB-LINES lines of text,
and on the current ps-print setup.
(fn NB-LINES)
(defalias 'ps-nb-pages #[257 "\206 \306\307! \206 \306\310!\n\206 \306\311! \206 \306\312!\f\206( \313
\314\" \315\316!\f\317 \210#\320\211\321N\262\322 \323\324\211\211\325\324\211\211\211\211\211\211
\\\f_Z\245\262 \326\f\245!\262\n\327\330! \245!\262
\\_Z\245\262\326\245!\262\327\330!\245!\262\262q\210db\210o\204\247 \331\332\333\334\"\331\261\210\f\335\336\"\337\261\210\211X\203\340 \327\330!\245!\262\245\262_\245\262\335\340#c\210\211T\262\202\262 \331c\210\341\342\"-\207" [ps-font-size-internal ps-header-font-size-internal ps-footer-font-size-internal ps-header-title-font-size-internal ps-line-spacing-internal ps-line-spacing ps-get-font-size ps-font-size ps-header-font-size ps-footer-font-size ps-header-title-font-size ps-get-size "line spacing" get-buffer-create "*Nb-Pages*" ps-get-page-dimensions ps-font-for-text line-height ps-setup 4 nil 14 floor ceiling float "\n" make-string 75 59 format "\nThere are %d lines.\n\n" "nb page / font size\n" "%7d %s\n" display-buffer not-this-window ps-print-height] 23 (#$ . 90033)])
#@12
(fn KEY)
(defalias 'ps-lookup '(macro . #[257 "\300\301\302BBD\207" [cdr assq (font-entry)] 5 (#$ . 91340)]))
#@12
(fn KEY)
(defalias 'ps-size-scale '(macro . #[257 "\300\301\302D\303BB\304BB\207" [/ * ps-lookup (font-size) (size)] 5 (#$ . 91459)]))
#@50
(fn FONT-FAMILY SYM FONT-SIZE TITLE-FONT-SIZE)
(defalias 'ps-select-font #[1028 "\236A\211\204 \301\302\303\304\"#\210\305\236A\306\307\211\236A#\210\306\310\211\236A_\245#\210\306\311\211\236A_\245#\210\306\312\211\236A_\245#\210\306\313\312\236A_\245#\262\207" [ps-font-info-database error "Don't have data to scale font %s. Known fonts families are %s" mapcar car size put fonts space-width avg-char-width line-height title-line-height] 11 (#$ . 91603)])
(defalias 'ps-get-page-dimensions #[0 " \236A\306\211\204 \307\310\311\312 \"\"\210\202 \n\313W\203 \307\314\n\"\210\315 \316\f\211$\210\315
\317 $\210\315 \320 \211$\210@\262A@\262 \203M \211\262\262\211!\321\"#\nS$_$\n\245\211%\322X\203u \307\323\"#$\n%&\210\321&'#\211(\322X\203\216 \307\324'&($\210)\203\273 *\317\211\325N\262_+\321(,+\317\211\325N\262\317\211\326N\262-S_+&((\322X\203\347 \307\327'&,+\330+\317\211\325N\262\317\211\326N\262-S_+$(&\210.\203
/\320\211\325N\262_0\321(10\320\211\326N\2622S_0%((\322X\2033\307\331'&10\3300\320\211\326N\2622S_0#(&\2103\205j\316\211\326N\262\2114\\5_\332(\"_Z\211(\322X\205h\307\33365\316\211\326N\2624(&\266\202\207" [ps-paper-type ps-page-dimensions-database ps-number-of-columns ps-font-family ps-font-size-internal ps-header-font-family nil error "`ps-paper-type' must be one of:\n%s" mapcar car 1 "The number of columns %d should be positive" ps-select-font ps-font-for-text ps-font-for-header ps-font-for-footer - 0 "Bad horizontal layout:\npage-width == %s\nps-left-margin == %s\nps-right-margin == %s\nps-inter-column == %s\nps-number-of-columns == %s\n| lm | text | ic | text | ic | text | rm |\npage-width == lm + n * print-width + (n - 1) * ic + rm\n=> print-width == %d !" "Bad vertical layout:\nps-top-margin == %s\nps-bottom-margin == %s\npage-height == bm + print-height + tm\n=> print-height == %d !" title-line-height line-height "Bad vertical layout (header):\nps-top-margin == %s\nps-bottom-margin == %s\nps-header-offset == %s\nps-header-pad == %s\nheader-height == %s\npage-height == bm + print-height + tm - ho - hh\n=> print-height == %d !" + "Bad vertical layout (footer):\nps-top-margin == %s\nps-bottom-margin == %s\nps-footer-offset == %s\nps-footer-pad == %s\nfooter-height == %s\npage-height == bm + print-height + tm - fo - fh\n=> print-height == %d !" floor "Bad vertical layout (full zebra stripe follow):\nps-zebra-stripe-follow == %s\nps-zebra-stripe-height == %s\nfont-text-height == %s\nline-spacing == %s\npage-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th\n=> print-height == %d !" ps-header-font-size-internal ps-header-title-font-size-internal ps-footer-font-family ps-footer-font-size-internal ps-landscape-mode ps-landscape-page-height ps-left-margin ps-right-margin ps-inter-column ps-print-width ps-bottom-margin ps-top-margin ps-print-height ps-print-header ps-header-line-pad ps-header-pad ps-header-offset ps-header-lines ps-print-footer ps-footer-line-pad ps-footer-pad ps-footer-offset ps-footer-lines ps-zebra-stripe-full-p ps-line-spacing-internal ps-zebra-stripe-height ps-zebra-stripe-follow] 16])
#@15
(fn PREFIX)
(defalias 'ps-print-preprint-region #[257 "\300 \204 \301\302!\210`\303 \304!E\207" [ps-mark-active-p error "The mark is not set now" mark ps-print-preprint] 5 (#$ . 94901)])
#@15
(fn PREFIX)
(defalias 'ps-print-preprint #[257 "\211\205\200 \211\247\204 \211<\205\200 \301\302 \206 \303 !\304P\305\306\"\307\310$\311!\2033 \312 \210\313\211\262\202W \314!\204C \312 \210\315\211\262\202W \316!\203V \317\262\320\321\322\"!?\202W \310\203n \307\305\323\"\324!\310\211\301!%\262\202# \311!\203} \325\326!\"\202~ \211\266\203\207" [default-directory file-name-nondirectory buffer-file-name buffer-name ".ps" format "Save PostScript to file (default %s): " read-file-name nil file-directory-p ding "It's a directory" file-writable-p "File is unwritable" file-exists-p "File exists" y-or-n-p format-message "File `%s' exists; overwrite? " "%s; save PostScript to file: " file-name-directory expand-file-name file-name-as-directory] 11 (#$ . 95098)])
#@66 Vector used to map characters to PostScript string escape codes.
(defvar ps-string-escape-codes (byte-code "\300\301\302\"\303\211\304X\203 \305\306\"I\210\211T\262\202 \211\307W\203/ \305\310\"I\210\211T\262\202 \211\311X\203D \305\312\"I\210\211T\262\202/ \313\314I\210\315\316I\210\317\320I\210\321\322I\210\323\324I\210\325\326I\210\327\330I\210\331\332I\210\207" [make-vector 256 nil 0 31 format "\\%03o" 127 "%c" 255 "\\%o" 10 "\\n" 13 "\\r" 9 "\\t" 8 "\\b" 12 "\\f" 92 "\\\\" 40 "\\(" 41 "\\)"] 7) (#$ . 95892))
#@15
(fn STRING)
(defalias 'ps-output-string-prim #[257 "\301c\210\212\302!\203 \303\304\"\202 \211c\210)\305\306w\210m\204> g\307\310!\210\311X\2034 \211\312X\2034 H\2028 \313\314\"c\266\202 db\210\315c\207" [ps-string-escape-codes "(" multibyte-string-p encode-coding-string utf-8 " -'*-[]-~" nil delete-char 1 0 255 format "\\%04X" ")"] 5 (#$ . 96441)])
(put 'ps-output-string-prim 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-init-output-queue #[0 "\302C\211\211\207" [ps-output-head ps-output-tail ""] 3])
(put 'ps-init-output-queue 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-selected-pages #[0 "@@@AA\211\205 \n W\205 \202 \207" [ps-selected-pages ps-first-page ps-last-page ps-page-postscript] 3])
(defalias 'ps-print-page-p #[0 "\203' \nX\203 X\202$ \203# \303 \210 X\205@ \nX\202$ \306\205@ \f\307\267\202? \310 \311\"\312U\202@ \310 \311\"\311U\202@ \313\211\207" [ps-first-page ps-page-postscript ps-last-page ps-selected-pages ps-even-or-odd-pages ps-print-page-p nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (even-page 45 odd-page 54)) logand 1 0 t] 3])
(put 'ps-print-page-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-print-sheet-p #[0 "\303\267\202 \304 \305\"\306U\202 \304 \305\"\305U\202 \307\211\207" [ps-even-or-odd-pages ps-page-sheet ps-print-page-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (even-sheet 6 odd-sheet 15)) logand 1 0 t] 3])
(put 'ps-print-sheet-p 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn &rest ARGS)
(defalias 'ps-output #[128 "\205 \241\210 A\205 A\211\202 \207" [ps-print-page-p ps-output-tail] 4 (#$ . 98041)])
#@15
(fn STRING)
(defalias 'ps-output-string #[257 "\300\301\"\207" [ps-output t] 4 (#$ . 98187)])
#@13
(fn ARGS)
(defalias 'ps-output-prologue #[257 "\300\301;\203\f C\202
\"\207" [ps-output prologue] 4 (#$ . 98290)])
(defalias 'ps-flush-output #[0 "rq\210db\210 \203\200 @\211\304\267\202u A\211@\305c\210\212\306!\203) \307\310\"\202* \211c\210)\311\312w\210m\204V g\313\314!\210\315X\203L \211\316X\203L \nH\202P \317\320\"c\266\202- db\210\321c\266\202x A\212\322\323!\210\314u\210\324\325 @\"\210)\202x \211c\210\210 A\211\204 )\326C\211\211\207" [ps-spool-buffer ps-output-head ps-string-escape-codes ps-output-tail #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 19 prologue 96)) "(" multibyte-string-p encode-coding-string utf-8 " -'*-[]-~" nil delete-char 1 0 255 format "\\%04X" ")" search-backward "\nBeginDoc" apply insert ""] 7])
#@14
(fn FNAME)
(defalias 'ps-insert-file #[257 "\301 \210rq\210db\210\302!)\207" [ps-spool-buffer ps-flush-output insert-file-contents] 3 (#$ . 99099)])
(defvar ps-encode-header-string-function nil)
#@34
(fn FONTTAG &optional CONTENT)
(defalias 'ps-generate-header-line #[513 "\301\302\303#\210\211;\2031 \304!\203* \"\211\203& \211@\301!\210A\266\202\202 \210\202\226 \301!\210\202\226 \304!\203_ \304!\203W \"\211\203S \211@\305!\210A\266\202\202B \210\202\226 \305 !\210\202\226 \2119\203\222 \306!\203\222 \307!\203\212 J\"\211\203\206 \211@\305!\210A\266\202\202u \210\202\226 \305J!\210\202\226 \305\310!\210\301\311!\207" [ps-encode-header-string-function ps-output " [" " " functionp ps-output-string boundp fboundp "" "]\n"] 6 (#$ . 99304)])
#@40
(fn NAME FONTTAG0 FONTTAG1 CONTENTS)
(defalias 'ps-generate-header #[1028 "\301\302\303#\210\211\2033 \304V\2033 \305\306@\"\210\211W\2032 A\211\262\2032 \306@\"\210\211T\262\202 \210\301\307!\207" [ps-header-lines ps-output "/" "[\n" 0 1 ps-generate-header-line "]def\n"] 8 (#$ . 99885)])
#@18
(fn NAME BOOL)
(defalias 'ps-output-boolean #[514 "\300\301\302\203\f \303\202
\304#!\207" [ps-output format "/%s %s def\n" "true" "false"] 7 (#$ . 100194)])
#@19
(fn NAME ALIST)
(defalias 'ps-output-frame-properties #[514 "\300\301\302\303\304\236A\305\"\303\306\236A\307\"\310\311\236A\206 \312!\303\313 \236A\314\"\303\315\n\236A\316\"\317& \207" [ps-output "/" " [" ps-format-color fore-color 0.0 back-color 0.9 ps-float-format border-width 0.4 border-color 0.0 shadow-color 0.0 "]def\n"] 13 (#$ . 100363)])
#@23
(fn PAGE-LIST FUNC)
(defalias 'ps-background-pages #[514 "\203 \301\302\303\304\305\306!\307\"\310\311%\"\207\211B\211\207" [ps-background-all-pages mapcar make-byte-code 257 "\211:\203\n \211@\202 \211:\203 A\202 \250\205< \211\250\205< X\205< \302\300#\211 \235\2035 \202: \211 B\211\262\207" vconcat vector [ps-background-pages vector] 7 "\n\n(fn PAGES)"] 9 (#$ . 100730)])
(defconst ps-boundingbox-re "^%%BoundingBox:\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)")
(defalias 'ps-get-boundingbox #[0 "rq\210\212\302 \303\304#\203. \305\306\307\224\307\225{!\306\310\224\310\225{!\306\311\224\311\225{!\306\312\224\312\225{!$\2024 \305\313\211\211\211$*\207" [ps-spool-buffer ps-boundingbox-re re-search-forward nil t vector string-to-number 1 2 3 4 0] 7])
#@32
(fn VALUE &optional DEFAULT)
(defalias 'ps-float-format #[513 "\206 \211\211\204
\301\202 \211\247\203 \302\303_\"\202 \302\304\"\207" [ps-float-format " " format 1.0 "%s "] 7 (#$ . 101546)])
(defalias 'ps-background-text #[0 "\301\302\"\207" [ps-print-background-text mapcar #[257 "T\301\302\303\"!\210\304@!\210\301\305\306\3078\310\"\302\311\3128\206! \313\"\306\3148\315\"\306\3168\317\"\306A@\320\"\306\321 8\320\"\322&\210\323\324\233\302\325\"\"\207" [ps-background-text-count ps-output format "/ShowBackText-%d{\n" ps-output-string "\n" ps-float-format 4 200.0 "/%s " 3 "Times-Roman" 6 "PrintHeight PrintPageWidth atan" 5 0.85 "0" 2 "\nShowBackText}def\n" ps-background-pages 7 "ShowBackText-%d\n"] 11 "\n\n(fn TEXT)"]] 3])
(defalias 'ps-background-image #[0 "\301\302\"\207" [ps-print-background-image mapcar #[257 "\302@!\303!\205\203 T\304\305\306\"\307\3108\311\"\307\3128\313\"\307\3148\315\"\307A@\316\"\307\317 8\320\"\321&\210\322!\210\323 r q\210\212\324\325\326\327#\203t \330\305\331\307\317H\332HZ\333\245\332H\\[!\307\312H\334HZ\335\245\334H\\[!#\327\"\210*\210\304\336!\210\337\340\233\305\341\"\"\207" [ps-background-image-count ps-spool-buffer expand-file-name file-readable-p ps-output format "/ShowBackImage-%d{\n--back-- " ps-float-format 5 0.0 3 1.0 4 1.0 "PrintPageWidth 2 div" 2 "PrintHeight 2 div BottomMargin add" "\nBeginBackImage\n" ps-insert-file ps-get-boundingbox re-search-backward "^--back--" nil t replace-match "%s %s" 0 2.0 1 2.0 "\nEndBackImage}def\n" ps-background-pages 6 "ShowBackImage-%d\n"] 11 "\n\n(fn IMAGE)"]] 3])
#@20
(fn PAGE-NUMBER)
(defalias 'ps-background #[257 "\301C\302\303\304\305\306\307\"\310\"\311\312%\"\210\211\242\205 \313\314!\207" [ps-background-pages nil mapc make-byte-code 257 "\211\302H\300X\205% \300\303HX\205% \301\242\203 \304\305H!\207\301\306\240\210\304\307\305H\"\207" vconcat vector [0 1 ps-output 2 t "/printLocalBackground{\n"] 5 "\n\n(fn RANGE)" ps-output "}def\n"] 10 (#$ . 103172)])
#@13
(fn LIST)
(defalias 'ps-remove-duplicates #[257 "\300\211\203 \211@\235\204 \211@B\262\211A\262\202 \237\207" [nil] 5 (#$ . 103589)])
#@18
(fn ITEM LIST)
(defalias 'ps-alist-position #[514 "\211\300\301\203# @@=\211\262\203 \301\262\202 T\262A\262\202 \211\205( \207" [0 nil] 7 (#$ . 103740)])
#@675 Alist which is the page matrix database used for N-up printing.
Each element has the following form:
(PAGE
(MAX LANDSCAPE LINES COLUMNS COL-MISSING)
...)
Where:
PAGE is the page size used (see `ps-paper-type').
MAX is the maximum elements of this page matrix.
LANDSCAPE specifies if page matrix is landscaped, has the following valid
values:
nil the sheet is in portrait mode.
t the sheet is in landscape mode.
pag the sheet is in portrait mode and page is in landscape mode.
LINES is the number of lines of page matrix.
COLUMNS is the number of columns of page matrix.
COL-MISSING is the number of columns missing to fill the sheet.
(defconst ps-n-up-database '((a4 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 t 3 4 2) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (a3 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (letter (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 5 8 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (legal (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 nil 3 2 1) (9 nil 3 3 0) (10 t 2 5 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (70 t 5 14 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (letter-small (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 t 3 4 1) (15 t 3 5 0) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (28 t 4 7 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 5 8 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 6 10 0) (64 nil 8 8 0) (72 ni 9 8 1) (81 nil 9 9 0) (84 t 7 12 0) (90 nil 10 9 1) (100 nil 10 10 0)) (tabloid (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 t 6 14 0) (90 nil 10 9 1) (100 nil 10 10 0)) (ledger (1 nil 1 1 0) (2 pag 1 2 0) (4 nil 2 2 0) (6 pag 2 3 1) (8 pag 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 pag 6 14 0) (90 nil 10 9 1) (100 nil 10 10 0)) (statement (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 nil 3 2 1) (9 nil 3 3 0) (10 t 2 5 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (21 t 3 7 0) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 4 10 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 5 12 0) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (executive (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (28 t 4 7 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (45 t 5 9 0) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 6 10 0) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 t 7 12 0) (90 nil 10 9 1) (100 nil 10 10 0)) (a4small (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (78 t 6 13 0) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (b4 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (b5 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 0) (81 nil 9 9 0) (90 nil 10 9 1) (98 t 7 14 0) (100 nil 10 10 0))) (#$ . 103917))
#@12
(fn MAT)
(defalias 'ps-n-up-landscape '(macro . #[257 "\300\301E\207" [nth 1] 4 (#$ . 108669)]))
#@12
(fn MAT)
(defalias 'ps-n-up-lines '(macro . #[257 "\300\301E\207" [nth 2] 4 (#$ . 108775)]))
#@12
(fn MAT)
(defalias 'ps-n-up-columns '(macro . #[257 "\300\301E\207" [nth 3] 4 (#$ . 108877)]))
#@12
(fn MAT)
(defalias 'ps-n-up-missing '(macro . #[257 "\300\301E\207" [nth 4] 4 (#$ . 108981)]))
(defalias 'ps-n-up-printing #[0 "\303^\304] \n\236A\211\203 @@V\203 \211A\262\202 \211@\206# \305\207" [ps-n-up-printing ps-paper-type ps-n-up-database 100 1 (1 nil 1 1 0)] 3])
#@546 Alist for n-up printing initializations.
Each element has the following form:
(KIND XCOL YCOL XLIN YLIN REPEAT END XSTART YSTART)
Where:
KIND is a valid value of the variable `ps-n-up-filling'.
XCOL YCOL are the relative position for the next column.
XLIN YLIN are the relative position for the beginning of next line.
REPEAT is the number of repetitions for external loop.
END is the number of repetitions for internal loop and also the number
of pages in a row.
XSTART YSTART are the relative position for the first page in a sheet.
(defconst ps-n-up-filling-database '((left-top "PageWidth" "0" "N-Up-End 1 sub PageWidth mul neg" "LandscapePageHeight neg" "N-Up-Lines" "N-Up-Columns" "0" "0") (left-bottom "PageWidth" "0" "N-Up-End 1 sub PageWidth mul neg" "LandscapePageHeight" "N-Up-Lines" "N-Up-Columns" "0" "N-Up-Repeat 1 sub LandscapePageHeight mul neg") (right-top "PageWidth neg" "0" "N-Up-End 1 sub PageWidth mul" "LandscapePageHeight neg" "N-Up-Lines" "N-Up-Columns" "N-Up-End 1 sub PageWidth mul" "0") (right-bottom "PageWidth neg" "0" "N-Up-End 1 sub PageWidth mul" "LandscapePageHeight" "N-Up-Lines" "N-Up-Columns" "N-Up-End 1 sub PageWidth mul" "N-Up-Repeat 1 sub LandscapePageHeight mul neg") (top-left "0" "LandscapePageHeight neg" "PageWidth" "N-Up-End 1 sub LandscapePageHeight mul" "N-Up-Columns" "N-Up-Lines" "0" "0") (bottom-left "0" "LandscapePageHeight" "PageWidth" "N-Up-End 1 sub LandscapePageHeight mul neg" "N-Up-Columns" "N-Up-Lines" "0" "N-Up-End 1 sub LandscapePageHeight mul neg") (top-right "0" "LandscapePageHeight neg" "PageWidth neg" "N-Up-End 1 sub LandscapePageHeight mul" "N-Up-Columns" "N-Up-Lines" "N-Up-Repeat 1 sub PageWidth mul" "0") (bottom-right "0" "LandscapePageHeight" "PageWidth neg" "N-Up-End 1 sub LandscapePageHeight mul neg" "N-Up-Columns" "N-Up-Lines" "N-Up-Repeat 1 sub PageWidth mul" "N-Up-End 1 sub LandscapePageHeight mul neg")) (#$ . 109271))
(defalias 'ps-n-up-filling #[0 " \236\206 \302 \236A\207" [ps-n-up-filling ps-n-up-filling-database left-top] 2])
#@13
(fn INIT)
(defalias 'ps-n-up-xcolumn '(macro . #[257 "\300\301E\207" [nth 0] 4 (#$ . 111307)]))
#@13
(fn INIT)
(defalias 'ps-n-up-ycolumn '(macro . #[257 "\300\301E\207" [nth 1] 4 (#$ . 111412)]))
#@13
(fn INIT)
(defalias 'ps-n-up-xline '(macro . #[257 "\300\301E\207" [nth 2] 4 (#$ . 111517)]))
#@13
(fn INIT)
(defalias 'ps-n-up-yline '(macro . #[257 "\300\301E\207" [nth 3] 4 (#$ . 111620)]))
#@13
(fn INIT)
(defalias 'ps-n-up-repeat '(macro . #[257 "\300\301E\207" [nth 4] 4 (#$ . 111723)]))
#@13
(fn INIT)
(defalias 'ps-n-up-end '(macro . #[257 "\300\301E\207" [nth 5] 4 (#$ . 111827)]))
#@13
(fn INIT)
(defalias 'ps-n-up-xstart '(macro . #[257 "\300\301E\207" [nth 6] 4 (#$ . 111928)]))
#@13
(fn INIT)
(defalias 'ps-n-up-ystart '(macro . #[257 "\300\301E\207" [nth 7] 4 (#$ . 112032)]))
#@34 Alist for error handler message.
(defconst ps-error-handler-alist '((none . 0) (paper . 1) (system . 2) (paper-and-system . 3)) (#$ . 112136))
#@38 Alist for zebra stripe continuation.
(defconst ps-zebra-stripe-alist '((follow . 1) (full . 2) (full-follow . 3)) (#$ . 112285))
(defalias 'ps-begin-file #[0 "\306\211\306\211\307\211@A\236AB\203 C?\202 C\310 \311 D\203, ?\262\312E\313\314 \315F\316\317 \320\321\322!\323B\203F \324\202G \325\326\327\330\331\332\333\334\335\211\336N\262\"\262\337\340\341\"\337\340\342\"\337\343\341\"\337\343\342\"F\"!\344#\345\346 \347\350\3518\352\353\354@!\"\352\353\354A@!\"\355G\203\232 \203\226 \356\202\233 \357\202\233 \360&\210\361H!\210\312\362\3518\363\364\352\365\366IJ\"A\206\270 \367\"K\370\346 \371& \210\361L!\210\312\372!\210\373\374B\206\327 A@\375=\"\210\373\376M\"\210\312\352\377N\"\352\201 O\"\352\201\200 PQ\\N_QZ\"\352\201\201 P\"\352\201\202 R\"\352\201\203 S\"\352\201\204 T\"\352\201\205 Q\"\352\201\206 U\"\352\201\207 V\"\352\201\210 W\"\352\201\211 X\"\352\201\212 Y\"\352\201\213 Z\"\352\201\214 [\"&\210\373\201\215 \\\"\210\373\201\216 ]\201\217 =\203mG\202o]\"\210\373\201\220 ^\"\210\373\201\221 _\"\210\373\201\222 `\"\210\201\223 \201\224 a\"\210\373\201\225 b\"\210\373\201\226 c\"\210\201\223 \201\227 d\"\210\333\211\201\230 N\262\312\352\201\231 e\"\352\201\232 f\"\352\201\233 \"\352\201\234 e\\\354R\201\235 _\\\245!\262\"$\266\373\201\236 g\"\210\373\201\237 h\"\210\373\201\240 i\"\210\373\201\241 j\250?\"\210\312\352\201\242 kl\236A\206\306\"\352\201\243 j\250\203&j\202(m\"\352\201\244 n\"\201\245 \201\246 o\201\247 \"\352\201\250 m\"\201\251 \201\246 p\201\252 \"\201\253 & \210\312\201\254 \201\246 q\201\255 \"\201\253 #\210\312\201\256 r\201\257 =\203z\201\260 \202}\201\261 \201\262 \201\263 \352\201\264 \"%\210\373\201\265 A@\201\266 =\"\210\373\201\267 s\"\210\312\352\201\270 \3518\"\352\201\271 \201\272 8\"\352\201\273 \201\274 8\"\352\201\275 t\"\201\276 B\203\330\201\277 8\202\336\201\274 8\201\300 B\203\357\201\274 8\202\365\201\277 8\201\301 \n@\201\302 \fA@\201\303 \3518\201\304 \201\272 8\201\305 \201\306 8\201\307 \201\310 8\201\311 &\210\201\312 \210\201\313 \210
\237\f\237\312\360u\201\314 #\210\201\315 \312
\"\210\312\201\316 \201\317 \201\320 \201\321 \201\322 \327\330\331\332\333\334\335\211\336N\262\"\262\337\340\341\"\337\340\342\"\337\343\341\"\337\343\342\"F\"!\201\322 #\352\201\323 v\337\340\342\"#\352\201\324 w\337\340\341\"#\352\201\325 \201\326 \201\327 !x#\352\201\330 y\337\343\341\"#\201\331 & \210\333\211\336N\262\306\203\336\312\352\201\332 z\337\333@@\"$!\210A\262\211T\262\202\275\266{|\236A\312\352\201\333 \201\334 \236A\201\335 \236A\245\"!\266r\201\336 =\204B\312\201\337 \201\340 G!\201\341 \201\340 !\201\342 \201\343 G!\201\344 \201\343 !\201\345 \201\343 G!\201\346 \201\343 !\201\347 &
\210\266\312\201\350 \201\340 }!\201\351 \201\343 }!\201\352 %\210~\205f\312\201\353 !\207" [ps-page-order ps-page-printed ps-background-text-count ps-background-image-count ps-background-pages ps-background-all-pages 0 nil ps-n-up-printing ps-n-up-filling ps-output "%%Title: " buffer-name "\n%%Creator: ps-print v" "\n%%For: " user-full-name "\n%%CreationDate: " format-time-string "%T %b %d %Y" "\n%%Orientation: " "Landscape" "Portrait" "\n%%DocumentNeededResources: font Times-Roman Times-Italic\n%%+ font " mapconcat identity ps-remove-duplicates append ps-font-for-text mapcar cdr fonts ps-font ps-font-for-header normal bold ps-font-for-footer "\n%%+ font " "\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" user-login-name " 0 0" "\n%%DocumentMedia: " 2 format " %d" round " 0 () ()\n%%PageOrder: Ascend\n%%Pages: (atend)\n%%Requirements:" " duplex(tumble)\n" " duplex\n" "\n" ps-insert-string "%%EndComments\n%%BeginDefaults\n%%PageMedia: " "\n%%EndDefaults\n\n%%BeginProlog\n\n" "/languagelevel where{pop}{/languagelevel 1 def}ifelse\n" "/ErrorMessage %s def\n\n" assoc 1 "\n%%BeginResource: procset PSPrintUserDefinedPrologue-" " 0 0\n\n" "\n%%EndResource\n\n" ps-output-boolean "LandscapeMode " pag "UpsideDown " "/NumberOfColumns %d def\n" ps-paper-type ps-page-dimensions-database ps-landscape-mode ps-spool-tumble ps-n-up-on ps-adobe-tag ps-print-version ps-spool-duplex ps-print-prologue-header ps-error-handler-message ps-error-handler-alist ps-print-prologue-0 ps-user-defined-prologue ps-print-upside-down ps-number-of-columns ps-landscape-page-height ps-print-width ps-inter-column ps-print-height ps-left-margin ps-right-margin ps-bottom-margin ps-top-margin ps-header-offset ps-header-pad ps-footer-offset ps-footer-pad ps-footer-lines ps-show-n-of-n ps-switch-header ps-print-only-one-header ps-print-header ps-print-header-frame ps-header-frame-alist ps-print-footer ps-print-footer-frame ps-footer-frame-alist ps-line-spacing-internal ps-paragraph-spacing-internal ps-warn-paper-type ps-zebra-stripes ps-line-number ps-line-number-step ps-zebra-stripe-follow ps-zebra-stripe-alist ps-zebra-stripe-height ps-line-number-start ps-line-number-color ps-zebra-color ps-default-background ps-spool-config ps-n-up-border-p ps-n-up-margin ps-print-prologue-1 ps-header-title-font-size-internal ps-header-font-size-internal ps-line-number-font ps-footer-font-size-internal ps-font-size-internal ps-font-family ps-font-info-database ps-manual-feed ps-banner-page-when-duplexing "/LandscapePageHeight %s def\n" "/PrintPageWidth %s def\n" "/PrintWidth %s def\n" "/PrintHeight %s def\n" "/LeftMargin %s def\n" "/RightMargin %s def\n" "/InterColumn %s def\n" "/BottomMargin %s def\n" "/TopMargin %s def\n" "/HeaderOffset %s def\n" "/HeaderPad %s def\n" "/FooterOffset %s def\n" "/FooterPad %s def\n" "/FooterLines %s def\n" "ShowNofN " "SwitchHeader " duplex "PrintOnlyOneHeader" "PrintHeader " "PrintHeaderFrame " ps-output-frame-properties "HeaderFrameProperties" "PrintFooter " "PrintFooterFrame " "FooterFrameProperties" line-height "/LineSpacing %s def\n" "/ParagraphSpacing %s def\n" "/LineHeight %s def\n" "/LinesPerColumn %d def\n" 0.45 "WarnPaperSize " "Zebra " "PrintLineNumber " "SyncLineZebra " "/ZebraFollow %d def\n" "/PrintLineStep %d def\n" "/PrintLineStart %d def\n" "/LineNumberColor " ps-format-color 0.0 "def\n/ZebraHeight %d def\n" "/ZebraColor " 0.95 "def\n" "/BackgroundColor " 1.0 "/UseSetpagedevice " setpagedevice "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse" "false" " def\n\n/PageWidth " "PrintPageWidth LeftMargin add RightMargin add def\n\n" "/N-Up %d def\n" "N-Up-Landscape" t "N-Up-Border " "/N-Up-Lines %d def\n" "/N-Up-Columns %d def\n" 3 "/N-Up-Missing %d def\n" 4 "/N-Up-Margin %s def\n" "/N-Up-Repeat " 5 " def\n/N-Up-End " " def\n/N-Up-XColumn " " def\n/N-Up-YColumn " " def\n/N-Up-XLine " " def\n/N-Up-YLine " " def\n/N-Up-XStart " 6 " def\n/N-Up-YStart " 7 " def\n" ps-background-text ps-background-image "\n/printGlobalBackground{\n" mapc "}def\n/printLocalBackground{\n}def\n" "\n%%EndProlog\n\n%%BeginSetup\n" "\n%%IncludeResource: font Times-Roman" "\n%%IncludeResource: font Times-Italic" "\n%%IncludeResource: font " "\n/h0 %s(%s)cvn DefFont\n" "/h1 %s(%s)cvn DefFont\n" "/L0 %s(%s)cvn DefFont\n" ps-get-font-size ps-line-number-font-size "/H0 %s(%s)cvn DefFont\n" "\n\n% ---- These lines must be kept together because...\n\n/h0 F\n/HeaderTitleLineHeight FontHeight def\n\n/h1 F\n/HeaderLineHeight FontHeight def\n/HeaderDescent Descent def\n\n/H0 F\n/FooterLineHeight FontHeight def\n/FooterDescent Descent def\n\n% ---- ...because `F' has a side-effect on `FontHeight' and `Descent'\n\n" "/f%d %s(%s)cvn DefFont\n" "/SpaceWidthRatio %f def\n" space-width size lpr-switches "\n%%BeginFeature: *Duplex " ps-boolean-capitalized " *Tumble " "\nUseSetpagedevice\n{BMark/Duplex " ps-boolean-constant "/Tumble " " EMark setpagedevice}\n{statusdict begin " " setduplexmode " " settumble end}ifelse\n%%EndFeature\n" "\n%%BeginFeature: *ManualFeed " "\nBMark /ManualFeed " " EMark setpagedevice\n%%EndFeature\n\nBeginDoc\n%%EndSetup\n" "\n%%Page: banner 0\nsave showpage restore\n"] 29])
#@32
(fn COLOR &optional DEFAULT)
(defalias 'ps-format-color #[513 ";\203 \301!\202\f \211\203- \211<\203- \302\303@\304_A@\305_\3068\307_$\310Q\2029 \311\247\2037 \2028 !\207" [ps-color-format ps-color-scale "[" format 1.0 1.0 2 1.0 "] " ps-float-format] 10 (#$ . 120502)])
#@17
(fn PROLOGUE)
(defalias 'ps-insert-string #[257 "\300!\203 \211 \202\f \211\211;\205 \301!\207" [functionp ps-output] 4 (#$ . 120792)])
#@13
(fn BOOL)
(defalias 'ps-boolean-capitalized #[257 "\211\203 \300\207\301\207" ["True" "False"] 2 (#$ . 120940)])
#@13
(fn BOOL)
(defalias 'ps-boolean-constant #[257 "\211\203 \300\207\301\207" ["true" "false"] 2 (#$ . 121062)])
(defalias 'ps-header-dirpart #[0 "\300 \211\203 \301 \302!\230\203 \303\304!!\202 \211\202 \305\207" [buffer-file-name buffer-name file-name-nondirectory abbreviate-file-name file-name-directory ""] 4])
(defalias 'ps-get-buffer-name #[0 "\301 \302\230\203 \303\207\301 \304\230\203 \305\207\205 \306\301 \307 \205 \310Q\207" [ps-printing-region-p buffer-name "ps-print.el" "Hey, Cool! It's ps-print.el!!!" "sokoban.el" "Super! C'est sokoban.el!" "Subset of: " buffer-modified-p " (unsaved)"] 3])
#@32
(fn SIZE MESS &optional ARG)
(defalias 'ps-get-size #[770 "\247\203 \202) :\203( @\247\203( A\247\203( \203# @\202) A\202) \301\211\302W\203C \303\304\203@ \305\306\"\202A \307$\210\211\207" [ps-landscape-mode -1 0 error "Invalid %s `%S'%s" format-message " for `%S'" ""] 11 (#$ . 121689)])
#@17
(fn FONT-SYM)
(defalias 'ps-get-font-size #[257 "\300J\301#\207" [ps-get-size "font size"] 5 (#$ . 122003)])
#@34
(fn COLOR UNSPECIFIED DEFAULT)
(defalias 'ps-rgb-color #[771 "\203? <\203? G\300U\203? \301\302\2037 \2037 @\262A\262\303!\2052 \304X\2052 \211\305X\262\202 \266\203\203? \207\303!\203V \306X\203V \307X\203V \211\211E\207;\203e \230\204e \310!\207\211\211E\207" [3 t nil floatp 0.0 1.0 0.0 1.0 ps-color-scale] 8 (#$ . 122122)])
(defvar ps-basic-plot-string-function 'ps-basic-plot-string)
#@16
(fn GENFUNC)
(defalias 'ps-begin-job #[257 " \232\204 \306\307!\306\310! \311\211\f\203Z \f@\262\fA\211\250\2032 \211\307V\203 \211BB\262\202 \211:\203 \211@\250\203 \211A\250\203 \211@\307V\203 \211@AX\203 \211B\262\202 \312\313\"\211\311\211@A\266B<\204r \314BC\250\203\202 C\307X\203\202 \310CD\310VE\310FC\250\203\226 C\202\230 G^]FrHq\210db\210\315\316\311\314#\203\261 \307\224d|\210)I\317>J\307\211KL\307\211MN\307O\314PQ@R\320S\321\"T\320U\322\"V\323\324!W\323\325!X\323\326!Y\323\327!Z[\330\267\202\331\202\332\202\333\202\334\\]\205\335 \211^\203 \336\337\340!@!\202 \341_\342]\343>\204.\344=\2032\311\202H`\345\267\202F\346\311\347\"\202H\350\351!\202H`\352\353#a\342]\354>\204[\344=\203_\311\202ub\355\267\202s\346\311\356\"\202u\357\351!\202ub\360\361#c\362\363\364]\365>?\205\207dc\366D\"\"e]\367>?\205\231c\211fg\370h\311i\371\\!\203\257\372\373!\210\374 \210j<\204\274\375\376!\210^\205\314ac\232\205\314\375\377!\207" [ps-mark-code-directory ps-postscript-code-directory ps-print-prologue-0 ps-print-prologue-1 ps-selected-pages ps-last-selected-pages ps-prologue-file 0 1 nil sort #[514 "@@W\207" [] 4 "\n\n(fn ONE OTHER)"] t re-search-backward "^%%Trailer$" (full full-follow) ps-get-size "line spacing" "paragraph spacing" ps-get-font-size ps-font-size ps-header-font-size ps-header-title-font-size ps-footer-font-size #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (8-bit 248 control-8-bit 252 control 256)) "[ - -\377]" "[ - -\237]" "[ - ]" "[ \n\f]" ps-color-device float ps-color-values "white" 1.0 ps-rgb-color (nil black-white) ps-generate-postscript #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (frame-parameter 313 t 320)) ps-frame-parameter background-color ps-face-background-name default "unspecified-bg" 1.0 (nil black-white) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (frame-parameter 358 t 365)) foreground-color ps-face-foreground-name "unspecified-fg" 0.0 mapcar #[257 "\300\301\302#\207" [ps-rgb-color "unspecified-fg" 0.0] 5 "\n\n(fn ARG)"] append (nil black-white) "black" (nil black-white) ps-basic-plot-string multibyte-string-p cl--assertion-failed (not (multibyte-string-p ps-control-or-escape-regexp)) ps-get-page-dimensions error "`ps-lpr-switches' value should be a list" "`ps-default-fg' and `ps-default-bg' have the same color.\nText won't appear on page. Please, check these variables." ps-first-page ps-last-page ps-use-face-background ps-line-number-step ps-n-up-printing ps-n-up-on ps-line-number-start ps-zebra-stripe-height ps-spool-buffer ps-zebra-stripe-follow ps-zebra-stripe-full-p ps-page-postscript ps-page-sheet ps-page-n-up ps-page-column ps-lines-printed ps-print-page-p ps-printing-region ps-showline-count ps-line-spacing ps-line-spacing-internal ps-paragraph-spacing ps-paragraph-spacing-internal ps-font-size-internal ps-header-font-size-internal ps-header-title-font-size-internal ps-footer-font-size-internal ps-print-control-characters ps-control-or-escape-regexp ps-print-color-p ps-color-p ps-print-color-scale ps-default-bg ps-default-background ps-default-fg ps-default-foreground ps-fg-list ps-foreground-list ps-default-color ps-current-color ps-basic-plot-string-function ps-encode-header-string-function ps-lpr-switches] 8 (#$ . 122544)])
(defalias 'ps-page-number #[0 "\203\n S\n\245T\207 \207" [ps-print-only-one-header ps-page-column ps-number-of-columns] 2])
(defalias 'ps-end-page #[0 "\300\301!\207" [ps-output "EndPage\nEndDSCPage\n"] 2])
(put 'ps-end-page 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-next-page #[0 "\300\301!\210\302 \210\303 \207" [ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page] 2])
(put 'ps-next-page 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-end-sheet #[0 "\205
\302V\205
\303\304!\207" [ps-print-page-p ps-page-sheet 0 ps-output "EndSheet\n"] 2])
(defalias 'ps-header-sheet #[0 "\305 \210T\306 \205' T\307\n\203 \310\311 $\202! \310\312 #\313\310\314\f\"#\207" [ps-page-sheet ps-page-order ps-n-up-on ps-page-postscript ps-n-up-printing ps-end-sheet #[0 "\303\267\202 \304 \305\"\306U\202 \304 \305\"\305U\202 \307\211\207" [ps-even-or-odd-pages ps-page-sheet ps-print-page-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (even-sheet 6 odd-sheet 15)) logand 1 0 t] 3] ps-output format "\n%%%%Page: (%d \\(%d\\)) %d\n" "\n%%%%Page: %d %d\n" "/Lines 0 def\n/PageCount 0 def\n" "%d BeginSheet\nBeginDSCPage\n"] 6])
(defalias 'ps-header-page #[0 "\306 \"\307U\203B \nT\310 \203J \311 \210\306 \f\"\307U\203' \312 \210\313\314!\210\202/ \315\316!\210\313\317!\210\320\n!\210 T
\203J T\202J \315\316!\210\313\321!\210T\211\207" [ps-page-column ps-number-of-columns ps-page-postscript ps-page-n-up ps-n-up-printing ps-print-page-p mod 0 #[0 "\203' \nX\203 X\202$ \203# \303 \210 X\205@ \nX\202$ \306\205@ \f\307\267\202? \310 \311\"\312U\202@ \310 \311\"\311U\202@ \313\211\207" [ps-first-page ps-page-postscript ps-last-page ps-selected-pages ps-even-or-odd-pages ps-print-page-p nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (even-page 45 odd-page 54)) logand 1 0 t] 3] #[0 "\303\267\202 \304 \305\"\306U\202 \304 \305\"\305U\202 \307\211\207" [ps-even-or-odd-pages ps-page-sheet ps-print-page-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (even-sheet 6 odd-sheet 15)) logand 1 0 t] 3] ps-header-sheet run-hooks ps-print-begin-sheet-hook ps-output "BeginDSCPage\n" ps-print-begin-page-hook ps-background ps-print-begin-column-hook ps-page-printed] 3])
(defalias 'ps-begin-page #[0 "\n\306 \210\307\310\311\f\"\310\312\313 \"\"\210
\203/ \314\315\316\317$\210\314\320\316\317 $\210\307\310\321 \"!\210 \203L \314\322\323\211 $\210\314\324\323\211 $\210\307\310\325!\"!\210\307\326\"!\327\"\210\330#!\210\331$!\210\332%!\207" [ps-print-width ps-width-remaining ps-print-height ps-height-remaining ps-showline-count ps-print-header ps-header-page ps-output format "/LineNumber %d def\n" "/PageNumber %d def\n" ps-page-number ps-generate-header "HeaderLinesLeft" "/h0" "/h1" "HeaderLinesRight" "%d SetHeaderLines\n" "FooterLinesLeft" "/H0" "FooterLinesRight" "%d SetFooterLines\n" number-to-string " BeginPage\n" ps-set-font ps-set-bg ps-set-color ps-left-header ps-right-header ps-header-lines ps-print-footer ps-left-footer ps-right-footer ps-footer-lines ps-lines-printed ps-current-font ps-current-bg ps-current-color] 5])
#@14
(fn LIMIT)
(defalias 'ps-skip-newline #[257 "T T`W\205 \302u\207" [ps-showline-count ps-lines-printed 1] 3 (#$ . 129251)])
(put 'ps-skip-newline 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-next-line #[0 "T T\n\205
\306\n!\307\211\310N\262\203 \202 \f\\
W\203/ \311\312!\210\313 \210\314 \202B
Z\311\203@ \315\202A \316!\207" [ps-showline-count ps-lines-printed ps-paragraph-regexp ps-paragraph-spacing-internal ps-line-spacing-internal ps-height-remaining looking-at ps-font-for-text line-height ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page "PHL\n" "LHL\n" ps-print-width ps-width-remaining] 4])
(put 'ps-next-line 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ps-continue-line #[0 "T\305\211\306N\262 \\\nW\203 \307\310!\210\311 \210\312 \202& \nZ\307\313!\207" [ps-lines-printed ps-line-spacing-internal ps-height-remaining ps-print-width ps-width-remaining ps-font-for-text line-height ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page "SL\n"] 3])
#@27
(fn FROM TO CHAR-WIDTH)
(defalias 'ps-find-wrappoint #[771 "\301\245!Z\211W\203 _B\202 \\B\207" [ps-width-remaining truncate] 8 (#$ . 130300)])
#@23
(fn FROM TO STRING)
(defalias 'ps-basic-plot-str #[771 "\300\301\211\302N\262#\211@\303#\304!\210\305\306!\210\207" [ps-find-wrappoint ps-font-for-text avg-char-width substring ps-output-string ps-output " S\n"] 9 (#$ . 130465)])
#@35
(fn FROM TO &optional BG-COLOR)
(defalias 'ps-basic-plot-string #[770 "\300\301\211\302N\262#\211@\303\"\304!\210\305\306!\210\207" [ps-find-wrappoint ps-font-for-text avg-char-width buffer-substring-no-properties ps-output-string ps-output " S\n"] 9 (#$ . 130712)])
#@35
(fn FROM TO &optional BG-COLOR)
(defalias 'ps-basic-plot-whitespace #[770 "\300\301\211\302N\262#\211@\303\304\305Z\"!\210\207" [ps-find-wrappoint ps-font-for-text space-width ps-output format "%d W\n"] 10 (#$ . 130994)])
#@44
(fn PLOTFUNC FROM TO &optional BG-COLOR)
(defalias 'ps-plot #[1027 "W\203$ #\211@A\262ZW\203 \303 \210\266\202 \205K deZ`eZ\304\245\211\305^\nZV\205I \306\307\310\311_\"\"\266\204\207" [ps-width-remaining ps-razzle-dazzle ps-razchunk ps-continue-line 8 1000 message "Formatting...%3d%%" floor 100.0] 13 (#$ . 131231)])
(defvar ps-last-font nil)
#@13
(fn FONT)
(defalias 'ps-set-font #[257 "\302\303\211\"\304\302\305 \"!\207" [ps-current-font ps-last-font format "f%d" ps-output "/%s F\n"] 5 (#$ . 131611)])
#@14
(fn COLOR)
(defalias 'ps-set-bg #[257 "\211\211\203 \302\303 @A@\3048$\305\"\207\302\306!\207" [ps-current-bg ps-color-format ps-output format 2 " true BG\n" "false BG\n"] 8 (#$ . 131780)])
#@14
(fn COLOR)
(defalias 'ps-set-color #[257 "\211\206 \303\304\n @ A@\305 8$\306\"\207" [ps-default-foreground ps-current-color ps-color-format ps-output format 2 " FG\n"] 8 (#$ . 131984)])
#@15
(fn STRING)
(defalias 'ps-plot-string #[257 "\300\301\302G$\207" [ps-plot ps-basic-plot-str 0] 6 (#$ . 132182)])
(put 'ps-plot-string 'byte-optimizer 'byte-compile-inline-expand)
(defvar ps-current-effect 0)
#@156 Translation table for PostScript printing.
The default value is a table that translates non-Latin-1 Latin characters
to the equivalent Latin-1 characters.
(defvar ps-print-translation-table (byte-code "\301\302\303\"\304\300!\203! \305!\203! \306\307\310\311\312\313!\314\"\315\316%\"\210\211\207" [ucs-mule-8859-to-mule-unicode make-char-table translation-table nil boundp char-table-p map-char-table make-byte-code 514 "\211\205 \301!\302=\205 U?\205 \300I\207" vconcat vector [char-charset latin-iso8859-1] 5 "\n\n(fn K V)"] 8) (#$ . 132401))
#@57
(fn FROM TO FONT &optional FG-COLOR BG-COLOR EFFECTS)
(defalias 'ps-plot-region #[1539 "\232\204\n \306!\210\206 \n\2030 \206 \f\211\203. \232\203. \211@\262\211A\262\202 \266\211
\232\204: \307!\210\210$\232\204F \310!\210\211\250\204U \311\312!\210\313%\202f \211%U\204f \311\314!\315\"\210\211%\212b\210W\205\276&\203\233 '\203\233 \316&!\203\233 \313\225b\210\317'\320#\203\230 g\321U\203\230 \322u\210`\262\317(\323#\203\256\313\224\211fW\203\272 \324) $\210\211\325U\203\342 \326 \327u\210\211i\\\262 \317\330 \323#\203\336 \324\331\ni\\$\210\210\202\246\211\321U\203c\316\332!\203*T*+T+`W\205\322u\266\311\333!\210\334 \210\335 \210\202\246*T*+T+,\205$\316,!\336\211\337N\262\2033-\2025.\\/W\203I\311\333!\210\334 \210\335 \202^01/Z/\311\203\\\340\202]\341!\266\202\246\211\342U\203\242Sf\321\232\203y/2U\204\246g\321\232\203\225*T*+T+`W\205\223\322u\266\311\333!\210\334 \210\335 \210\202\246\343!\210`\262\266\202j \324)$\210\262\202j )\207" [ps-current-font ps-default-foreground ps-fg-validate-p ps-default-background ps-foreground-list ps-current-color ps-set-font ps-set-color ps-set-bg ps-output "0 EF\n" 0 number-to-string " EF\n" looking-at re-search-forward noerror 10 1 t ps-plot 9 line-beginning-position -1 "[ ]+" ps-basic-plot-whitespace "\f[^\n]" "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page ps-font-for-text line-height "PHL\n" "LHL\n" 12 ps-control-character ps-current-bg ps-current-effect ps-begin-cut-regexp ps-end-cut-regexp ps-control-or-escape-regexp ps-basic-plot-string-function ps-showline-count ps-lines-printed ps-paragraph-regexp ps-paragraph-spacing-internal ps-line-spacing-internal ps-height-remaining ps-print-width ps-width-remaining ps-print-height] 14 (#$ . 132965)])
#@54 Vector used to map characters to a printable string.
(defvar ps-string-control-codes (byte-code "\300\301\302\"\303\211\304X\203 \305\306\307\\\"I\210\211T\262\202 \211\310W\2031 \305\311\"I\210\211T\262\202 \312I\210\211T\211\262\313X\203K \305\314\"I\210\2026 \207" [make-vector 256 nil 0 31 format "^%c" 64 127 "%c" "^?" 255 "\\%o"] 8) (#$ . 134815))
#@13
(fn CHAR)
(defalias 'ps-control-character #[257 "H`SG\\\302\211\303N\262\304#\211@W\203 \305 \210 _Z\306!\210\307\310!\207" [ps-string-control-codes ps-width-remaining ps-font-for-text avg-char-width ps-find-wrappoint ps-continue-line ps-output-string ps-output " S\n"] 10 (#$ . 135193)])
#@13
(fn ATTR)
(defalias 'ps-face-foreground-color-p #[257 "\211\300>\207" [(foreground-color :foreground)] 3 (#$ . 135506)])
(put 'ps-face-foreground-color-p 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn ATTR)
(defalias 'ps-face-background-color-p #[257 "\211\300>\207" [(background-color :background)] 3 (#$ . 135713)])
(put 'ps-face-background-color-p 'byte-optimizer 'byte-compile-inline-expand)
#@13
(fn ATTR)
(defalias 'ps-face-color-p #[257 "\211\300>\207" [(foreground-color :foreground background-color :background)] 3 (#$ . 135920)])
(put 'ps-face-color-p 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn FACE-ATTRS)
(defalias 'ps-face-extract-color #[257 "\211A\211<\203\f \211@\202
\211\207" [] 3 (#$ . 136134)])
#@243 Return face attribute vector.
If FACE is not in `ps-print-face-extension-alist' or in
`ps-print-face-alist', insert it on `ps-print-face-alist' and
return the attribute vector.
If FACE is not a valid face name, use default face.
(fn FACE)
(defalias 'ps-face-attributes #[257 "\211;\203 \303!\203 \304!\262\203& \2119\203 \211\236A\206\202 \305\306\307\211#\207\2119\203Y \211 \236\206W \211\n\236\206W \303!\203A \211\202B \310\311!\310=\203Q \n\236\204U \211\nB\262A\207\211@\211\312>\262\203k \305\306\313!\307#\207\211@\211\314>\262\203} \305\306\307\313!#\207\305\306\307\211#\207" [ps-black-white-faces-alist ps-print-face-extension-alist ps-print-face-alist facep intern vector 0 nil default ps-screen-to-bit-face (foreground-color :foreground) ps-face-extract-color (background-color :background)] 6 (#$ . 136258)])
#@24
(fn FACE BACKGROUND)
(defalias 'ps-face-background #[514 "\301=\204V \204\f \302\2079\203 >\202S <\203R @\211\303>\262\204V \302\203L @>\204< @\211\303>\262\203E \302\262\301\262\202' A\262\202' \211\262\202S \302\205W \211\207" [ps-use-face-background t nil (foreground-color :foreground background-color :background)] 6 (#$ . 137108)])
#@21
(fn FACE-OR-LIST)
(defalias 'ps-face-attribute-list #[257 "\211<\204 \300!\207\211@\211\301>\262\203 \302\303\304!\305#\207\211@\211\306>\262\203- \302\303\305\304!#\207\307@!\203@ \302\303\310\311\"\310\312\"#\207\303\305\211\211\211\203v @\262A\262\300!\262\313\303H\"\262\204g \314H\262\204E \315\316H\"\262\202E \302#\207" [ps-face-attributes (foreground-color :foreground) vector 0 ps-face-extract-color nil (background-color :background) keywordp plist-get :foreground :background logior 1 ps-face-background 2] 10 (#$ . 137473)])
(defconst ps-font-type (vector nil 'bold 'italic 'bold-italic))
#@21
(fn FROM TO FACE)
(defalias 'ps-plot-with-face #[771 "\211\204
\303\304#\210\202h \211\305=\204h \306!\211\304H\307H\310\311H\"\2030 \2030 \312!\2021 \205< \205< \312!\303 \313\n\314\n\315\"H\206N \n\316\211\317N\262\"\206[ \304\266\202\320 \321\"&\266b\207" [ps-color-p ps-default-color ps-font-type ps-plot-region 0 emacs--invisible--face ps-face-attribute-list 1 ps-face-background 2 ps-color-scale ps-font-for-text logand 3 ps-alist-position fonts ash -2] 19 (#$ . 138112)])
(byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp face-list defalias list-faces] 3)
(defalias 'ps-build-reference-face-lists #[0 "\306 \203 \307\310\311 \"\210\202 \307\312\n\"\210\307\313 \"\210\307\314\f\"\210\306\211\207" [ps-print-face-alist ps-auto-font-detect ps-bold-faces ps-italic-faces ps-underlined-faces ps-build-face-reference nil mapc ps-map-face face-list ps-set-face-bold ps-set-face-italic ps-set-face-underline] 3])
#@13
(fn FACE)
(defalias 'ps-set-face-bold #[257 "\300\301\"\207" [ps-set-face-attribute 1] 4 (#$ . 139079)])
#@13
(fn FACE)
(defalias 'ps-set-face-italic #[257 "\300\301\"\207" [ps-set-face-attribute 2] 4 (#$ . 139193)])
#@13
(fn FACE)
(defalias 'ps-set-face-underline #[257 "\300\301\"\207" [ps-set-face-attribute 4] 4 (#$ . 139309)])
#@20
(fn FACE EFFECT)
(defalias 'ps-set-face-attribute #[514 "\300!A\211\301\302\301H\"I\207" [ps-map-face 0 logior] 8 (#$ . 139428)])
#@13
(fn FACE)
(defalias 'ps-map-face #[257 "\301!\211@\236A\211\2038 A\302\303\302H\302H\"I\210\304H\204' \304\304HI\210\305H\2044 \305\305HI\210\210\202< B\207" [ps-print-face-alist ps-screen-to-bit-face 0 logior 1 2] 10 (#$ . 139569)])
#@13
(fn FACE)
(defalias 'ps-screen-to-bit-face #[257 "\211\300\301\302!\203
\303\202 \304\305!\203 \306\202 \304\307!\203$ \310\202% \304\311!\2030 \312\2021 \304\313!\203< \314\202= \304\315 !\203H \316\202I \304&\317!\320!#B\207" [vector logior ps-face-bold-p 1 0 ps-face-italic-p 2 ps-face-underlined-p 4 ps-face-strikeout-p 8 ps-face-overline-p 16 ps-face-box-p 64 ps-face-foreground-name ps-face-background-name] 11 (#$ . 139827)])
#@18
(fn START END)
(defalias 'ps-print-ensure-fontified #[514 "\300\301!\203 \301J\203 \302\"\207\300\303!\205 \303J\205 \304\"\207" [boundp jit-lock-mode jit-lock-fontify-now lazy-lock-mode lazy-lock-fontify-region] 5 (#$ . 140284)])
#@16
(fn FROM TO)
(defalias 'ps-generate-postscript-with-faces #[514 "\306 \204\n \n\203 \307\310!\210\311 \210\312\f\313=\203 \314
\312\303#\210\214}\210\315\"\210\316 \210\317\")\207" [ps-current-effect ps-always-build-face-reference ps-build-face-reference ps-black-white-faces-alist ps-print-color-p ps-black-white-faces 0 message "Collecting face information..." ps-build-reference-face-lists nil black-white ps-extend-face-list ps-print-ensure-fontified deactivate-mark ps-generate-postscript-with-faces1] 6 (#$ . 140531)])
#@16
(fn FROM TO)
(defalias 'ps-generate-postscript #[514 "\300\301#\207" [ps-plot-region 0] 6 (#$ . 141074)])
#@31
(fn BUFFER FROM TO GENFUNC)
(defalias 'ps-generate #[1028 "\212^]\306\214}\210 \203 \307\310\311\211\"\210\312\f!\313C\211\"#\314C\314C\314\315\311\316\317\320\"\321\"\322$\216
q\210\323\314!\210\324 \240\210\242d\314\223\210eb\210\325\326$!!\204[ \306\262 q\210\212\306\314 % &\327!\210\211\203t \330 \210\331 \210\332\"\210\333 \210+\334 \210\"\210\335\336!\210\337 \210\340!\210\306\240\210)\266 \205\236 \307\341!*\266\202)\207" [inhibit-read-only ps-razzle-dazzle ps-razchunk ps-source-buffer ps-spool-buffer-name ps-spool-buffer t message "Formatting...%3d%%" 0 get-buffer-create "" nil make-byte-code "\303\300\242!\205 \301\242?\205 \nq\210\304\300\242!d|\207" vconcat vector [ps-spool-buffer markerp marker-position] 2 set-buffer-multibyte make-marker looking-at regexp-quote ps-begin-job ps-begin-file ps-mule-initialize ps-mule-begin-job ps-selected-pages ps-begin-page ps-output "EndPage\nEndDSCPage\n" ps-mule-end-job ps-end-job "Formatting...done" ps-output-head ps-output-tail ps-adobe-tag ps-even-or-odd-pages ps-print-page-p] 16 (#$ . 141190)])
#@25
(fn NEEDS-BEGIN-FILE)
(defalias 'ps-end-job #[257 "\306\307 \210\212\310 \n\" A\311 \fq\210\312 db\210\313V\203, \314\315\312\306#\203, \316\317\320\"\306\"\210eb\210\321\322\312\306#\203C \316\317\323#\306\"\210\202/ )\266)!\203j \310\"\324\"\325U\203j \313\326 \210\327\330\331\332#!\333$\210\327\334!\210)\335 \210\327\336\332\203 $\203 \"T\202\201 \"!\337#\210%\203\216 \327\340!\210\307 \210)\312\211&\207" [ps-print-page-p ps-page-printed ps-n-up-printing ps-printing-region ps-spool-buffer case-fold-search t ps-flush-output mod ps-page-number nil 0 re-search-backward "^[0-9]+ BeginSheet$" replace-match format "%d BeginSheet" re-search-forward "^/Lines 0 def\n/PageCount 0 def$" "/Lines %d def\n/PageCount %d def" 2 1 ps-header-sheet ps-output "/PrintHeader false def\n/ColumnIndex 0 def\n" "/PrintLineNumber false def\n" number-to-string " BeginPage\n" "EndPage\nEndDSCPage\n" ps-end-sheet "\n%%Trailer\n%%Pages: " "\n\nEndDoc\n\n%%EOF\n" "" ps-spool-duplex ps-page-order ps-lines-printed ps-banner-page-when-duplexing ps-end-with-control-d ps-selected-pages] 9 (#$ . 142294)])
#@17
(fn FILENAME)
(defalias 'ps-do-despool #[257 "\306\301!\203 \301J\204 \307\310!\207\211\203: \212\203 \307\311!\210 q\210\312!\262\313\314ed#\210)\2036 \307\315\"\210)\202[ r q\210\313 \206E \f
\316ed\317$\210.\320 !\207" [ps-razzle-dazzle ps-spool-buffer coding-system-for-write ps-printer-name printer-name ps-printer-name-option boundp message "No spooled PostScript to print" "Saving..." expand-file-name raw-text-unix write-region "Wrote %s" lpr-print-region nil kill-buffer lpr-printer-switch ps-print-region-function print-region-function ps-lpr-command lpr-command ps-lpr-switches] 6 (#$ . 143409)])
(defalias 'ps-kill-emacs-check #[0 "\301!\302!\203 \303!\203 \304\305!\203 \306 \210\210\301!\302!\2052 \303!\2052 \307\310!?\2052 \311\312!\207" [ps-spool-buffer-name get-buffer buffer-live-p buffer-modified-p y-or-n-p "Unprinted PostScript waiting; print now? " ps-despool yes-or-no-p "Unprinted PostScript waiting; exit anyway? " error "Unprinted PostScript"] 3])
(byte-code "\204 \301\302\303\"\210\304\305!\207" [noninteractive add-hook kill-emacs-hook ps-kill-emacs-check provide ps-print] 3)
Mini Shell