| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/printing.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/printing.el
;;; in Emacs version 24.3.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@138 printing.el, v 6.9.3 <2007/12/09 vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <viniciusjl@ig.com.br>
(defconst pr-version "6.9.3" (#$ . 552))
(byte-code "\301\302!\210\301\303!\210\304\231\203 \305\306!\210\301\207" [ps-print-version require lpr ps-print "6.6.4" error "`printing' requires `ps-print' package version 6.6.4 or later"] 2)
(defconst pr-cygwin-system (byte-code "\205 \301\302!\205 \303\304\301\302!\"\207" [ps-windows-system getenv "OSTYPE" string-match "cygwin"] 4))
(byte-code "\300\301!\204 \302\301\303\"\210\300\304!\204 \302\304\305\"\210\300\207" [fboundp subst-char-in-string defalias #[(fromchar tochar string &optional inplace) "G \203\n \202
\306! S\211\307V\203( \n H\f=\203 \n
I\210\202 \n*\207" [string inplace newstr i fromchar tochar copy-sequence 0] 3 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.\nUnless optional argument INPLACE is non-nil, return a new string."] make-temp-file #[(prefix &optional dir-flag suffix) "\302 \303\304\216\305\306!\210\303\307\310\217\204 +\207" [file umask default-file-modes nil ((set-default-file-modes umask)) set-default-file-modes 448 (byte-code "\305\306 \"! \203 \n P\f\203 \307\n!\210\202% \310\311\312\n\312\313\312\314&\210\312\207" [prefix temporary-file-directory file suffix dir-flag make-temp-name expand-file-name make-directory write-region "" nil silent excl] 8) ((file-already-exists t))] 3 "Create a temporary file.\nThe returned file name (created by appending some random characters at the end\nof PREFIX, and expanding against `temporary-file-directory' if necessary),\nis guaranteed to point to a newly created empty file.\nYou can then use `write-region' to write new data into the file.\n\nIf DIR-FLAG is non-nil, create a new empty directory instead of a file.\n\nIf SUFFIX is non-nil, add that at the end of the file name."]] 3)
#@94 Non-nil means that menu binding was not done.
Used by `pr-menu-bind' and `pr-update-menus'.
(defvar pr-menu-print-item "print" (#$ . 2456))
#@78 Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.
(defvar pr-ps-printer-menu-modified t (#$ . 2603))
#@79 Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.
(defvar pr-txt-printer-menu-modified t (#$ . 2737))
#@78 Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.
(defvar pr-ps-utility-menu-modified t (#$ . 2873))
(defconst pr-even-or-odd-alist '((nil . "Print All Pages") (even-page . "Print Even Pages") (odd-page . "Print Odd Pages") (even-sheet . "Print Even Sheets") (odd-sheet . "Print Odd Sheets")))
(byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\301\310\311\"\210\301\312\313\"\210\301\314\315\"\210\301\316\317\"\210\320\321!\210\301\322\323\"\210\2038 \301\324\325\"\210\202= \301\324\326\"\210\327\321!\210\330\321!\210\301\331\332\"\210\301\333\334\"\210\301\335\336\"\210\301\337\340\"\210\301\341\342\"\210\343\321!\210\301\344\345\"\210\301\346\347\"\210\301\350\351\"\210\301\352\353\"\210\301\354\355\"\210\301\356\357\"\207" [ps-windows-system defalias pr-set-keymap-parents set-keymap-parent pr-set-keymap-name ignore pr-read-string read-string pr-keep-region-active #[nil "\301\211\207" [deactivate-mark nil] 2] pr-region-active-p #[nil "\205 \205 \n\207" [pr-auto-region transient-mark-mode mark-active] 1] pr-menu-char-height #[nil "\300 \207" [frame-char-height] 1] pr-menu-char-width #[nil "\300 \207" [frame-char-width] 1] (lambda (#1=#:def-tmp-var) (defvar pr-menu-bar #1# "Specify Printing menu-bar entry.")) nil pr-global-menubar #[(pr-menu-spec) "\306\307!\210\310U\203 \311\202 \312\n\203N \313 \314\315\f\"\316$\210\317\320 \211 \203: @\321
#\210A\211\204' *\320\322\323\324 A@!\324\315!#\211\202V \313 \314\315\f\"#)\207" [emacs-major-version menu-file pr-menu-print-item global-map pr-menu-spec item require easymenu 21 ("menu-bar" "files") ("menu-bar" "file") easy-menu-add-item easy-menu-create-menu "Print" "print-buffer" ("print-buffer" "print-region" "ps-print-buffer-faces" "ps-print-region-faces" "ps-print-buffer" "ps-print-region") nil easy-menu-remove-item vector menu-bar pr-get-symbol --dolist-tail-- pr-menu-bar] 7] pr-menu-position #[(entry index horizontal) "\304 A\211@\206\n \305A\206 \305\306 \n\" _ZD\307 )D\207" [pos entry index pr-menu-char-height mouse-pixel-position 0 pr-menu-index selected-frame] 6] #[(entry index horizontal) "\306 A\211@\206\n \307 \n_ZA\206 \307\310 \f\"
_ZD\311 )D\207" [pos horizontal pr-menu-char-width entry index pr-menu-char-height mouse-pixel-position 0 pr-menu-index selected-frame] 6] (lambda (#1#) (defvar pr-menu-position #1#)) (lambda (#1#) (defvar pr-menu-state #1#)) pr-menu-lookup #[(path) "\303 \203 \304\n\305\306 <\203 \202 C\"\"\202 \n\"\207" [global-map path pr-menu-bar lookup-key vconcat mapcar pr-get-symbol] 7] pr-menu-lock #[(entry index horizontal state path) "\205J \203 \n =\204 \301\f
#\n\306! \307 \"\211 \203F \310\311!\" \312!\203@ \210\202E \313!\210)*\314\211\207" [pr-menu-lock pr-menu-position state pr-menu-state entry index pr-menu-lookup x-popup-menu lookup-key vconcat fboundp eval nil horizontal path menu result command] 5] pr-update-mode-line force-mode-line-update pr-do-update-menus #[(&optional force) "\306\307\310\311\312 \311\313\314& \210\306\n\315\316\317\320 \317\321\314& \210 \306
\322\323\324\304 \325\326\327& \210)\306
\322\323\330\303 \325\326\327& \210\331 \"\207" [pr-ps-printer-alist force pr-txt-printer-alist pr-ps-utility-menu-modified save-var pr-ps-utility-alist pr-menu-alist pr-ps-name pr-menu-set-ps-title "PostScript Printers" pr-ps-printer-menu-modified postscript 2 pr-txt-name pr-menu-set-txt-title "Text Printers" pr-txt-printer-menu-modified text pr-ps-utility pr-menu-set-utility-title ("PostScript Print" "File" "PostScript Utility") "PostScript Utility" nil 1 ("PostScript Preview" "File" "PostScript Utility") pr-even-or-odd-pages ps-even-or-odd-pages] 10] pr-menu-get-item #[(name-list) "<\204 C\205, \306!\307 @! A\237\310\f\311
\312\307 \"\"\" \n AA\236,\207" [name-list reversed name path global-map pr-menu-bar reverse pr-get-symbol lookup-key vconcat mapcar menu] 7] (lambda (#1#) (defvar pr-temp-menu #1#)) pr-menu-alist #[(alist var-sym fun menu-path modified-sym force name entry index) "\205[ \204
\nJ\205[ \306\307!\210\310\311\307\312\313 \f
&$\210\314!\211 \203W \315\233\211 A \240\210\203O @<\203O A\241\210
\fJ\"\210*)\n\307L\207" [alist force modified-sym name var-sym fun (lambda (#1#) (defvar pr-temp-menu #1# #2="")) nil easy-menu-do-define pr-temp-menu #2# pr-menu-create pr-menu-get-item 3 entry index menu-path item binding key-binding] 12] pr-menu-set-item-name #[(item name) "\205 AA \240\207" [item name] 2] pr-menu-set-ps-title #[(value &optional item entry index) "\304\206 \305\306!\307\310 \"\"\210\311 !\210\n\205 \312 \n\313\314\315%\207" [item value index entry pr-menu-set-item-name pr-menu-get-item "PostScript Printers" format "PostScript Printer: %s" pr-ps-set-printer pr-menu-lock 12 toggle nil] 6] pr-menu-set-txt-title #[(value &optional item entry index) "\304\206 \305\306!\307\310 \"\"\210\311 !\210\n\205 \312 \n\313\314\315%\207" [item value index entry pr-menu-set-item-name pr-menu-get-item "Text Printers" format "Text Printer: %s" pr-txt-set-printer pr-menu-lock 12 toggle nil] 6] pr-menu-set-utility-title #[(value &optional item entry index) "\305!\n\203 \306\n \"\210\202 \306\307\310! \"\210\306\307\311! \"\210)\312!\210 \205. \313\f \314\315\316%\207" [value name item index entry symbol-name pr-menu-set-item-name pr-menu-get-item ("PostScript Print" "File" "PostScript Utility") ("PostScript Preview" "File" "PostScript Utility") pr-ps-set-utility pr-menu-lock 5 nil ("PostScript Print" "File")] 6] pr-even-or-odd-pages #[(value &optional no-lock) "\304\305\306! \236A\"\210 \206 \307\310\311\312\313\314%\207" [value pr-even-or-odd-alist ps-even-or-odd-pages no-lock pr-menu-set-item-name pr-menu-get-item "Print All Pages" pr-menu-lock postscript-options 8 12 toggle nil] 6]] 3)
#@72 Replace unix-style directory separator character with dos/windows one.
(defalias 'pr-dosify-file-name #[(path) "\302=\203\f \303\304\305 #\207 \207" [pr-path-style path windows subst-char-in-string 47 92] 4 (#$ . 8736) "sPath: "])
#@72 Replace dos/windows-style directory separator character with unix one.
(defalias 'pr-unixify-file-name #[(path) "\302=\203\f \303\304\305 #\207 \207" [pr-path-style path windows subst-char-in-string 92 47] 4 (#$ . 8974) "sPath: "])
#@201 Ensure the proper directory separator depending on the OS.
That is, if Emacs is running on DOS/Windows, ensure dos/windows-style directory
separator; otherwise, ensure unix-style directory separator.
(defalias 'pr-standard-file-name #[(path) "\204 \203 \303\304\305\n#\207\303\305\304\n#\207" [pr-cygwin-system ps-windows-system path subst-char-in-string 47 92] 4 (#$ . 9214)])
#@68 Set the value of custom variables for printer & utility selection.
(defalias 'pr-alist-custom-set #[(symbol value) " L\210\302\303!\205
\304\305!\207" [symbol value featurep printing pr-update-menus t] 2 (#$ . 9602)])
#@28 Update utility menu entry.
(defalias 'pr-ps-utility-custom-set #[(symbol value) " L\210\302\303!\205
\304 !\207" [symbol value featurep printing pr-menu-set-utility-title] 2 (#$ . 9828)])
#@42 Update `PostScript Printer:' menu entry.
(defalias 'pr-ps-name-custom-set #[(symbol value) " L\210\302\303!\205
\304 !\207" [symbol value featurep printing pr-menu-set-ps-title] 2 (#$ . 10024)])
#@36 Update `Text Printer:' menu entry.
(defalias 'pr-txt-name-custom-set #[(symbol value) " L\210\302\303!\205
\304 !\207" [symbol value featurep printing pr-menu-set-txt-title] 2 (#$ . 10227)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\314\316&\210\317\320\321\322\323\324\314\301&\210\317\325\326\327\323\330\314\301&\210\317\331\332\333\323\334\335\336\314\301& \210\317\337\340\341\323\342\335\343\314\301& \210\317\344\345\346\323\334\335\347\314\301& \210\317\350\351\352\323\353\335\343\314\301& \210\317\354\355\356\323\357\314\301&\210\317\360\361\362\323\363\314\301&\210\317\364\365\366\323\367\314\301&\210\317\370\371\372\323\373\314\301&\210\317\374\375\376\323\377\314\301&\210\317\201@ \201A \201B \323\201C \314\301&\210\317\201D \201E \201F \323\201G \314\301&\210\317\201H \201I \201J \323\201K \314\301&\210\317\201L \302\201M \323\201N \314\301&\210\317\201O \302\201P \323\201N \314\301&\210\317\201Q \302\201R \323\201N \314\301&\210\317\201S \302\201T \323\201N \314\301&\210\317\201U \302\201V \323\201N \314\301&\210\317\201W \302\201X \323\201N \314\301&\210\317\201Y \201Z \201[ \323\201N \314\301&\210\317\201\\ \201Z \201] \323\201N \314\301&\210\317\201^ \201_ \201` \323\201a \314\301&\210\317\201b \201c \201d \323\201e \335\201f \314\301& \210\317\201g \201h \201i \323\201j \335\343\314\301& \210\317\201k \201Z \201l \323\201N \314\301&\210\317\201m \201n \201o \323\201p \314\301&\210\317\201q \201r \201s \323\201p \314\301&\210\317\201t \201u \201v \323\201w \314\301&\210\317\201x \201y \201z \323\201{ \314\301&\210\317\201| \201Z \201} \323\201N \314\301&\210\317\201~ \302\201 \323\201N \314\301&\210\317\201\200 \201\201 \201\202 \323\201\203 \314\301&\210\317\201\204 \201\205 \201\206 \323\201\207 \314\301&\210\317\201\210 \201Z \201\211 \323\201N \314\301&\207" [custom-declare-group printing nil "Printing Utilities group." :tag "Printing Utilities" :link (emacs-library-link :tag "Source Lisp File" "printing.el") :prefix "pr-" :version "22.1" :group wp postscript custom-declare-variable pr-path-style (if (and (not pr-cygwin-system) ps-windows-system) 'windows 'unix) "Specify which path style to use for external commands.\n\nValid values are:\n\n windows Windows 9x/NT style (\\)\n\n unix Unix style (/)" :type (choice :tag "Path style" (const :tag "Windows 9x/NT Style (\\)" :value windows) (const :tag "Unix Style (/)" :value unix)) pr-path-alist '((unix PATH) (cygwin PATH) (windows PATH)) "Specify an alist for command paths.\n\nIt's used to find commands used for printing package, like gv, gs, gsview.exe,\nmpage, print.exe, etc. See also `pr-command' function.\n\nEach element has the form:\n\n (ENTRY DIRECTORY...)\n\nWhere:\n\nENTRY It's a symbol, used to identify this entry.\n There must exist at least one of the following entries:\n\n unix this entry is used when Emacs is running on GNU or\n Unix system.\n\n cygwin this entry is used when Emacs is running on Windows\n 95/98/NT/2000 with Cygwin.\n\n windows this entry is used when Emacs is running on Windows\n 95/98/NT/2000.\n\nDIRECTORY It should be a string or a symbol. If it's a symbol, it should\n exist an equal entry in `pr-path-alist'. If it's a string,\n it's considered a directory specification.\n\n The directory specification may contain:\n $var environment variable expansion\n ~/ tilde expansion\n ./ current directory\n ../ previous directory\n\n For example, let's say the home directory is /home/my and the\n current directory is /home/my/dir, so:\n\n THE ENTRY IS EXPANDED TO\n ~/entry /home/my/entry\n ./entry /home/my/dir/entry\n ../entry /home/my/entry\n $HOME/entry /home/my/entry\n $HOME/~/other/../my/entry /home/my/entry\n\n SPECIAL SYMBOL: If the symbol `PATH' is used in the directory\n list and there isn't a `PATH' entry in `pr-path-alist' or the\n `PATH' entry has a null directory list, the PATH environment\n variable is used.\n\nExamples:\n\n* On GNU or Unix system:\n\n '((unix \".\" \"~/bin\" ghostview mpage PATH)\n (ghostview \"$HOME/bin/gsview-dir\")\n (mpage \"$HOME/bin/mpage-dir\")\n )\n\n* On Windows system:\n\n '((windows \"c:/applications/executables\" PATH ghostview mpage)\n (ghostview \"c:/gs/gsview-dir\")\n (mpage \"c:/mpage-dir\")\n )" (repeat (cons :tag #1="" (symbol :tag "Identifier ") (repeat :tag "Directory List" (choice :menu-tag "Directory" :tag "Directory" (string :value #1#) (symbol :value symbol))))) pr-txt-name 'default "Specify a printer for printing a text file.\n\nThe printer name symbol should be defined on `pr-txt-printer-alist' (see it for\ndocumentation).\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update text printer menu." symbol :set pr-txt-name-custom-set pr-txt-printer-alist (list (list 'default lpr-command nil (cond ((boundp 'printer-name) printer-name) (ps-windows-system "PRN") (t nil)))) "Specify an alist of all text printers (text printer database).\n\nThe alist element has the form:\n\n (SYMBOL COMMAND SWITCHES NAME)\n\nWhere:\n\nSYMBOL It's a symbol to identify a text printer. It's for\n `pr-txt-name' variable setting and for menu selection.\n Examples:\n 'prt_06a\n 'my_printer\n\nCOMMAND Name of the program for printing a text file. On MS-DOS and\n MS-Windows systems, if the value is an empty string, then Emacs\n will write directly to the printer port given by NAME (see text\n below), that is, the NAME should be something like \"PRN\" or\n \"LPT1:\".\n If NAME is something like \"\\\\\\\\host\\\\share-name\" then\n COMMAND shouldn't be an empty string.\n The programs `print' and `nprint' (the standard print programs\n on Windows NT and Novell Netware respectively) are handled\n specially, using NAME as the destination for output; any other\n program is treated like `lpr' except that an explicit filename\n is given as the last argument.\n If COMMAND is nil, it's used the default printing program:\n `print' for Windows system, `lp' for lp system and `lpr' for\n all other systems. See also `pr-path-alist'.\n Examples:\n \"print\"\n \"lpr\"\n \"lp\"\n\nSWITCHES List of sexp's to pass as extra options for text printer\n program. It is recommended to set NAME (see text below)\n instead of including an explicit switch on this list.\n Example:\n . for lpr\n '(\"-#3\" \"-l\")\n nil\n\nNAME A string that specifies a text printer name.\n On Unix-like systems, a string value should be a name\n understood by lpr's -P option (or lp's -d option).\n On MS-DOS and MS-Windows systems, it is the name of a printer\n device or port. Typical non-default settings would be \"LPT1:\"\n to \"LPT3:\" for parallel printers, or \"COM1\" to \"COM4\" or\n \"AUX\" for serial printers, or \"\\\\\\\\hostname\\\\printer\"\n (or \"/D:\\\\\\\\hostname\\\\printer\") for a shared network\n printer. You can also set it to a name of a file, in which\n case the output gets appended to that file. If you want to\n discard the printed output, set this to \"NUL\".\n Examples:\n . for print.exe\n \"/D:\\\\\\\\host\\\\share-name\"\n \"LPT1:\"\n \"PRN\"\n\n . for lpr or lp\n \"share-name\"\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update text printer menu.\n\nExamples:\n\n* On GNU or Unix system:\n\n '((prt_06a \"lpr\" nil \"prt_06a\")\n (prt_07c nil nil \"prt_07c\")\n )\n\n* On Windows system:\n\n '((prt_06a \"print\" nil \"/D:\\\\\\\\printers\\\\prt_06a\")\n (prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\")\n (PRN \"\" nil \"PRN\")\n (standard \"redpr.exe\" nil \"\")\n )\n\nUseful links:\n\n* Information about the print command (print.exe)\n `http://www.computerhope.com/printhlp.htm'\n\n* RedMon - Redirection Port Monitor (redpr.exe)\n `http://www.cs.wisc.edu/~ghost/redmon/index.htm'\n\n* Redirection Port Monitor (redpr.exe on-line help)\n `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'\n\n* UNIX man pages: lpr (or type `man lpr')\n `http://bama.ua.edu/cgi-bin/man-cgi?lpr'\n `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'\n\n* UNIX man pages: lp (or type `man lp')\n `http://bama.ua.edu/cgi-bin/man-cgi?lp'\n `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'\n" (repeat (list :tag "Text Printer" (symbol :tag "Printer Symbol Name") (string :tag "Printer Command") (repeat :tag "Printer Switches" (sexp :tag "Switch" :value #1#)) (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "None" nil) string))) pr-alist-custom-set pr-ps-name 'default "Specify a printer for printing a PostScript file.\n\nThis printer name symbol should be defined on `pr-ps-printer-alist' (see it for\ndocumentation).\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update PostScript printer menu." pr-ps-name-custom-set pr-ps-printer-alist (list (list 'default lpr-command nil (cond (ps-windows-system nil) (ps-lp-system "-d") (t "-P")) (or (getenv "PRINTER") (getenv "LPDEST") ps-printer-name))) "Specify an alist for all PostScript printers (PostScript printer database).\n\nThe alist element has the form:\n\n (SYMBOL COMMAND SWITCHES PRINTER-SWITCH NAME DEFAULT...)\n\nWhere:\n\nSYMBOL It's a symbol to identify a PostScript printer. It's for\n `pr-ps-name' variable setting and for menu selection.\n Examples:\n 'prt_06a\n 'my_printer\n\nCOMMAND Name of the program for printing a PostScript file. On MS-DOS\n and MS-Windows systems, if the value is an empty string then\n Emacs will write directly to the printer port given by NAME\n (see text below), that is, the NAME should be something like\n \"PRN\" or \"LPT1:\".\n If NAME is something like \"\\\\\\\\host\\\\share-name\" then\n COMMAND shouldn't be an empty string.\n The programs `print' and `nprint' (the standard print programs\n on Windows NT and Novell Netware respectively) are handled\n specially, using NAME as the destination for output; any other\n program is treated like `lpr' except that an explicit filename\n is given as the last argument.\n If COMMAND is nil, it's used the default printing program:\n `print' for Windows system, `lp' for lp system and `lpr' for\n all other systems. See also `pr-path-alist'.\n Examples:\n \"print\"\n \"lpr\"\n \"lp\"\n \"cp\"\n \"gsprint\"\n\nSWITCHES List of sexp's to pass as extra options for PostScript printer\n program. It is recommended to set NAME (see text below)\n instead of including an explicit switch on this list.\n Example:\n . for lpr\n '(\"-#3\" \"-l\")\n nil\n\n . for gsprint.exe\n '(\"-all\" \"-twoup\")\n\nPRINTER-SWITCH A string that specifies PostScript printer name switch. If\n it's necessary to have a space between PRINTER-SWITCH and NAME,\n it should be inserted at the end of PRINTER-SWITCH string.\n If PRINTER-SWITCH is nil, it's used the default printer name\n switch: `/D:' for Windows system, `-d' for lp system and `-P'\n for all other systems.\n Examples:\n . for lpr\n \"-P \"\n\n . for lp\n \"-d \"\n\n . for print.exe\n \"/D:\"\n\n . for gsprint.exe\n \"-printer \"\n\nNAME A string that specifies a PostScript printer name.\n On Unix-like systems, a string value should be a name\n understood by lpr's -P option (or lp's -d option).\n On MS-DOS and MS-Windows systems, it is the name of a printer\n device or port. Typical non-default settings would be \"LPT1:\"\n to \"LPT3:\" for parallel printers, or \"COM1\" to \"COM4\" or\n \"AUX\" for serial printers, or \"\\\\\\\\hostname\\\\printer\"\n (or \"/D:\\\\\\\\hostname\\\\printer\") for a shared network\n printer. You can also set it to a name of a file, in which\n case the output gets appended to that file. If you want to\n discard the printed output, set this to \"NUL\".\n Examples:\n . for cp.exe\n \"\\\\\\\\host\\\\share-name\"\n\n . for print.exe or gsprint.exe\n \"/D:\\\\\\\\host\\\\share-name\"\n \"\\\\\\\\host\\\\share-name\"\n \"LPT1:\"\n \"PRN\"\n\n . for lpr or lp\n \"share-name\"\n\nDEFAULT It's a way to set default values when this entry is selected.\n It's a cons like:\n\n (VARIABLE . VALUE)\n\n Which associates VARIABLE with VALUE. When this entry is\n selected, it's executed the following command:\n\n (set VARIABLE (eval VALUE))\n\n Note that VALUE can be any valid lisp expression. So, don't\n forget to quote symbols and constant lists.\n If VARIABLE is the special keyword `inherits-from:', VALUE must\n be a symbol name setting defined in `pr-setting-database' from\n which the current setting inherits the context. Take care with\n circular inheritance.\n Examples:\n '(ps-landscape-mode . nil)\n '(ps-spool-duplex . t)\n '(pr-gs-device . (my-gs-device t))\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update PostScript printer menu.\n\nExamples:\n\n* On GNU or Unix system:\n\n '((lps_06b \"lpr\" nil \"-P\" \"lps_06b\")\n (lps_07c \"lpr\" nil nil \"lps_07c\")\n (lps_08c nil nil nil \"lps_08c\")\n )\n\n* On Windows system:\n\n '((lps_06a \"print\" nil \"/D:\" \"\\\\\\\\printers\\\\lps_06a\")\n (lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\")\n (lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\")\n (lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\")\n (b/w1 \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"b/w-pr-name\")\n (b/w2 \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer \\\\\\\\printers\\\\lps_06a\")\n (LPT1 \"\" nil \"\" \"LPT1:\")\n (PRN \"\" nil \"\" \"PRN\")\n (standard \"redpr.exe\" nil \"\" \"\")\n )\n\n\ngsprint:\n\nYou can use gsprint instead of ghostscript to print monochrome PostScript files\nin Windows. The gsprint utility documentation says that it is more efficient\nthan ghostscript to print monochrome PostScript.\n\nTo print non-monochrome PostScript file, the efficiency of ghostscript is\nsimilar to gsprint.\n\nAlso the gsprint utility comes together with gsview distribution.\n\nAs an example of gsprint declaration:\n\n (setq pr-ps-printer-alist\n '((A \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"lps_015\")\n (B \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer lps_015\")\n ;; some other printer declaration\n ))\n\nThe example above declares that printer A prints all pages (-all) and two pages\nper sheet (-twoup). The printer B declaration does the same as the printer A\ndeclaration, the only difference is the printer name selection.\n\nThere are other command line options like:\n\n -mono Render in monochrome as 1bit/pixel (only black and white).\n -grey Render in greyscale as 8bits/pixel.\n -color Render in color as 24bits/pixel.\n\nThe default is `-mono'. So, printer A and B in the example above are using\nimplicitly the `-mono' option. Note that in `-mono' no gray tone or color is\nprinted, this includes the zebra stripes, that is, in `-mono' the zebra stripes\nare not printed.\n\n\nUseful links:\n\n* GSPRINT - Ghostscript print to Windows printer\n `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'\n\n* Introduction to Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Information about the print command (print.exe)\n `http://www.computerhope.com/printhlp.htm'\n\n* RedMon - Redirection Port Monitor (redpr.exe)\n `http://www.cs.wisc.edu/~ghost/redmon/index.htm'\n\n* Redirection Port Monitor (redpr.exe on-line help)\n `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'\n\n* UNIX man pages: lpr (or type `man lpr')\n `http://bama.ua.edu/cgi-bin/man-cgi?lpr'\n `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'\n\n* UNIX man pages: lp (or type `man lp')\n `http://bama.ua.edu/cgi-bin/man-cgi?lp'\n `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'\n\n* GNU utilities for w32 (cp.exe)\n `http://unxutils.sourceforge.net/'\n" (repeat (list :tag "PostScript Printer" (symbol :tag "Printer Symbol Name") (string :tag "Printer Command") (repeat :tag "Printer Switches" (sexp :tag "Switch" :value #1#)) (choice :menu-tag "Printer Name Switch" :tag "Printer Name Switch" (const :tag "None" nil) string) (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "None" nil) string) (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) pr-temp-dir (pr-dosify-file-name (if (boundp 'temporary-file-directory) (symbol-value 'temporary-file-directory) (file-name-as-directory (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") (cond (ps-windows-system "c:/temp") (t "/tmp")))))) "Specify a directory for temporary files during printing.\n\nSee also `pr-ps-temp-file' and `pr-file-modes'." (directory :tag "Temporary Directory") pr-ps-temp-file "prspool-" "Specify PostScript temporary file name prefix.\n\nSee also `pr-temp-dir' and `pr-file-modes'." (file :tag "PostScript Temporary File Name") pr-file-modes 384 "Specify the file permission bits for newly created files.\n\nIt should be an integer; only the low 9 bits are used.\n\nSee also `pr-temp-dir' and `pr-ps-temp-file'." (integer :tag "File Permission Bits") pr-gv-command (if ps-windows-system "gsview32.exe" "gv") "Specify path and name of the gsview/gv utility.\n\nSee also `pr-path-alist'.\n\nUseful links:\n\n* GNU gv manual\n `http://www.gnu.org/software/gv/manual/gv.html'\n\n* GSview Help\n `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm'\n\n* GSview Help - Common Problems\n `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm#Common_Problems'\n\n* GSview Readme (compilation & installation)\n `http://www.cs.wisc.edu/~ghost/gsview/Readme.htm'\n\n* GSview (main site)\n `http://www.cs.wisc.edu/~ghost/gsview/index.htm'\n\n* Ghostscript, Ghostview and GSview\n `http://www.cs.wisc.edu/~ghost/'\n\n* Ghostview\n `http://www.cs.wisc.edu/~ghost/gv/index.htm'\n\n* gv 3.5, June 1997\n `http://www.cs.wisc.edu/~ghost/gv/gv_doc/gv.html'\n\n* MacGSView (MacOS)\n `http://www.cs.wisc.edu/~ghost/macos/index.htm'\n" (string :tag "Ghostview Utility") pr-gs-command (if ps-windows-system "gswin32.exe" "gs") "Specify path and name of the ghostscript utility.\n\nSee also `pr-path-alist'.\n\nUseful links:\n\n* Ghostscript, Ghostview and GSview\n `http://www.cs.wisc.edu/~ghost/'\n\n* Introduction to Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Printer compatibility\n `http://www.cs.wisc.edu/~ghost/doc/printer.htm'\n" (string :tag "Ghostscript Utility") pr-gs-switches (if ps-windows-system '("-q -dNOPAUSE -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts") '("-q -dNOPAUSE -I/usr/share/ghostscript/5.10")) "Specify ghostscript switches. See the documentation on GS for more info.\n\nIt's a list of strings, where each string is one or more ghostscript switches.\n\nA note on the gs switches:\n\n-q quiet\n-dNOPAUSE don't wait for user intervention\n-Ic:/gs/gs5.50;c:/gs/gs5.50/fonts the directories needed for gs\n-c quit it's added at the end to terminate gs\n\nTo see ghostscript documentation for more information:\n\n* On GNU or Unix system:\n - for full documentation, type: man gs\n - for brief documentation, type: gs -h\n\n* On Windows system:\n - for full documentation, see in a browser the file\n c:/gstools/gs5.50/index.html, that is, the file index.html which is\n located in the same directory as gswin32.exe.\n - for brief documentation, type: gswin32.exe -h\n\nUseful links:\n\n* Introduction to Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Printer compatibility\n `http://www.cs.wisc.edu/~ghost/doc/printer.htm'\n" (repeat (string :tag "Ghostscript Switch")) pr-gs-device (if ps-windows-system "mswinpr2" "uniprint") "Specify the ghostscript device switch value (-sDEVICE=).\n\nA note on the gs switches:\n\n-sDEVICE=djet500 the printer - works with HP DeskJet 540\n\nSee `pr-gs-switches' for documentation.\nSee also `pr-ps-printer-alist'." (string :tag "Ghostscript Device") pr-gs-resolution 300 "Specify ghostscript resolution switch value (-r).\n\nA note on the gs switches:\n\n-r300 resolution 300x300\n\nSee `pr-gs-switches' for documentation.\nSee also `pr-ps-printer-alist'." (integer :tag "Ghostscript Resolution") pr-print-using-ghostscript "Non-nil means print using ghostscript.\n\nThis is useful if you don't have a PostScript printer, so you could use the\nghostscript to print a PostScript file.\n\nIn GNU or Unix system, if ghostscript is set as a PostScript filter, this\nvariable should be nil." boolean pr-faces-p "Non-nil means print with face attributes." pr-spool-p "Non-nil means spool printing in a buffer." pr-file-landscape "Non-nil means print PostScript file in landscape orientation." pr-file-duplex "Non-nil means print PostScript file in duplex mode." pr-file-tumble "Non-nil means print PostScript file in tumble mode.\n\nIf tumble is off, produces a printing suitable for binding on the left or\nright.\nIf tumble is on, produces a printing suitable for binding at the top or\nbottom." pr-auto-region t "Non-nil means region is automagically detected.\n\nNote that this will only work if you're using transient mark mode.\n\nWhen this variable is non-nil, the `*-buffer*' commands will behave like\n`*-region*' commands, that is, `*-buffer*' commands will print only the region\nmarked instead of all buffer." pr-auto-mode "Non-nil means major-mode specific printing is preferred over normal printing.\n\nThat is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'\nand `*-region*' commands will behave like `*-mode*' commands; otherwise,\n`*-buffer*' commands will print the current buffer and `*-region*' commands\nwill print the current region." pr-mode-alist '((mh-folder-mode pr-mh-lpr-1 pr-mh-print-1 2 (ps-article-author ps-article-subject) ("/pagenumberstring load" pr-article-date) nil) (mh-letter-mode pr-mh-lpr-2 pr-mh-print-2 2 (ps-article-author ps-article-subject) ("/pagenumberstring load" pr-article-date) nil) (rmail-summary-mode pr-rmail-lpr pr-rmail-print 3 (ps-article-subject ps-article-author buffer-name) nil nil) (rmail-mode pr-rmail-lpr pr-rmail-print 3 (ps-article-subject ps-article-author buffer-name) nil nil) (gnus-summary-mode pr-gnus-lpr pr-gnus-print 3 (ps-article-subject ps-article-author gnus-newsgroup-name) nil nil) (gnus-article-mode pr-gnus-lpr pr-gnus-print 3 (ps-article-subject ps-article-author gnus-newsgroup-name) nil nil) (Info-mode pr-mode-lpr pr-mode-print 2 (ps-info-node ps-info-file) nil nil) (vm-mode pr-vm-lpr pr-vm-print 3 (ps-article-subject ps-article-author buffer-name) nil nil)) "Specify an alist for a major-mode and printing functions.\n\nTo customize a major mode printing, just declare the customization in\n`pr-mode-alist' and invoke some of `*-mode*' commands. An example for major\nmode usage is when you're using gnus (or mh, or rmail, etc.) and you're in the\n*Summary* buffer, if you forget to switch to the *Article* buffer before\nprinting, you'll get a nicely formatted list of article subjects shows up at\nthe printer. With major mode printing you don't need to switch from gnus\n*Summary* buffer first.\n\nThe elements have the following form:\n\n (MAJOR-MODE\n LPR-PRINT PS-PRINT\n HEADER-LINES\n LEFT-HEADER\n RIGHT-HEADER\n KILL-LOCAL-VARIABLE\n DEFAULT...)\n\nWhere:\n\nMAJOR-MODE It's the major mode symbol.\n\nLPR-PRINT It's a symbol function for text printing. It's invoked with\n one argument:\n (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...).\n\n Usually LPR-PRINT function prepares the environment or buffer\n and then call the function `pr-mode-lpr' which it's used to\n process the buffer and send it to text printer.\n\n The `pr-mode-lpr' definition is:\n\n (pr-mode-lpr HEADER-LIST &optional FROM TO)\n\n Where HEADER-LIST is like the argument passed to LPR-PRINT.\n FROM and TO are the beginning and end markers, respectively,\n for a region. If FROM is nil, it's used (point-min); if TO is\n nil, it's used (point-max).\n\nPS-PRINT It's a symbol function for PostScript printing. It's invoked\n with three arguments: n-up printing, file name and the list:\n (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...).\n\n Usually PS-PRINT function prepares the environment or buffer\n and then call the function `pr-mode-print' which it's used to\n process the buffer and send it to PostScript printer.\n\n The `pr-mode-print' definition is:\n\n (pr-mode-print N-UP FILENAME HEADER-LIST &optional FROM TO)\n\n Where N-UP, FILENAME and HEADER-LIST are like the arguments\n passed to PS-PRINT. FROM and TO are the beginning and end\n markers, respectively, for a region. If TO is nil, it's used\n (point-max).\n\nHEADER-LINES It's the number of header lines; if is nil, it uses\n `ps-header-lines' value.\n\nLEFT-HEADER It's the left header part, it's a list of string, variable\n symbol or function symbol (with no argument); if is nil, it\n uses `ps-left-header' value.\n\nRIGHT-HEADER It's the right header part, it's a list of string, variable\n symbol or function symbol (with no argument); if is nil, it\n uses `ps-right-header' value.\n\nKILL-LOCAL-VARIABLE\n Non-nil means to kill all buffer local variable declared in\n DEFAULT (see below).\n\nDEFAULT It's a way to set default values when this entry is selected.\n It's a cons like:\n\n (VARIABLE-SYM . VALUE)\n\n Which associates VARIABLE-SYM with VALUE. When this entry is\n selected, it's executed the following command:\n\n (set (make-local-variable VARIABLE-SYM) (eval VALUE))\n\n Note that VALUE can be any valid lisp expression. So, don't\n forget to quote symbols and constant lists.\n If VARIABLE is the special keyword `inherits-from:', VALUE must\n be a symbol name setting defined in `pr-setting-database' from\n which the current setting inherits the context. Take care with\n circular inheritance.\n Examples:\n '(ps-landscape-mode . nil)\n '(ps-spool-duplex . t)\n '(pr-gs-device . (my-gs-device t))" (repeat (list :tag #1# (symbol :tag "Major Mode") (function :tag "Text Printing Function") (function :tag "PS Printing Function") (choice :menu-tag "Number of Header Lines" :tag "Number of Header Lines" (integer :tag "Number") (const :tag "Default Number" nil)) (repeat :tag "Left Header List" (choice :menu-tag "Left Header" :tag "Left Header" string symbol)) (repeat :tag "Right Header List" (choice :menu-tag "Right Header" :tag "Right Header" string symbol)) (boolean :tag "Kill Local Variable At End") (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) pr-ps-utility 'mpage "Specify PostScript utility symbol.\n\nThis utility symbol should be defined on `pr-ps-utility-alist' (see it for\ndocumentation).\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update PostScript utility menu.\n\nNOTE: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'." (symbol :tag "PS File Utility") pr-ps-utility-custom-set pr-ps-utility-alist '((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil) (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil (inherits-from: . no-duplex))) "Specify an alist for PostScript utility processing (PS utility database).\n\nThe alist element has the form:\n\n (SYMBOL UTILITY MUST-SWITCHES PAPERSIZE N-UP LANDSCAPE DUPLEX TUMBLE OUTPUT\n SWITCHES DEFAULT...)\n\nWhere:\n\nSYMBOL It's a symbol to identify a PostScript utility. It's for\n `pr-ps-utility' variable setting and for menu selection.\n Examples:\n 'mpage\n 'psnup\n\nUTILITY Name of utility for processing a PostScript file.\n See also `pr-path-alist'.\n Examples:\n . for GNU or Unix system:\n \"mpage\"\n \"psnup -q\"\n\n . for Windows system:\n \"c:/psutils/psnup -q\"\n\nMUST-SWITCHES List of sexp's to pass as options to the PostScript utility\n program. These options are necessary to process the utility\n program and must be placed before any other switches.\n Example:\n . for psnup:\n '(\"-q\")\n\nPAPERSIZE It's a format string to specify paper size switch.\n Example:\n . for mpage\n \"-b%s\"\n\nN-UP It's a format string to specify n-up switch.\n Example:\n . for psnup\n \"-%d\"\n\nLANDSCAPE It's a string to specify landscape switch. If the utility\n doesn't have landscape switch, set to nil.\n Example:\n . for psnup\n \"-l\"\n\nDUPLEX It's a string to specify duplex switch. If the utility doesn't\n have duplex switch, set to nil.\n Example:\n . for psnup\n nil\n\nTUMBLE It's a string to specify tumble switch. If the utility doesn't\n have tumble switch, set to nil.\n Example:\n . for psnup\n nil\n\nOUTPUT It's a string to specify how to generate an output file. Some\n utilities accept an output file option, but some others need\n output redirection or some other way to specify an output file.\n Example:\n . for psnup\n \" \" ; psnup ... input output\n\n . for mpage\n \">\" ; mpage ... input > output\n\nSWITCHES List of sexp's to pass as extra options to the PostScript utility\n program.\n Example:\n . for psnup\n '(\"-q\")\n nil\n\nDEFAULT It's a way to set default values when this entry is selected.\n It's a cons like:\n\n (VARIABLE . VALUE)\n\n Which associates VARIABLE with VALUE. When this entry is\n selected, it's executed the following command:\n\n (set VARIABLE (eval VALUE))\n\n Note that VALUE can be any valid lisp expression. So, don't\n forget to quote symbols and constant lists.\n If VARIABLE is the special keyword `inherits-from:', VALUE must\n be a symbol name setting defined in `pr-setting-database' from\n which the current setting inherits the context. Take care with\n circular inheritance.\n Examples:\n '(pr-file-landscape . nil)\n '(pr-file-duplex . t)\n '(pr-gs-device . (my-gs-device t))\n\nThis variable should be modified by customization engine. If this variable is\nmodified by other means (for example, a lisp function), use `pr-update-menus'\nfunction (see it for documentation) to update PostScript utility menu.\n\nNOTE: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'.\n\nExamples:\n\n* On GNU or Unix system:\n\n '((mpage \"mpage\" nil \"-b%s\" \"-%d\" \"-l\" \"-t\" \"-T\" \">\" nil)\n (psnup \"psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \" nil\n (pr-file-duplex . nil) (pr-file-tumble . nil))\n )\n\n* On Windows system:\n\n '((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \"\n nil (pr-file-duplex . nil) (pr-file-tumble . nil))\n )\n\nUseful links:\n\n* mpage download (GNU or Unix)\n `http://www.mesa.nl/pub/mpage/'\n\n* mpage documentation (GNU or Unix - or type `man mpage')\n `http://www.cs.umd.edu/faq/guides/manual_unix/node48.html'\n `http://www.rt.com/man/mpage.1.html'\n\n* psnup (Windows, GNU or Unix)\n `http://www.knackered.org/angus/psutils/'\n `http://gershwin.ens.fr/vdaniel/Doc-Locale/Outils-Gnu-Linux/PsUtils/'\n\n* psnup (PsUtils for Windows)\n `http://gnuwin32.sourceforge.net/packages/psutils.htm'\n\n* psnup documentation (GNU or Unix - or type `man psnup')\n `http://linux.about.com/library/cmd/blcmdl1_psnup.htm'\n `http://amath.colorado.edu/computing/software/man/psnup.html'\n\n* GNU Enscript (Windows, GNU or Unix)\n `http://people.ssh.com/mtr/genscript/'\n\n* GNU Enscript documentation (Windows, GNU or Unix)\n `http://people.ssh.com/mtr/genscript/enscript.man.html'\n (on GNU or Unix, type `man enscript')\n" (repeat (list :tag "PS File Utility" (symbol :tag "Utility Symbol") (string :tag "Utility Name") (repeat :tag "Must Utility Switches" (sexp :tag "Switch" :value #1#)) (choice :menu-tag "Paper Size" :tag "Paper Size" (const :tag "No Paper Size" nil) (string :tag "Paper Size Format")) (choice :menu-tag "N-Up" :tag "N-Up" (const :tag "No N-Up" nil) (string :tag "N-Up Format")) (choice :menu-tag "Landscape" :tag "Landscape" (const :tag "No Landscape" nil) (string :tag "Landscape Switch")) (choice :menu-tag "Duplex" :tag "Duplex" (const :tag "No Duplex" nil) (string :tag "Duplex Switch")) (choice :menu-tag "Tumble" :tag "Tumble" (const :tag "No Tumble" nil) (string :tag "Tumble Switch")) (string :tag "Output Separator") (repeat :tag "Utility Switches" (sexp :tag "Switch" :value #1#)) (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) pr-menu-lock "Non-nil means menu is locked while selecting toggle options.\n\nSee also `pr-menu-char-height' and `pr-menu-char-width'." pr-menu-char-height (pr-menu-char-height) "Specify menu char height in pixels.\n\nThis variable is used to guess which vertical position should be locked the\nmenu, so don't forget to adjust it if menu position is not ok.\n\nSee also `pr-menu-lock' and `pr-menu-char-width'." integer pr-menu-char-width (pr-menu-char-width) "Specify menu char width in pixels.\n\nThis variable is used to guess which horizontal position should be locked the\nmenu, so don't forget to adjust it if menu position is not ok.\n\nSee also `pr-menu-lock' and `pr-menu-char-height'." pr-setting-database '((no-duplex nil nil nil (pr-file-duplex) (pr-file-tumble))) "Specify an alist for settings in general.\n\nThe elements have the following form:\n\n (SYMBOL INHERITS LOCAL KILL-LOCAL SETTING...)\n\nWhere:\n\nSYMBOL It's a symbol to identify the setting group.\n\nINHERITS Specify the inheritance for SYMBOL group. It's a symbol name\n setting from which the current setting inherits the context.\n If INHERITS is nil, means that there is no inheritance.\n This is a simple inheritance mechanism.\n\n Let's see an example to illustrate the inheritance mechanism:\n\n (setq pr-setting-database\n '((no-duplex ; setting symbol name\n nil ; inherits\n nil nil ; local kill-local\n (pr-file-duplex . nil) ; settings\n (pr-file-tumble . nil)\n )\n (no-duplex-and-landscape ; setting symbol name\n no-duplex ; inherits\n nil nil ; local kill-local\n (pr-file-landscape . nil) ; settings\n )))\n\n The example above has two setting groups: no-duplex and\n no-duplex-and-landscape. When setting no-duplex is activated\n through `inherits-from:' (see `pr-ps-utility', `pr-mode-alist'\n and `pr-ps-printer-alist'), the variables pr-file-duplex and\n pr-file-tumble are both set to nil.\n\n Now when setting no-duplex-and-landscape is activated through\n `inherits-from:', the variable pr-file-landscape is set to nil\n and also the settings for no-duplex are done, because\n no-duplex-and-landscape inherits settings from no-duplex.\n\n Take care with circular inheritance. It's an error if circular\n inheritance happens.\n\nLOCAL Non-nil means that all settings for SYMBOL group will be\n declared local buffer.\n\nKILL-LOCAL Non-nil means that all settings for SYMBOL group will be\n killed at end. It has effect only when LOCAL is non-nil.\n\nSETTING It's a cons like:\n\n (VARIABLE . VALUE)\n\n Which associates VARIABLE with VALUE. When this entry is\n selected, it's executed the following command:\n\n * If LOCAL is non-nil:\n (set (make-local-variable VARIABLE) (eval VALUE))\n\n * If LOCAL is nil:\n (set VARIABLE (eval VALUE))\n\n Note that VALUE can be any valid lisp expression. So, don't\n forget to quote symbols and constant lists.\n This setting is ignored if VARIABLE is equal to keyword\n `inherits-from:'.\n Examples:\n '(ps-landscape-mode . nil)\n '(ps-spool-duplex . t)\n '(pr-gs-device . (my-gs-device t))" (repeat (list :tag #1# (symbol :tag "Setting Name") (choice :menu-tag "Inheritance" :tag "Inheritance" (const :tag "No Inheritance" nil) (symbol :tag "Inherits From")) (boolean :tag "Local Buffer Setting") (boolean :tag "Kill Local Variable At End") (repeat :tag "Setting List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (variable :tag "Other")) (sexp :tag "Value"))))) pr-visible-entry-list '(postscript text postscript-options postscript-process printing help) "Specify a list of Printing menu visible entries.\n\nValid values with the corresponding menu parts are:\n\n +------------------------------+\n | Printing Interface |\n +------------------------------+\n `postscript' | PostScript Preview >|\n | PostScript Print >|\n | PostScript Printer: name >|\n +------------------------------+\n `text' | Printify >|\n | Print >|\n | Text Printer: name >|\n +------------------------------+\n `postscript-options' |[ ] Landscape |\n |[ ] Print Header |\n |[ ] Print Header Frame |\n |[ ] Line Number |\n |[ ] Zebra Stripes |\n |[ ] Duplex |\n |[ ] Tumble |\n |[ ] Upside-Down |\n | Print All Pages >|\n +------------------------------+\n `postscript-process' |[ ] Spool Buffer |\n |[ ] Print with faces |\n |[ ] Print via Ghostscript |\n +------------------------------+\n `printing' |[ ] Auto Region |\n |[ ] Auto Mode |\n |[ ] Menu Lock |\n +------------------------------+\n `help' | Customize >|\n | Show Settings >|\n | Help |\n +------------------------------+\n\nAny other value is ignored." (repeat :tag "Menu Visible Part" (choice :menu-tag "Menu Part" :tag "Menu Part" (const postscript) (const text) (const postscript-options) (const postscript-process) (const printing) (const help))) pr-delete-temp-file "Non-nil means delete temporary files.\n\nSet `pr-delete-temp-file' to nil, if the following message (or a similar)\nhappens when printing:\n\n Error: could not open \"c:\\temp\\prspool.ps\" for reading." pr-list-directory "Non-nil means list directory when processing a directory.\n\nThat is, any subdirectories (and the superdirectory) of the directory (given as\nargument of functions below) are also printed (as dired-mode listings).\n\nIt's used by `pr-ps-directory-preview', `pr-ps-directory-using-ghostscript',\n`pr-ps-directory-print', `pr-ps-directory-ps-print', `pr-printify-directory'\nand `pr-txt-directory'." pr-buffer-name "*Printing Interface*" "Specify the name of the buffer interface for printing package.\n\nIt's used by `pr-interface'." string pr-buffer-name-ignore (list (regexp-quote pr-buffer-name) "^ .*$") "Specify a regexp list for buffer names to be ignored in interface buffer.\n\nNOTE: Case is important for matching, that is, `case-fold-search' is always\n nil.\n\nIt's used by `pr-interface'." (repeat (regexp :tag "Buffer Name Regexp")) pr-buffer-verbose "Non-nil means to be verbose when editing a field in interface buffer.\n\nIt's used by `pr-interface'."] 16)
#@71 Name of program for printing a text file.
See `pr-txt-printer-alist'.
(defvar pr-txt-command nil (#$ . 53030))
#@98 List of sexp's to pass as extra options to the text printer program.
See `pr-txt-printer-alist'.
(defvar pr-txt-switches nil (#$ . 53147))
#@56 Specify text printer name.
See `pr-txt-printer-alist'.
(defvar pr-txt-printer nil (#$ . 53292))
#@76 Name of program for printing a PostScript file.
See `pr-ps-printer-alist'.
(defvar pr-ps-command nil (#$ . 53394))
#@103 List of sexp's to pass as extra options to the PostScript printer program.
See `pr-ps-printer-alist'.
(defvar pr-ps-switches nil (#$ . 53516))
#@68 Specify PostScript printer name switch.
See `pr-ps-printer-alist'.
(defvar pr-ps-printer-switch nil (#$ . 53665))
#@61 Specify PostScript printer name.
See `pr-ps-printer-alist'.
(defvar pr-ps-printer nil (#$ . 53785))
#@47 Set temporally file modes to `pr-file-modes'.
(defalias 'pr-save-file-modes '(macro . #[(&rest body) "\301\302\303\304\305\"BBB\207" [body let ((pr--default-file-modes (default-file-modes))) (set-default-file-modes pr-file-modes) append ((set-default-file-modes pr--default-file-modes))] 6 (#$ . 53891)]))
(defalias 'pr-visible-p #[(key) " >\207" [key pr-visible-entry-list] 2])
(put 'pr-visible-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'pr-mode-alist-p #[nil " \236A\207" [major-mode pr-mode-alist] 2])
(put 'pr-mode-alist-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'pr-auto-mode-p #[nil "\205 \n\236A\207" [pr-auto-mode major-mode pr-mode-alist] 2])
(put 'pr-auto-mode-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'pr-using-ghostscript-p #[nil "\205 ?\207" [pr-print-using-ghostscript pr-spool-p] 1])
(byte-code "\300\301\302\303#\210\304\305\306\307!\203 \307\202 \310\"\207" [put pr-using-ghostscript-p byte-optimizer byte-compile-inline-expand defalias pr-get-symbol fboundp easy-menu-intern #[(s) ";\203 \301!\207\207" [s intern] 2]] 4)
(defconst pr-menu-spec (byte-code "\302\303\304\305\306\307\310!BB\"\311\312\313\314\315\316!\317 \320BB\321 \322BB\323 \324BB\325 \326BB\327\304\305\330\331\332\333\334!BBBB\"\311\304\305\335\336\302\337\340!BBBB\"\311\341\342\343\344\311\304\305\345\346\347\350\351\352\315\353!\354\"BBBBBB\"\304\305\355\356\347\350\351\357\315\360!\361\"BBBBBB\"\304\305\362\363\347\350\351\364\315\365!\366\"BBBBBB\"\257
\304\305\367\370\302\371\332\372\373!BBBBBB\"\257\"BBB\374\313\375\315\376!\377\201@ \323 \201A BB\325 \201B BB\327\304\305\330\201C \332\201D \201E !BBBB\"\311\304\305\335\336\302\337\340!BBBB\"\311\201F \201G \201H \201I \311\304\305\345\346\347\350\351\352\315\353!\201J \"BBBBBB\"\304\305\355\356\347\350\351\357\315\360!\201K \"BBBBBB\"\304\305\362\363\347\350\351\364\315\365!\201L \"BBBBBB\"\257
\304\305\367\201M \302\371\332\201N \373!BBBBBB\"\257\"BBB\304\305\201O \336\302\201P \313\201Q \201R !BBBBBB\"\311\201S \313\201T \315\201U !\201V \"BBB\201W \313\201X \315\201Y !\201Z \"BBB\304\305\201[ \336\302\201\\ \313\201] \201^ !BBBBBB\"\311\201_ \201` \201a \201b \201c \201d \201e \201f \201g \313\201h \315\201i !\201j \"BBB\311\304\305\201k \201l \347\350\351\371\313\201m \201n !BBBBBBBB\"\304\305\201o \201p \347\350\351\201q \313\201r \201s !BBBBBBBB\"\304\305\201t \201u \347\350\351\201v \313\201w \201x !BBBBBBBB\"*\201y BBBBBBBBBBBBBBBBBBBBBBB\207" [pr-:help pr-:active :active #[(text) "\301D\207" [text :help] 2] apply vector "Printing Interface" pr-interface "Use buffer interface instead of menu interface" "--" "PostScript Preview" :included (pr-visible-p 'postscript) append "Preview PostScript instead of sending to printer" "Directory" ((not pr-spool-p) ["1-up" (pr-ps-directory-preview 1 nil nil t) t] ["2-up" (pr-ps-directory-preview 2 nil nil t) t] ["4-up" (pr-ps-directory-preview 4 nil nil t) t] ["Other..." (pr-ps-directory-preview nil nil nil t) :keys "\\[pr-ps-buffer-preview]"]) "Buffer" ((not pr-spool-p) ["1-up" (pr-ps-buffer-preview 1 t) t] ["2-up" (pr-ps-buffer-preview 2 t) t] ["4-up" (pr-ps-buffer-preview 4 t) t] ["Other..." (pr-ps-buffer-preview nil t) :keys "\\[pr-ps-buffer-preview]"]) "Region" ((and (not pr-spool-p) (ps-mark-active-p)) ["1-up" (pr-ps-region-preview 1 t) t] ["2-up" (pr-ps-region-preview 2 t) t] ["4-up" (pr-ps-region-preview 4 t) t] ["Other..." (pr-ps-region-preview nil t) :keys "\\[pr-ps-region-preview]"]) "Mode" ((and (not pr-spool-p) (pr-mode-alist-p)) ["1-up" (pr-ps-mode-preview 1 t) t] ["2-up" (pr-ps-mode-preview 2 t) t] ["4-up" (pr-ps-mode-preview 4 t) t] ["Other..." (pr-ps-mode-preview nil t) :keys "\\[pr-ps-mode-preview]"]) "File" "No Preprocessing..." (call-interactively 'pr-ps-file-preview) :keys "\\[pr-ps-file-preview]" "Preview PostScript file" "PostScript Utility" pr-update-menus pr-ps-utility-alist "Select PostScript utility" ["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist] ["2-up..." (pr-ps-file-up-preview 2 t t) pr-ps-utility-alist] ["4-up..." (pr-ps-file-up-preview 4 t t) pr-ps-utility-alist] ["Other..." (pr-ps-file-up-preview nil t t) :keys "\\[pr-ps-file-up-preview]" :active pr-ps-utility-alist] "Landscape" pr-toggle-file-landscape-menu :style toggle :selected pr-file-landscape "Toggle landscape for PostScript file" (:active pr-ps-utility-alist) "Duplex" pr-toggle-file-duplex-menu pr-file-duplex "Toggle duplex for PostScript file" (:active pr-ps-utility-alist) "Tumble" pr-toggle-file-tumble-menu pr-file-tumble "Toggle tumble for PostScript file" (:active (and pr-file-duplex pr-ps-utility-alist)) "Despool..." (call-interactively 'pr-despool-preview) pr-spool-p "\\[pr-despool-preview]" "Despool PostScript buffer to printer or file (C-u)" "PostScript Print" (pr-visible-p 'postscript) "Send PostScript to printer or file (C-u)" ("Directory" ["1-up" (pr-ps-directory-ps-print 1 nil nil t) t] ["2-up" (pr-ps-directory-ps-print 2 nil nil t) t] ["4-up" (pr-ps-directory-ps-print 4 nil nil t) t] ["Other..." (pr-ps-directory-ps-print nil nil nil t) :keys "\\[pr-ps-buffer-ps-print]"]) ("Buffer" ["1-up" (pr-ps-buffer-ps-print 1 t) t] ["2-up" (pr-ps-buffer-ps-print 2 t) t] ["4-up" (pr-ps-buffer-ps-print 4 t) t] ["Other..." (pr-ps-buffer-ps-print nil t) :keys "\\[pr-ps-buffer-ps-print]"]) ((ps-mark-active-p) ["1-up" (pr-ps-region-ps-print 1 t) t] ["2-up" (pr-ps-region-ps-print 2 t) t] ["4-up" (pr-ps-region-ps-print 4 t) t] ["Other..." (pr-ps-region-ps-print nil t) :keys "\\[pr-ps-region-ps-print]"]) ((pr-mode-alist-p) ["1-up" (pr-ps-mode-ps-print 1 t) t] ["2-up" (pr-ps-mode-ps-print 2 t) t] ["4-up" (pr-ps-mode-ps-print 4 t) t] ["Other..." (pr-ps-mode-ps-print nil t) :keys "\\[pr-ps-mode-ps-print]"]) (call-interactively 'pr-ps-file-ps-print) "\\[pr-ps-file-ps-print]" "Send PostScript file to printer" ["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist] ["2-up..." (pr-ps-file-up-ps-print 2 t t) pr-ps-utility-alist] ["4-up..." (pr-ps-file-up-ps-print 4 t t) pr-ps-utility-alist] ["Other..." (pr-ps-file-up-ps-print nil t t) :keys "\\[pr-ps-file-up-ps-print]" :active pr-ps-utility-alist] (:active pr-ps-utility-alist) (:active pr-ps-utility-alist) (:active (and pr-file-duplex pr-ps-utility-alist)) (call-interactively 'pr-despool-ps-print) "\\[pr-despool-ps-print]" "PostScript Printers" pr-ps-printer-alist (pr-visible-p 'postscript) "Select PostScript printer" "Printify" (pr-visible-p 'text) "Replace non-printing chars with printable representations." (["Directory" pr-printify-directory t] ["Buffer" pr-printify-buffer t] ["Region" pr-printify-region (ps-mark-active-p)]) "Print" (pr-visible-p 'text) "Send text to printer" (["Directory" pr-txt-directory t] ["Buffer" pr-txt-buffer t] ["Region" pr-txt-region (ps-mark-active-p)] ["Mode" pr-txt-mode (pr-mode-alist-p)]) "Text Printers" pr-txt-printer-alist (pr-visible-p 'text) "Select text printer" ["Landscape" pr-toggle-landscape-menu :style toggle :selected ps-landscape-mode :included (pr-visible-p 'postscript-options)] ["Print Header" pr-toggle-header-menu :style toggle :selected ps-print-header :included (pr-visible-p 'postscript-options)] ["Print Header Frame" pr-toggle-header-frame-menu :style toggle :selected ps-print-header-frame :active ps-print-header :included (pr-visible-p 'postscript-options)] ["Line Number" pr-toggle-line-menu :style toggle :selected ps-line-number :included (pr-visible-p 'postscript-options)] ["Zebra Stripes" pr-toggle-zebra-menu :style toggle :selected ps-zebra-stripes :included (pr-visible-p 'postscript-options)] ["Duplex" pr-toggle-duplex-menu :style toggle :selected ps-spool-duplex :included (pr-visible-p 'postscript-options)] ["Tumble" pr-toggle-tumble-menu :style toggle :selected ps-spool-tumble :active ps-spool-duplex :included (pr-visible-p 'postscript-options)] ["Upside-Down" pr-toggle-upside-down-menu :style toggle :selected ps-print-upside-down :included (pr-visible-p 'postscript-options)] "Print All Pages" (pr-visible-p 'postscript-options) "Select odd/even pages/sheets to print" (["All Pages" (pr-even-or-odd-pages nil) :style radio :selected (eq ps-even-or-odd-pages nil)] ["Even Pages" (pr-even-or-odd-pages 'even-page) :style radio :selected (eq ps-even-or-odd-pages 'even-page)] ["Odd Pages" (pr-even-or-odd-pages 'odd-page) :style radio :selected (eq ps-even-or-odd-pages 'odd-page)] ["Even Sheets" (pr-even-or-odd-pages 'even-sheet) :style radio :selected (eq ps-even-or-odd-pages 'even-sheet)] ["Odd Sheets" (pr-even-or-odd-pages 'odd-sheet) :style radio :selected (eq ps-even-or-odd-pages 'odd-sheet)]) "Spool Buffer" pr-toggle-spool-menu (pr-visible-p 'postscript-process) "Toggle PostScript spooling" "Print with faces" pr-toggle-faces-menu pr-faces-p (pr-visible-p 'postscript-process) "Toggle PostScript printing with faces" "Print via Ghostscript" pr-toggle-ghostscript-menu pr-print-using-ghostscript (pr-visible-p 'postscript-process) "Toggle PostScript generation using ghostscript" ("--" ["Auto Region" pr-toggle-region-menu :style toggle :selected pr-auto-region :included (pr-visible-p 'printing)] ["Auto Mode" pr-toggle-mode-menu :style toggle :selected pr-auto-mode :included (pr-visible-p 'printing)] ["Menu Lock" pr-toggle-lock-menu :style toggle :selected pr-menu-lock :included (pr-visible-p 'printing)] "--" ("Customize" :included (pr-visible-p 'help) ["printing" pr-customize t] ["ps-print" ps-print-customize t] ["lpr" lpr-customize t]) ("Show Settings" :included (pr-visible-p 'help) ["printing" pr-show-pr-setup t] ["ps-print" pr-show-ps-setup t] ["lpr" pr-show-lpr-setup t]) ["Help" pr-help :active t :included (pr-visible-p 'help)])] 35))
#@153 Install `printing' menu in the menubar.
This replaces the File/Print* menu entries with a File/Print sub-menu.
Calls `pr-update-menus' to adjust menus.
(defalias 'pr-menu-bind #[nil "\301!\210\302\303!\207" [pr-menu-spec pr-global-menubar pr-update-menus t] 2 (#$ . 63568) nil])
(byte-code "\301\302\303!\304\"\210\302\303\305D!\306\"\210\302\303\307D!\306\"\210\302\303\310D!\311\"\210\302\303\310\305E!\311\"\210)\301\207" [pr-print-key print global-set-key vector pr-ps-fast-fire meta pr-ps-mode-using-ghostscript shift control pr-txt-fast-fire] 5)
#@24 Printing help message.
(defconst pr-help-message (concat "printing.el version " pr-version " ps-print.el version " ps-print-version "\n\n\nMenu Layout\n-----------\n\nThe `printing' menu (Tools/Printing or File/Print) has the following layout:\n\n +-----------------------------+\nA 0 | Printing Interface |\n +-----------------------------+ +-A---------+ +-B------+\nI 1 | PostScript Preview >|-------|Directory >|-----|1-up |\n 2 | PostScript Print >|---- A |Buffer >|-- B |2-up |\n 3 | PostScript Printer: name >|---- C |Region >|-- B |4-up |\n +-----------------------------+ |Mode >|-- B |Other...|\nII 4 | Printify >|-----\\ |File >|--\\ +--------+\n 5 | Print >|---\\ | |Despool... | |\n 6 | Text Printer: name >|-\\ | | +-----------+ |\n +-----------------------------+ | | | +---------+ +------------+\nIII 7 |[ ]Landscape | | | \\-|Directory| | No Prep... | Ia\n 8 |[ ]Print Header | | | |Buffer | +------------+ Ib\n 9 |[ ]Print Header Frame | | | |Region | | name >|- C\n 10 |[ ]Line Number | | | +---------+ +------------+\n 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic\n 12 |[ ]Duplex | | \\---|Directory| | 2-up... |\n 13 |[ ]Tumble | \\--\\ |Buffer | | 4-up... |\n 14 |[ ]Upside-Down | | |Region | | Other... |\n 15 | Print All Pages >|--\\ | |Mode | +------------+\n +-----------------------------+ | | +---------+ |[ ]Landscape| Id\nIV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie\n 17 |[ ]Print with faces | | \\--|( )name A| |[ ]Tumble | If\n 18 |[ ]Print via Ghostscript | | |( )name B| +------------+\n +-----------------------------+ | |... |\nV 19 |[ ]Auto Region | | |(*)name |\n 20 |[ ]Auto Mode | | |... |\n 21 |[ ]Menu Lock | | +---------+ +--------------+\n +-----------------------------+ \\------------------|(*)All Pages |\nVI 22 | Customize >|--- D +-D------+ |( )Even Pages |\n 23 | Show Settings >|-------|printing| |( )Odd Pages |\n 24 | Help | |ps-print| |( )Even Sheets|\n +-----------------------------+ |lpr | |( )Odd Sheets |\n +--------+ +--------------+\n\nSee `pr-visible-entry-list' for hiding some parts of the menu.\n\nThe menu has the following sections:\n\nA. Interface:\n\n 0. You can use a buffer interface instead of menus. It looks like the\n customization buffer. Basically, it has the same options found in the\n menu and some extra options, all this on a buffer.\n\nI. PostScript printing:\n\n 1. You can generate a PostScript file (if you type C-u before activating\n menu) or PostScript temporary file for a directory, a buffer, a region\n or a major mode, choosing 1-up, 2-up, 4-up or any other n-up printing;\n after file generation, ghostview is activated using the file generated\n as argument. This option is disabled if spooling is on (option 16).\n Also, if you already have a PostScript file you can preview it.\n Instead of previewing each buffer, region or major mode at once, you\n can save temporarily the PostScript code generated in a buffer and\n preview it later. The option `Despool...' despools the PostScript\n spooling buffer in a temporary file and uses ghostview to preview it.\n If you type C-u before choosing this option, the PostScript code\n generated is saved in a file instead of saving in a temporary file. To\n spool the PostScript code generated you need to turn on the option 16.\n The option `Despool...' is enabled if spooling is on (option 16).\n\n NOTE 1: It's possible to customize a major mode printing, just declare\n the customization in `pr-mode-alist' and invoke some of\n `*-mode*' commands or select Mode option in Printing menu. An\n example for major mode usage is when you're using gnus (or mh,\n or rmail, etc.) and you're in the *Summary* buffer, if you\n forget to switch to the *Article* buffer before printing,\n you'll get a nicely formatted list of article subjects shows\n up at the printer. With major mode printing you don't need to\n switch from gnus *Summary* buffer first.\n\n NOTE 2: There are the following options for PostScript file processing:\n Ia. Print the file *No Preprocessing*, that is, send it\n directly to PostScript printer.\n Ib. PostScript utility processing selection.\n See `pr-ps-utility-alist' and `pr-setting-database' for\n documentation.\n Ic. Do n-up processing before printing.\n Id. Toggle on/off landscape for PostScript file processing.\n Ie. Toggle on/off duplex for PostScript file processing.\n If. Toggle on/off tumble for PostScript file processing.\n\n NOTE 3: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'.\n\n 2. Operate the same way as option 1, but it sends directly the PostScript\n code (or put in a file, if you've typed C-u) or it uses ghostscript to\n print the PostScript file generated. It depends on option 18, if it's\n turned on, it uses ghostscript; otherwise, it sends directly to\n printer. If spooling is on (option 16), the PostScript code is saved\n temporarily in a buffer instead of printing it or saving it in a file.\n Also, if you already have a PostScript file you can print it.\n Instead of printing each buffer, region or major mode at once, you can\n save temporarily the PostScript code generated in a buffer and print it\n later. The option `Despool...' despools the PostScript spooling buffer\n directly on a printer. If you type C-u before choosing this option,\n the PostScript code generated is saved in a file instead of sending it to\n the printer. To spool the PostScript code generated you need to turn on\n option 16. This option is enabled if spooling is on (option 16).\n See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.\n\n 3. You can select a new PostScript printer to send PostScript code\n generated. For selection it's used all PostScript printers defined\n in `pr-ps-printer-alist' variable (see it for documentation).\n See also `pr-setting-database'.\n\nII. Text printing:\n\n 4. If you have control characters (character code from \\000 to \\037) in a\n buffer and you want to print them in a text printer, select this\n option. All control characters in your buffer or region will be\n replaced by a printable representation. The printable representations\n use ^ (for ASCII control characters) or hex. The characters tab,\n linefeed, space, return and formfeed are not affected.\n You don't need to select this option if you use any option of section\n I, the PostScript engine treats control characters properly.\n\n 5. If you want to print a directory, buffer, region or major mode in a\n text printer, select this option. See also the NOTE 1 on option 1.\n\n 6. You can select a new text printer to send text generated. For\n selection it's used all text printers defined in `pr-txt-printer-alist'\n variable (see it for documentation).\n See also `pr-setting-database'.\n\nIII. PostScript page toggle options:\n\n 7. If you want a PostScript landscape printing, turn on this option.\n\n 8. If you want to have a header in each page in your PostScript code,\n turn on this option.\n\n 9. If you want to draw a gaudy frame around the header, turn on this\n option. This option is enabled if print header is on (option 8).\n\n 10. If you want that the line number is printed in your PostScript code,\n turn on this option.\n\n 11. If you want background zebra stripes in your PostScript code, turn on\n this option.\n\n 12. If you want a duplex printing and your PostScript printer has this\n feature, turn on this option.\n\n 13. If you turned on duplex printing, you can choose if you want to have a\n printing suitable for binding on the left or right (tumble off), or to\n have a printing suitable for binding at top or bottom (tumble on).\n This option is enabled if duplex is on (option 12).\n\n 14. If you want a PostScript upside-down printing, turn on this option.\n\n 15. With this option, you can choose if you want to print all pages, odd\n pages, even pages, odd sheets or even sheets.\n See also `ps-even-or-odd-pages'.\n\nIV. PostScript processing toggle options:\n\n 16. If you want to spool the PostScript code generated, turn on this\n option. To spool the PostScript code generated use option 2. You can\n despool later by choosing option 1 or 2, sub-option `Despool...'.\n\n 17. If you use colors in your buffers and want to see these colors on your\n PostScript code generated, turn on this option. If you have a\n black/white PostScript printer, these colors are displayed in gray\n scale by PostScript printer interpreter.\n\n 18. If you don't have a PostScript printer to send PostScript files, turn\n on this option. When this option is on, the ghostscript is used to\n print PostScript files. In GNU or Unix system, if ghostscript is set\n as a PostScript filter, you don't need to turn on this option.\n\nV. Printing customization:\n\n 19. If you want that region is automagically detected, turn on this\n option. Note that this will only work if you're using transient mark\n mode. When this option is on, the `*-buffer*' commands will behave\n like `*-region*' commands, that is, `*-buffer*' commands will print\n only the region marked instead of all buffer.\n\n 20. Turn this option on if you want that when current major-mode is\n declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands\n behave like `*-mode*' commands.\n\n 21. If you want that Printing menu stays open while you are setting\n toggle options, turn on this option. The variables\n `pr-menu-char-height' and `pr-menu-char-width' are used to guess the\n menu position, so don't forget to adjust these variables if menu\n position is not ok.\n\nVI. Customization:\n\n 22. Besides all options in section III, IV and V, you can customize much\n more PostScript options in `ps-print' option. Or you can customize\n some `lpr' options for text printing. Or customize `printing'\n options.\n\n 23. Show current settings for `printing', `ps-print' or `lpr'.\n\n 24. Quick help for printing menu layout.\n") (#$ . 64133))
#@41 Printing buffer interface help message.
(defconst pr-interface-help-message (concat "printing.el version " pr-version " ps-print.el version " ps-print-version "\n\n\nThe printing interface buffer has the same functionality as the printing menu.\nThe major difference is that the states (like sending PostScript generated to a\nfile, n-up printing, etc.) are set and saved between printing buffer\nactivation. Also, the landscape, duplex and tumble values are the same for\nPostScript file and directory/buffer/region/mode processing; using menu, there\nare different value sets for PostScript file and directory/buffer/region/mode\nprocessing.\n\nThe printing interface buffer has the following sections:\n\n1. Print:\n\n Here you can choose to print/preview a buffer, a directory or a PostScript\n file:\n\n 1a. Buffer:\n\n * Buffer List:\n Select a buffer from the current buffer list.\n\n * Region:\n If it's on, this means that the selected buffer has an active region,\n so you can turn on/off, as you wish.\n If it's off when a buffer is selected, this means that the selected\n buffer has no active region, so it'll not be possible to turn it on.\n If you want to process the region, let this option on.\n If you want to process the whole buffer, let this option off.\n\n * Mode:\n If it's on, this means that the selected buffer major mode is declared\n for major mode processing, so you can turn on/off, as you wish.\n If it's off when a buffer is selected, this means that the selected\n buffer major mode isn't declared for major mode processing, so it'll\n not be possible to turn it on.\n If you want the major mode processing, let this option on.\n If you don't want the major mode processing, let this option off.\n\n NOTE 1: It's possible to customize a major mode printing, just declare\n the customization in `pr-mode-alist' and invoke some of\n `*-mode*' commands or select Mode option in Printing menu. An\n example for major mode usage is when you're using gnus (or mh,\n or rmail, etc.) and you're in the *Summary* buffer, if you\n forget to switch to the *Article* buffer before printing,\n you'll get a nicely formatted list of article subjects shows\n up at the printer. With major mode printing you don't need to\n switch from gnus *Summary* buffer first.\n\n 1b. Directory:\n\n * Directory:\n Specify a valid directory path.\n\n * File Regexp:\n Specify a file name regexp. All file names in the directory that\n match with regexp will be printed/previewed. An empty file name\n regexp means to print/preview all files in the directory.\n\n * List Directory Entry:\n If it's turned on, list directory entries besides file entries.\n\n 1c. PostScript file:\n\n * PostScript File:\n Specify an existent PostScript file to print/preview.\n\n * PostScript Utility:\n Select a PostScript utility.\n See `pr-ps-utility-alist' and `pr-setting-database' for documentation.\n\n NOTE 2: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'.\n\n * No Preprocessing:\n If it's turned on, don't use the PostScript utility to preprocess the\n PostScript file before printing/previewing.\n\n2. PostScript printer:\n\n * PostScript Printer:\n You can select a new PostScript printer to send PostScript code\n generated. For selection it's used all PostScript printers defined\n in `pr-ps-printer-alist' variable (see it for documentation).\n See also `pr-setting-database'.\n\n * Despool:\n If spooling is on, you can turn it on/off, as you wish.\n If spooling is off, it'll not be possible to turn it on.\n If it's turned on, specify to despools the PostScript spooling buffer in\n a temporary file or in the selected PostScript file when\n printing/previewing.\n\n * Preview:\n Preview the PostScript generated.\n\n * Print:\n Print the PostScript generated.\n\n * Quit:\n Quit from printing interface buffer.\n\n * Send to Printer/Temporary File:\n If it's turned on, the PostScript generated is sent directly to\n PostScript printer or, for previewing, to a temporary file.\n\n * Send to File:\n Specify a file name to send the PostScript generated.\n\n * N-Up:\n Specify n-up printing.\n\n3. Text printer:\n\n * Text Printer:\n Select a new text printer to send text generated. For selection it's used\n all text printers defined in `pr-txt-printer-alist' variable (see it for\n documentation). See also `pr-setting-database'.\n\n * Printify:\n If you have control characters (character code from \\000 to \\037) in a\n buffer and you want to print them in a text printer, select this\n option. All control characters in your buffer or region will be\n replaced by a printable representation. The printable representations\n use ^ (for ASCII control characters) or hex. The characters tab,\n linefeed, space, return and formfeed are not affected.\n You don't need to select this option if you use any option of section\n I, the PostScript engine treats control characters properly.\n\n * Print:\n To print a directory, buffer, region or major mode in a\n text printer, select this option. See also the NOTE 1 on section 1.\n\n * Quit:\n Quit from printing interface buffer.\n\n4. Settings:\n\n There are 3 setting columns:\n\n 4a. First column (left column):\n\n * Landscape:\n PostScript landscape printing.\n\n * Print Header:\n To have a header in each page in your PostScript code.\n\n * Print Header Frame:\n To draw a gaudy frame around the header.\n\n * Line Number:\n The line number is printed in your PostScript code.\n\n * Zebra Stripes:\n Background zebra stripes in your PostScript code.\n\n * Duplex:\n Duplex printing (if your PostScript printer has this feature).\n\n * Tumble:\n If duplex printing is on, you can choose if you want to have a\n printing suitable for binding on the left or right (tumble off), or to\n have a printing suitable for binding at top or bottom (tumble on).\n\n * Upside-Down:\n PostScript upside-down printing.\n\n 4b. Second column (middle column):\n\n * Auto Region:\n If you want that region is automagically detected, turn on this\n option. Note that this will only work if you're using transient mark\n mode. When this option is on, the `*-buffer*' commands will behave\n like `*-region*' commands, that is, `*-buffer*' commands will print\n only the region marked instead of all buffer.\n\n * Auto Mode:\n Turn this option on if you want that when current major-mode is\n declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands\n behave like `*-mode*' commands.\n\n * Menu Lock:\n If you want that Printing menu stays open while you are setting\n toggle options, turn on this option. The variables\n `pr-menu-char-height' and `pr-menu-char-width' are used to guess the\n menu position, so don't forget to adjust these variables if menu\n position is not ok.\n\n * Spool Buffer:\n To spool the PostScript code generated. You can despool later by\n setting Despool option on PostScript printer section.\n\n * Print with faces:\n If you use colors in your buffers and want to see these colors on your\n PostScript code generated, turn on this option. If you have a\n black/white PostScript printer, these colors are displayed in gray\n scale by PostScript printer interpreter.\n\n * Print via Ghostscript:\n If you don't have a PostScript printer to send PostScript files, turn\n on this option. When this option is on, the ghostscript is used to\n print PostScript files. In GNU or Unix system, if ghostscript is set\n as a PostScript filter, you don't need to turn on this option.\n\n * Parity Page Menu:\n To print all pages, odd pages, even pages, odd sheets or even sheets.\n See also `ps-even-or-odd-pages'.\n\n 4c. Third column (right column):\n\n * Verbose:\n That is, to be verbose when editing a field in interface buffer.\n\n5. Customize:\n\n Besides all options in section 4, you can customize much more PostScript\n options in `ps-print' option. Or you can customize some `lpr' options for\n text printing. Or customize `printing' options.\n\n6. Show settings:\n\n Show current settings for `printing', `ps-print' or `lpr'.\n\n7. Help:\n\n Quick help for printing interface buffer and printing menu layout. You can\n also quit the printing interface buffer or kill all printing help buffer.\n") (#$ . 75278))
#@151 Activate the printing interface buffer.
If BUFFER is nil, the current buffer is used for printing.
For more information, type \[pr-interface-help].
(defalias 'pr-interface #[(&optional buffer) "r\206 pq\210\301 )\207" [buffer pr-create-interface] 1 (#$ . 83996) nil])
#@747 Preview directory using ghostview.
Interactively, the command prompts for N-UP printing number, a directory, a
file name regexp for matching and, when you use a prefix argument (C-u), the
command prompts the user for a file name, and saves the PostScript image in
that file instead of saving it in a temporary file.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
save the image in a temporary file. If FILENAME is a string, save the
PostScript image in a file with that name. If FILENAME is t, prompts for a
file name.
See also documentation for `pr-list-directory'.
(defalias 'pr-ps-directory-preview #[(n-up dir file-regexp &optional filename) "\305\301\302\303\300\306\307!%\210\310!\311 \n $\210\f\206 \312!\207" [filename n-up dir file-regexp pr-spool-p pr-set-ps-dir-args pr-prompt "PS preview dir" pr-ps-file pr-ps-file-list pr-ps-file-preview] 7 (#$ . 84275) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS preview dir"] 3)])
#@766 Print directory using PostScript through ghostscript.
Interactively, the command prompts for N-UP printing number, a directory, a
file name regexp for matching and, when you use a prefix argument (C-u), the
command prompts the user for a file name, and saves the PostScript image in
that file instead of saving it in a temporary file.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
save the image in a temporary file. If FILENAME is a string, save the
PostScript image in a file with that name. If FILENAME is t, prompts for a
file name.
See also documentation for `pr-list-directory'.
(defalias 'pr-ps-directory-using-ghostscript #[(n-up dir file-regexp &optional filename) "\305\302\303\304\300\306\307!%\210\310!\311\n \f $\210\312 !\210\206 \313 !)\207" [filename file n-up dir file-regexp pr-set-ps-dir-args pr-prompt "PS print dir GS" pr-ps-file pr-ps-file-list pr-ps-file-using-ghostscript pr-delete-file] 7 (#$ . 85426) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir GS"] 3)])
#@754 Print directory using PostScript printer.
Interactively, the command prompts for N-UP printing number, a directory, a
file name regexp for matching and, when you use a prefix argument (C-u), the
command prompts the user for a file name, and saves the PostScript image in
that file instead of saving it in a temporary file.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
save the image in a temporary file. If FILENAME is a string, save the
PostScript image in a file with that name. If FILENAME is t, prompts for a
file name.
See also documentation for `pr-list-directory'.
(defalias 'pr-ps-directory-print #[(n-up dir file-regexp &optional filename) "\305\302\303\304\300\306\307!%\210\310!\311\n \f $\210\312 !\210\206 \313 !)\207" [filename file n-up dir file-regexp pr-set-ps-dir-args pr-prompt "PS print dir" pr-ps-file pr-ps-file-list pr-ps-file-print pr-delete-file] 7 (#$ . 86638) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir"] 3)])
#@822 Print directory using PostScript printer or through ghostscript.
It depends on `pr-print-using-ghostscript'.
Interactively, the command prompts for N-UP printing number, a directory, a
file name regexp for matching and, when you use a prefix argument (C-u), the
command prompts the user for a file name, and saves the PostScript image in
that file instead of saving it in a temporary file.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
save the image in a temporary file. If FILENAME is a string, save the
PostScript image in a file with that name. If FILENAME is t, prompts for a
file name.
See also documentation for `pr-list-directory'.
(defalias 'pr-ps-directory-ps-print #[(n-up dir file-regexp &optional filename) "\306\302\303\304\305\307\310\311!!%\210\203 \204 \312\n \f
$\207\313\n \f
$\207" [pr-print-using-ghostscript pr-spool-p n-up dir file-regexp filename pr-set-ps-dir-args pr-prompt pr-prompt-gs "PS print dir" pr-ps-directory-using-ghostscript pr-ps-directory-print] 8 (#$ . 87808) (byte-code "\300\301\302\303!!!\207" [pr-interactive-ps-dir-args pr-prompt pr-prompt-gs "PS print dir"] 4)])
#@555 Preview buffer using ghostview.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (C-u), the command prompts the user for a file name, and saves
the PostScript image in that file instead of saving it in a temporary file.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
argument FILENAME is treated as follows: if it's nil, save the image in a
temporary file. If FILENAME is a string, save the PostScript image in a file
with that name. If FILENAME is t, prompts for a file name.
(defalias 'pr-ps-buffer-preview #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-preview pr-ps-preview pr-region-active-symbol pr-region-active-string "PS preview"] 6 (#$ . 89109) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS preview"] 3)])
#@565 Print buffer using PostScript through ghostscript.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The
argument FILENAME is treated as follows: if it's nil, send the image to the
printer. If FILENAME is a string, save the PostScript image in a file with
that name. If FILENAME is t, prompts for a file name.
(defalias 'pr-ps-buffer-using-ghostscript #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-using-ghostscript pr-ps-using-ghostscript pr-region-active-symbol pr-region-active-string "PS print GS"] 6 (#$ . 90043) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print GS"] 3)])
#@553 Print buffer using PostScript printer.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The
argument FILENAME is treated as follows: if it's nil, send the image to the
printer. If FILENAME is a string, save the PostScript image in a file with
that name. If FILENAME is t, prompts for a file name.
(defalias 'pr-ps-buffer-print #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-print pr-ps-print pr-region-active-symbol pr-region-active-string "PS print"] 6 (#$ . 91019) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print"] 3)])
#@621 Print buffer using PostScript printer or through ghostscript.
It depends on `pr-print-using-ghostscript'.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The
argument FILENAME is treated as follows: if it's nil, send the image to the
printer. If FILENAME is a string, save the PostScript image in a file with
that name. If FILENAME is t, prompts for a file name.
(defalias 'pr-ps-buffer-ps-print #[(n-up &optional filename) "\203 \n\236A\203 \306 \f\"\207
\203#
\204# \307\310 \f\311\312!$\207\313\310 \f\311\314!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-print-using-ghostscript pr-ps-mode-ps-print pr-ps-using-ghostscript pr-region-active-symbol pr-region-active-string "PS print GS" pr-ps-print "PS print" pr-spool-p] 6 (#$ . 91941) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt pr-prompt-gs "PS print"] 4)])
#@67 Preview region using ghostview.
See also `pr-ps-buffer-preview'.
(defalias 'pr-ps-region-preview #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f
\")\207\310\311\f
\312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-preview pr-ps-preview region "PS preview region"] 5 (#$ . 93071) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS preview"] 3)])
#@96 Print region using PostScript through ghostscript.
See also `pr-ps-buffer-using-ghostscript'.
(defalias 'pr-ps-region-using-ghostscript #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f
\")\207\310\311\f
\312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-using-ghostscript pr-ps-using-ghostscript region "PS print GS region"] 5 (#$ . 93506) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print GS"] 3)])
#@72 Print region using PostScript printer.
See also `pr-ps-buffer-print'.
(defalias 'pr-ps-region-print #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f
\")\207\310\311\f
\312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-print pr-ps-print region "PS print region"] 5 (#$ . 94002) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print"] 3)])
#@98 Print region using PostScript printer or through ghostscript.
See also `pr-ps-buffer-ps-print'.
(defalias 'pr-ps-region-ps-print #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f
\")\207
\203$ \204$ \310\311\f
\312$\207\313\311\f
\314$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-ps-print pr-ps-using-ghostscript region "PS print GS region" pr-ps-print "PS print region" pr-print-using-ghostscript pr-spool-p] 5 (#$ . 94432) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt-region pr-prompt-gs "PS print"] 4)])
#@71 Preview major mode using ghostview.
See also `pr-ps-buffer-preview'.
(defalias 'pr-ps-mode-preview #[(n-up &optional filename) "\304\302\300\305#\210\306!\307\n \"\205 ?\205 \310 !)\207" [filename file n-up pr-spool-p pr-set-n-up-and-filename "PS preview mode" pr-ps-file pr-ps-mode pr-ps-file-preview] 4 (#$ . 95031) (pr-interactive-n-up-file "PS preview mode")])
#@100 Print major mode using PostScript through ghostscript.
See also `pr-ps-buffer-using-ghostscript'.
(defalias 'pr-ps-mode-using-ghostscript #[(n-up &optional filename) "\304\302\300\305#\210\306!\307\n \"\205! ?\205! \310 !\210\206! \311 !)\207" [filename file n-up pr-spool-p pr-set-n-up-and-filename "PS print GS mode" pr-ps-file pr-ps-mode pr-ps-file-using-ghostscript pr-delete-file] 4 (#$ . 95409) (pr-interactive-n-up-file "PS print GS mode")])
#@76 Print major mode using PostScript printer.
See also `pr-ps-buffer-print'.
(defalias 'pr-ps-mode-print #[(n-up &optional filename) "\302\300\301\303#\210\304 \"\207" [n-up filename pr-set-n-up-and-filename "PS print mode" pr-ps-mode] 4 (#$ . 95869) (pr-interactive-n-up-file "PS print mode")])
#@94 Print major mode using PostScript or through ghostscript.
See also `pr-ps-buffer-ps-print'.
(defalias 'pr-ps-mode-ps-print #[(n-up &optional filename) "\203
\204
\304\n \"\207\305\n \"\207" [pr-print-using-ghostscript pr-spool-p n-up filename pr-ps-mode-using-ghostscript pr-ps-mode-print] 3 (#$ . 96170) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-gs "PS print mode"] 3)])
#@477 Replace nonprinting characters in directory with printable representations.
The printable representations use ^ (for ASCII control characters) or hex.
The characters tab, linefeed, space, return and formfeed are not affected.
Interactively, the command prompts for a directory and a file name regexp for
matching.
Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
prompts for FILE(name)-REGEXP.
See also documentation for `pr-list-directory'.
(defalias 'pr-printify-directory #[(&optional dir file-regexp) "\302\300\301\303#\210\304 \305#\207" [dir file-regexp pr-set-dir-args "Printify dir" pr-file-list pr-printify-buffer] 4 (#$ . 96580) (pr-interactive-dir-args "Printify dir")])
#@224 Replace nonprinting characters in buffer with printable representations.
The printable representations use ^ (for ASCII control characters) or hex.
The characters tab, linefeed, space, return and formfeed are not affected.
(defalias 'pr-printify-buffer #[nil "\300 \203 \301 \207\302ed\"\207" [pr-region-active-p pr-printify-region printify-region] 3 (#$ . 97304) "*"])
#@224 Replace nonprinting characters in region with printable representations.
The printable representations use ^ (for ASCII control characters) or hex.
The characters tab, linefeed, space, return and formfeed are not affected.
(defalias 'pr-printify-region #[nil "\300`\301 \"\207" [printify-region mark] 3 (#$ . 97682) "*"])
#@287 Print directory using text printer.
Interactively, the command prompts for a directory and a file name regexp for
matching.
Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
prompts for FILE(name)-REGEXP.
See also documentation for `pr-list-directory'.
(defalias 'pr-txt-directory #[(&optional dir file-regexp) "\302\300\301\303#\210\304 \305#\207" [dir file-regexp pr-set-dir-args "Print dir" pr-file-list pr-txt-buffer] 4 (#$ . 98011) (pr-interactive-dir-args "Print dir")])
#@34 Print buffer using text printer.
(defalias 'pr-txt-buffer #[nil "\203 \n\236A\203 \303 \207\304 \203 \305 \207\306ed\"\207" [pr-auto-mode major-mode pr-mode-alist pr-txt-mode pr-region-active-p pr-txt-region pr-txt-print] 3 (#$ . 98528) nil])
#@34 Print region using text printer.
(defalias 'pr-txt-region #[nil "\203 \n\236A\203 \304\305 )\207\306`\307 \"\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region t pr-txt-mode pr-txt-print mark] 3 (#$ . 98782) nil])
#@38 Print major mode using text printer.
(defalias 'pr-txt-mode #[nil " \236A\211\203 \n@\nAA!\202 \303 \210\304\305\")\207" [major-mode pr-mode-alist args ding message "`%s' major mode not declared."] 4 (#$ . 99015) nil])
#@415 Preview spooled PostScript.
Interactively, when you use a prefix argument (C-u), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of saving it in a temporary file.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
save the image in a temporary file. If FILENAME is a string, save the
PostScript image in a file with that name.
(defalias 'pr-despool-preview #[(&optional filename) "\302!\211;\205 \303 !\210\304 !)\207" [filename file pr-ps-file pr-despool-print pr-ps-file-preview] 3 (#$ . 99246) (list (ps-print-preprint current-prefix-arg))])
#@422 Print spooled PostScript using ghostscript.
Interactively, when you use a prefix argument (C-u), 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.
(defalias 'pr-despool-using-ghostscript #[(&optional filename) "\302!\211;\205 \303 !\210\304 !\210\206 \305 !)\207" [filename file pr-ps-file pr-despool-print pr-ps-file-using-ghostscript pr-delete-file] 3 (#$ . 99888) (list (ps-print-preprint current-prefix-arg))])
#@422 Send the spooled PostScript to the printer.
Interactively, when you use a prefix argument (C-u), 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.
(defalias 'pr-despool-print #[(&optional filename) "\306 \307 !\210\310\n! \f
\n \f
\311!\210,\307!)\207" [pr--default-file-modes pr-file-modes pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer default-file-modes set-default-file-modes pr-command ps-despool ps-printer-name ps-printer-name-option ps-lpr-switches ps-lpr-command filename] 4 (#$ . 100589) (list (ps-print-preprint current-prefix-arg))])
#@453 Send the spooled PostScript to the printer or use ghostscript to print it.
Interactively, when you use a prefix argument (C-u), 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.
(defalias 'pr-despool-ps-print #[(&optional filename) "\203 \302 !\207\303 !\207" [pr-print-using-ghostscript filename pr-despool-using-ghostscript pr-despool-print] 2 (#$ . 101441) (list (ps-print-preprint current-prefix-arg))])
#@35 Preview PostScript file FILENAME.
(defalias 'pr-ps-file-preview #[(filename) ";\205 \302!\205 \303 \"\207" [filename pr-gv-command file-exists-p pr-call-process] 3 (#$ . 102131) (list (pr-ps-infile-preprint "Preview "))])
#@35 Preview PostScript file FILENAME.
(defalias 'pr-ps-file-up-preview #[(n-up ifilename &optional ofilename) "\303\301\302\304\305$\306 \n#\210\307!)\207" [outfile n-up ifilename pr-ps-utility-args ofilename "PS preview " pr-ps-utility-process pr-ps-file-preview] 5 (#$ . 102364) (pr-interactive-n-up-inout "PS preview")])
#@51 Print PostScript file FILENAME using ghostscript.
(defalias 'pr-ps-file-using-ghostscript #[(filename) ";\2055 \306!\2055 \307!\310\311 !!\312 \313\314\f\"\313\315
\"\316\317\"\313\320\n\" \321&\210\322\n!\210\323\n!*\207" [filename file tempfile pr-gs-command pr-gs-device pr-gs-resolution file-exists-p pr-expand-file-name pr-dosify-file-name make-temp-file pr-call-process format "-sDEVICE=%s" "-r%d" pr-switches-string "pr-gs-switches" "-sOutputFile=\"%s\"" "-c quit" pr-ps-file-print pr-delete-file pr-gs-switches] 8 (#$ . 102693) (list (pr-ps-infile-preprint "Print preview "))])
#@33 Print PostScript file FILENAME.
(defalias 'pr-ps-file-print #[(filename) ";\205L \306!\205L \307!\n\310\230\203+ \311 ! r\fq\210\312 \210\313 !\210)\314 )\202K \315\316\n\317
\320\"\321\322\n\"\203C PD\202J P D$)\207" [filename file pr-ps-command ps-spool-buffer-name ps-spool-buffer pr-ps-switches file-exists-p pr-expand-file-name "" get-buffer-create erase-buffer insert-file-contents-literally pr-despool-print apply pr-call-process pr-switches-string "pr-ps-switches" string-match "cp" pr-ps-printer-switch pr-ps-printer] 7 (#$ . 103293) (list (pr-ps-infile-preprint "Print "))])
#@74 Send PostScript file FILENAME to printer or use ghostscript to print it.
(defalias 'pr-ps-file-ps-print #[(filename) "\203 \302 !\207\303 !\207" [pr-print-using-ghostscript filename pr-ps-file-using-ghostscript pr-ps-file-print] 2 (#$ . 103897) (list (pr-ps-infile-preprint (if pr-print-using-ghostscript "Print preview " "Print ")))])
#@821 Process a PostScript file IFILENAME and send it to printer.
Interactively, the command prompts for N-UP printing number, for an input
PostScript file IFILENAME and, when you use a prefix argument (C-u), the
command prompts the user for an output PostScript file name OFILENAME, and
saves the PostScript image in that file instead of sending it to the printer.
Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
argument IFILENAME is treated as follows: if it's t, prompts for an input
PostScript file name; otherwise, it *must* be a string that it's an input
PostScript file name. The argument OFILENAME is treated as follows: if it's
nil, send the image to the printer. If OFILENAME is a string, save the
PostScript image in a file with that name. If OFILENAME is t, prompts for a
file name.
(defalias 'pr-ps-file-up-ps-print #[(n-up ifilename &optional ofilename) "\305\302\303\304\203\f \306\202
\307$\310\n #\210\f?\205! \311 !\210\312 !)\207" [pr-print-using-ghostscript outfile n-up ifilename ofilename pr-ps-utility-args "PS print GS " "PS print " pr-ps-utility-process pr-ps-file-ps-print pr-delete-file] 5 (#$ . 104242) (byte-code "\301\203 \302\202\n \303!\207" [pr-print-using-ghostscript pr-interactive-n-up-inout "PS print GS" "PS print"] 2)])
#@36 Toggle duplex for PostScript file.
(defalias 'pr-toggle-file-duplex #[nil "\300\301!\207" [pr-toggle-file-duplex-menu t] 2 (#$ . 105538) nil])
#@198 Toggle tumble for PostScript file.
If tumble is off, produces a printing suitable for binding on the left or
right.
If tumble is on, produces a printing suitable for binding at the top or
bottom.
(defalias 'pr-toggle-file-tumble #[nil "\300\301!\207" [pr-toggle-file-tumble-menu t] 2 (#$ . 105688) nil])
#@39 Toggle landscape for PostScript file.
(defalias 'pr-toggle-file-landscape #[nil "\300\301!\207" [pr-toggle-file-landscape-menu t] 2 (#$ . 105999) nil])
#@36 Toggle printing using ghostscript.
(defalias 'pr-toggle-ghostscript #[nil "\300\301!\207" [pr-toggle-ghostscript-menu t] 2 (#$ . 106157) nil])
#@29 Toggle printing with faces.
(defalias 'pr-toggle-faces #[nil "\300\301!\207" [pr-toggle-faces-menu t] 2 (#$ . 106306) nil])
#@18 Toggle spooling.
(defalias 'pr-toggle-spool #[nil "\300\301!\207" [pr-toggle-spool-menu t] 2 (#$ . 106436) nil])
#@16 Toggle duplex.
(defalias 'pr-toggle-duplex #[nil "\300\301!\207" [pr-toggle-duplex-menu t] 2 (#$ . 106555) nil])
#@178 Toggle tumble.
If tumble is off, produces a printing suitable for binding on the left or
right.
If tumble is on, produces a printing suitable for binding at the top or
bottom.
(defalias 'pr-toggle-tumble #[nil "\300\301!\207" [pr-toggle-tumble-menu t] 2 (#$ . 106675) nil])
#@19 Toggle landscape.
(defalias 'pr-toggle-landscape #[nil "\300\301!\207" [pr-toggle-landscape-menu t] 2 (#$ . 106956) nil])
#@21 Toggle upside-down.
(defalias 'pr-toggle-upside-down #[nil "\300\301!\207" [pr-toggle-upside-down-menu t] 2 (#$ . 107084) nil])
#@21 Toggle line number.
(defalias 'pr-toggle-line #[nil "\300\301!\207" [pr-toggle-line-menu t] 2 (#$ . 107218) nil])
#@23 Toggle zebra stripes.
(defalias 'pr-toggle-zebra #[nil "\300\301!\207" [pr-toggle-zebra-menu t] 2 (#$ . 107338) nil])
#@25 Toggle printing header.
(defalias 'pr-toggle-header #[nil "\300\301!\207" [pr-toggle-header-menu t] 2 (#$ . 107462) nil])
#@31 Toggle printing header frame.
(defalias 'pr-toggle-header-frame #[nil "\300\301!\207" [pr-toggle-header-frame-menu t] 2 (#$ . 107590) nil])
#@19 Toggle menu lock.
(defalias 'pr-toggle-lock #[nil "\300\301!\207" [pr-toggle-lock-menu t] 2 (#$ . 107736) nil])
#@54 Toggle whether the region is automagically detected.
(defalias 'pr-toggle-region #[nil "\300\301!\207" [pr-toggle-region-menu t] 2 (#$ . 107854) nil])
#@19 Toggle auto mode.
(defalias 'pr-toggle-mode #[nil "\300\301!\207" [pr-toggle-mode-menu t] 2 (#$ . 108011) nil])
#@40 Customization of the `printing' group.
(defalias 'pr-customize #[(&rest ignore) "\300\301!\207" [customize-group printing] 2 (#$ . 108129) nil])
#@35 Customization of the `lpr' group.
(defalias 'lpr-customize #[(&rest ignore) "\300\301!\207" [customize-group lpr] 2 (#$ . 108280) nil])
#@32 Help for the printing package.
(defalias 'pr-help #[(&rest ignore) "\301\302\"\207" [pr-help-message pr-show-setup "*Printing Help*"] 3 (#$ . 108422) nil])
#@44 Interactively select a PostScript printer.
(defalias 'pr-ps-name #[nil "\302\303\304 #!\207" [pr-ps-printer-alist pr-ps-name pr-menu-set-ps-title pr-complete-alist "PostScript printer"] 5 (#$ . 108585) nil])
#@38 Interactively select a text printer.
(defalias 'pr-txt-name #[nil "\302\303\304 #!\207" [pr-txt-printer-alist pr-txt-name pr-menu-set-txt-title pr-complete-alist "Text printer"] 5 (#$ . 108800) nil])
#@44 Interactively select a PostScript utility.
(defalias 'pr-ps-utility #[nil "\302\303\304 #!\207" [pr-ps-utility-alist pr-ps-utility pr-menu-set-utility-title pr-complete-alist "PostScript utility"] 5 (#$ . 109007) nil])
#@33 Show current ps-print settings.
(defalias 'pr-show-ps-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup ps-setup "*PS Setup*"] 3 (#$ . 109233) nil])
#@33 Show current printing settings.
(defalias 'pr-show-pr-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup pr-setup "*PR Setup*"] 3 (#$ . 109398) nil])
#@28 Show current lpr settings.
(defalias 'pr-show-lpr-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup lpr-setup "*LPR Setup*"] 3 (#$ . 109563) nil])
#@2436 Fast fire function for PostScript printing.
If a region is active, the region will be printed instead of the whole buffer.
Also if the current major-mode is defined in `pr-mode-alist', the settings in
`pr-mode-alist' will be used, that is, the current buffer or region will be
printed using `pr-ps-mode-ps-print'.
Interactively, you have the following situations:
M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value and printing will
immediately be done using the current active printer.
C-u M-x pr-ps-fast-fire RET
C-u 0 M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value and also for a current
PostScript printer, then printing will immediately be done using the new
current active printer.
C-u 1 M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value and also for a file name,
and saves the PostScript image in that file instead of sending it to the
printer.
C-u 2 M-x pr-ps-fast-fire RET
The command prompts the user for a N-UP value, then for a current
PostScript printer and, finally, for a file name. Then change the active
printer to that chosen by user and saves the PostScript image in
that file instead of sending it to the printer.
Noninteractively, the argument N-UP should be a positive integer greater than
zero and the argument SELECT is treated as follows:
If it's nil, send the image to the printer.
If it's a list or an integer lesser or equal to zero, the command prompts
the user for a current PostScript printer, then printing will immediately
be done using the new current active printer.
If it's an integer equal to 1, the command prompts the user for a file name
and saves the PostScript image in that file instead of sending it to the
printer.
If it's an integer greater or equal to 2, the command prompts the user for a
current PostScript printer and for a file name. Then change the active
printer to that chosen by user and saves the PostScript image in that file
instead of sending it to the printer.
If it's a symbol which it's defined in `pr-ps-printer-alist', it's the new
active printer and printing will immediately be done using the new active
printer.
Otherwise, send the image to the printer.
Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
are both set to t.
(defalias 'pr-ps-fast-fire #[(n-up &optional select) "\306\211\307 \203L <\203 \310 \210\202L 9\203' \f\236\203' \311 !\210\202L \250\203L \312U\2045 \310 \210 \312Y\203L
\204L \313\203I \314\202J \315!\316\250\203\\ \312]\317^\202_ \320\321!\"+\207" [filename pr-auto-mode pr-auto-region select pr-ps-printer-alist pr-spool-p t nil pr-ps-name pr-menu-set-ps-title 1 pr-ps-outfile-preprint "Fast GS " "Fast " pr-ps-buffer-ps-print 100 error "n-up must be an integer greater than zero" pr-print-using-ghostscript n-up] 3 (#$ . 109728) (list (pr-interactive-n-up (pr-prompt-gs "PS print fast")) current-prefix-arg)])
#@910 Fast fire function for text printing.
If a region is active, the region will be printed instead of the whole buffer.
Also if the current major-mode is defined in `pr-mode-alist', the settings in
`pr-mode-alist' will be used, that is, the current buffer or region will be
printed using `pr-txt-mode'.
Interactively, when you use a prefix argument (C-u), the command prompts the
user for a new active text printer.
Noninteractively, the argument SELECT-PRINTER is treated as follows:
If it's nil, the printing is sent to the current active text printer.
If it's a symbol which it's defined in `pr-txt-printer-alist', it's the new
active printer and printing will immediately be done using the new active
printer.
If it's non-nil, the command prompts the user for a new active text printer.
Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
are both set to t.
(defalias 'pr-txt-fast-fire #[(&optional select-printer) "\203 9\203 \236\203 \304!\210\202 \305 \210\306\211\307 *\207" [select-printer pr-txt-printer-alist pr-auto-mode pr-auto-region pr-menu-set-txt-title pr-txt-name t pr-txt-buffer] 2 (#$ . 112803) (list current-prefix-arg)])
#@246 Return the current `printing' setup.
This is *not* an interactive command.
One way to see `printing' setup is to switch to a *Scratch* buffer and type:
M-: (insert (pr-setup)) RET
Or choose the menu option Printing/Show Settings/printing.
(defalias 'pr-setup #[nil "\306\307\310\311 \312Q\313\314\315\n\"\314\316 \"\314\317\320\f\321\"\"\314\322
\"\314\323?\"\314\324\320@\325\"\"\314\326A\"\314\327B\"\314\330C\"\314\331D\"\314\332E\"\306\333\334\306\335\336\306\337\340\306\341\342\343\344\345\306\346\347\350\351\352\306\353\354\355\356\357\360\361\362\306\363\364\306\365\306\366\367\370\306\371\306\372\306\373\374\375\376\257=\312#)\207" [ps-prefix-quote pr-version emacs-version pr-txt-command pr-txt-switches pr-txt-printer nil mapconcat ps-print-quote "\n;;; printing.el version " "\n" ";; internal vars" ps-comment-string "emacs-version " "pr-txt-command " "pr-txt-switches " pr-switches-string "pr-txt-switches" "pr-txt-printer " "pr-ps-command " "pr-ps-switches " "pr-ps-switches" "pr-ps-printer-switch" "pr-ps-printer " "pr-cygwin-system " "ps-windows-system " "ps-lp-system " (14 . pr-path-style) (14 . pr-path-alist) (21 . pr-txt-name) (21 . pr-txt-printer-alist) (20 . pr-ps-name) (20 . pr-ps-printer-alist) (20 . pr-temp-dir) (20 . pr-ps-temp-file) (20 . pr-file-modes) (20 . pr-delete-temp-file) (20 . pr-list-directory) (17 . pr-gv-command) (17 . pr-gs-command) (17 . pr-gs-switches) (17 . pr-gs-device) (17 . pr-gs-resolution) (27 . pr-print-using-ghostscript) (27 . pr-faces-p) (27 . pr-spool-p) (27 . pr-file-landscape) (27 . pr-file-duplex) (27 . pr-file-tumble) (27 . pr-auto-region) (27 . pr-auto-mode) (20 . pr-ps-utility) (20 . pr-ps-utility-alist) (14 . pr-mode-alist) (20 . pr-menu-lock) (20 . pr-menu-char-height) (20 . pr-menu-char-width) (20 . pr-setting-database) (22 . pr-visible-entry-list) (22 . pr-buffer-verbose) (22 . pr-buffer-name) (22 . pr-buffer-name-ignore) ")\n\n;;; printing.el - end of settings\n" pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer pr-cygwin-system ps-windows-system ps-lp-system] 63 (#$ . 114011)])
#@232 Return the current `lpr' setup.
This is *not* an interactive command.
One way to see `lpr' setup is to switch to a *Scratch* buffer and type:
M-: (insert (lpr-setup)) RET
Or choose the menu option Printing/Show Settings/lpr.
(defalias 'lpr-setup #[nil "\302\303\304\305\306\307 \"\302\310\311\312\313\314\315\316\317\320\257\f\321#)\207" [ps-prefix-quote emacs-version nil mapconcat ps-print-quote "\n;;; lpr.el settings\n" ps-comment-string "emacs-version" (25 . printer-name) (25 . lpr-switches) (25 . lpr-add-switches) (25 . lpr-command) (25 . lpr-headers-switches) (25 . print-region-function) (25 . lpr-page-header-program) (25 . lpr-page-header-switches) ")\n\n;;; lpr.el - end of settings\n" "\n"] 14 (#$ . 116158)])
#@127 Find the date of an article or mail message in current buffer.
Return only the dayname, if present, weekday, month, and year.
(defalias 'pr-article-date #[nil "\212eb\210\300\301\302\303#\203 \304\224\304\225{\202 \305\306!)\207" [re-search-forward "^Date:[ ]+\\(\\([A-Za-z]+, \\)?[0-9]+ [A-Za-z]+ [0-9]+\\)" nil t 1 format-time-string "%Y/%m/%d"] 4 (#$ . 116896)])
#@33 Go to mh-inbox current message.
(defalias 'pr-mh-current-message #[nil "\302\303!\206 \304\305 \210 q\210eb\210\306 \210\307\310\")\207" [msg mh-show-buffer mh-get-msg-num nil 0 mh-show mh-start-of-uncleaned-message message "Printing message %d"] 3 (#$ . 117271)])
#@47 Print mh-inbox current message in PostScript.
(defalias 'pr-mh-print-1 #[(n-up filename header-list) "\212\304 \305\216\306 \210\307 \n `$+\207" [#1=#:wconfig n-up filename header-list current-window-configuration ((set-window-configuration #1#)) pr-mh-current-message pr-mode-print] 5 (#$ . 117545)])
#@49 Print mh-inbox current message in text printer.
(defalias 'pr-mh-lpr-1 #[(header-list) "\212\302 \303\216\304 \210\305 `\"+\207" [#1=#:wconfig header-list current-window-configuration ((set-window-configuration #1#)) pr-mh-current-message pr-mode-lpr] 3 (#$ . 117854)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias pr-mh-print-2 pr-mode-print pr-mh-lpr-2 pr-mode-lpr] 3)
#@46 Print RMAIL current message in text printer.
(defalias 'pr-rmail-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary rmail-buffer rmail-summary-buffer] 4 (#$ . 118247)])
#@44 Print RMAIL current message in PostScript.
(defalias 'pr-rmail-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary rmail-buffer rmail-summary-buffer] 6 (#$ . 118453)])
#@38 Print current message in PostScript.
(defalias 'pr-ps-message-from-summary #[(n-up filename header-list summary-buffer summary-default) "\306!\203 J\206
J\307\n!\205 r\nq\210\310 \f
#))\207" [summary-buffer summary-default buf n-up filename header-list boundp get-buffer pr-mode-print] 4 (#$ . 118689)])
#@40 Print current message in text printer.
(defalias 'pr-lpr-message-from-summary #[(header-list summary-buffer summary-default) "\304!\203 J\206
J\305\n!\205 r\nq\210\306 !))\207" [summary-buffer summary-default buf header-list boundp get-buffer pr-mode-lpr] 2 (#$ . 119006)])
(defvar pr-gnus-article "*Article*")
#@48 Print *Article* current message in PostScript.
(defalias 'pr-gnus-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary gnus-article-buffer pr-gnus-article] 6 (#$ . 119330)])
#@50 Print *Article* current message in text printer.
(defalias 'pr-gnus-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary gnus-article-buffer pr-gnus-article] 4 (#$ . 119571)])
(defvar pr-vm-summary "")
#@41 Print current vm message in PostScript.
(defalias 'pr-vm-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary vm-mail-buffer pr-vm-summary] 6 (#$ . 119808)])
#@43 Print current vm message in text printer.
(defalias 'pr-vm-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary vm-mail-buffer pr-vm-summary] 4 (#$ . 120033)])
#@60 If current major mode is declared, print it in PostScript.
(defalias 'pr-ps-mode #[(n-up filename) " \236A\211\203 \nA\211@\f
A#\210)\306\202\" \307 \210\310\311\"\210\312)\207" [major-mode pr-mode-alist args fun n-up filename t ding message "`%s' major mode not declared." nil] 5 (#$ . 120228)])
(defalias 'pr-local-variable '(macro . #[(header-list &rest body) "\302\303\304\305\306\307E\310BBD\311\305\306\312E\313BBD\314\305\306\315E\316BBD\317BBB\303\320\321\322\323EDDC\324 \325\306\326E\327BBC\"BBED\207" [header-list body save-excursion let ps-header-lines or nth 0 (ps-header-lines) ps-left-header 1 (ps-left-header) ps-right-header 2 (ps-right-header) (ps-razzle-dazzle) local-var-list pr-eval-local-alist nthcdr 4 append and 3 ((pr-kill-local-variable local-var-list))] 11]))
#@41 Print current major mode in PostScript.
(defalias 'pr-mode-print #[(n-up filename header-list &optional from to) "\212@\206 A@\206 \n\3068\206 \307 \310\311\233! \312!\2064 \313 \2033 \314 \2024 \307 \315\316!\206X \313 \203R \317 \202X \205X d%\210\204n \204n \320!\210\321!\210*\3228\205x \323
!.\207" [header-list ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle local-var-list 2 nil pr-eval-local-alist 4 pr-ps-file pr-region-active-p region-beginning pr-text2ps pr-region-active-symbol region-end pr-ps-file-print pr-delete-file 3 pr-kill-local-variable filename from start file n-up to pr-spool-p] 6 (#$ . 121032)])
#@43 Print current major mode in text printer.
(defalias 'pr-mode-lpr #[(header-list &optional from to) "\212@\206 A@\206 \n\3068\206 \307 \310\311\233! \312\2061 \313 \2030 \314 \2021 e\206A \313 \203@ \315 \202A d\"\210\3168\205L \317
!.\207" [header-list ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle local-var-list 2 nil pr-eval-local-alist 4 pr-txt-print pr-region-active-p region-beginning region-end 3 pr-kill-local-variable from to] 4 (#$ . 121716)])
#@188 Alist that associates menu part with number of items per part.
It's used by `pr-menu-index'.
Each element has the form:
(MENU-PART . NUMBER-OF-ITEMS)
See `pr-visible-entry-alist'.
(defconst pr-menu-entry-alist '((postscript . 3) (text . 3) (postscript-options . 9) (postscript-process . 3) (printing . 3) (help . 3)) (#$ . 122213))
(defalias 'pr-menu-index #[(entry index) "\306=\203\n \307\202) \310=\203 \311\202) \312=\203 \313\202) \314=\203( \315\202) \316\316\n\203I \n@\nA \211 >)\203, \f
\236A\\\202, *\f\317\\\207" [entry key base-list pr-visible-entry-list index pr-menu-entry-alist text (postscript) postscript-options (postscript text) postscript-process (postscript text postscript-options) printing (postscript text postscript-options postscript-process) nil 2] 4])
(defalias 'pr-update-var #[(var-sym alist) "J \236\206\f @@L\207" [var-sym alist] 2])
#@487 Update utility, PostScript and text printer menus.
If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist',
`pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is
non-nil, update text printer menu if `pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is
non-nil.
If menu binding was not done, calls `pr-menu-bind'.
(defalias 'pr-update-menus #[(&optional force) "\203 \305 \207\306\307 \"\210\306\310\n\"\210\306\311 \"\210\312\f!\207" [pr-menu-print-item pr-ps-printer-alist pr-txt-printer-alist pr-ps-utility-alist force pr-menu-bind pr-update-var pr-ps-name pr-txt-name pr-ps-utility pr-do-update-menus] 3 (#$ . 123109) "P"])
(defalias 'pr-menu-create #[(name alist var-sym fun entry index) "\302\303 \"B\207" [name alist mapcar #[(elt) "@\306\307 !\n\310 D\311\310 D\f\257\312\313\314\315
\310 DE&)\207" [elt sym fun entry index var-sym vector symbol-name quote nil :style radio :selected eq] 10]] 4])
(defalias 'pr-ps-set-utility #[(value) " \236A\211\204 \304\305\"\210\306\307\n\233!\210)\310 \207" [value pr-ps-utility-alist item pr-ps-utility error "Invalid PostScript utility name `%s' for variable `pr-ps-utility'" pr-eval-alist 9 pr-update-mode-line] 4])
(defalias 'pr-ps-set-printer #[(value) " \236A\211\204 \306\307\"\210\310\n@!\nA@\311\n8\312\n8\f;\204< \2031 \313\202; \203: \314\202; \315;\204W \203K \316\202U \203T \317\202U \320\321\322\n\233!\210)\323 \207" [value pr-ps-printer-alist ps pr-ps-name pr-ps-command pr-ps-switches error "Invalid PostScript printer name `%s' for variable `pr-ps-name'" pr-dosify-file-name 2 3 "print" "lp" "lpr" "/D:" "-d" "-P" pr-eval-alist 4 pr-update-mode-line pr-ps-printer-switch pr-ps-printer ps-windows-system ps-lp-system] 4])
(defalias 'pr-txt-set-printer #[(value) " \236A\211\204 \306\307\"\210\310\n@!\nA@\311\n8)\f;\2048 \203- \312\2027 \2036 \313\2027 \314\315 \207" [value pr-txt-printer-alist txt pr-txt-name pr-txt-command pr-txt-switches error "Invalid text printer name `%s' for variable `pr-txt-name'" pr-dosify-file-name 2 "print" "lp" "lpr" pr-update-mode-line pr-txt-printer ps-windows-system ps-lp-system] 4])
(defalias 'pr-eval-alist #[(alist) "\301\302\"\207" [alist mapcar #[(option) "@A\211\303=\203 \304 \305\"\202 \n\306 !L*\207" [option value var-sym inherits-from: pr-eval-setting-alist global eval] 4]] 3])
(defalias 'pr-eval-local-alist #[(alist) "\302\303\304 \"\210)\207" [local-list alist nil mapc #[(option) "@A\211\304=\203 \305 ! \244\202 \306\n!\307 !L\210\n B\211*\207" [option value var-sym local-list inherits-from: pr-eval-setting-alist make-local-variable eval] 4]] 3])
(defalias 'pr-eval-setting-alist #[(key &optional global old) " \236A\211\205f \n@\nA@\306\n8\307
\203+ \203+ \310 \210\311\312\"\210\307\203M >\203A \313\314\"\210\202M \315B#\316
\204V \317\202_ \f\203^ \320\202_ \321\322\n\233\"\210 ,)\207" [key pr-setting-database setting local-list kill local 2 nil ding message "There are local buffer settings for `%S'." error "Circular inheritance for `%S'" pr-eval-setting-alist mapc #[(option) "@\211\302=\206 \303A!L)\207" [option var-sym inherits-from: eval] 4] #[(option) "@\211\303=?\205 \nB\304 !\305A!L)\207" [option var-sym local-list inherits-from: make-local-variable eval] 4] #[(option) "@\211\302=\206 \303 !\304A!L)\207" [option var-sym inherits-from: make-local-variable eval] 4] 3 inherits global old] 6])
(defalias 'pr-kill-local-variable #[(local-var-list) "\301\302\"\207" [local-var-list mapcar kill-local-variable] 3])
(defalias 'pr-toggle #[(var-sym mess entry index horizontal state &optional path no-menu) "\211J?L\210\306\307 J\203 \310\202 \311#\210\n\206\" \312 \f
\f%\207" [var-sym mess no-menu entry index horizontal message "%s is %s" "on" "off" pr-menu-lock state path] 6])
#@58 Toggle whether to print PostScript files in duplex mode.
(defalias 'pr-toggle-file-duplex-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-duplex "PS file duplex" nil 7 5 ("PostScript Print" "File")] 9 (#$ . 127123) nil])
#@58 Toggle whether to print PostScript files in tumble mode.
(defalias 'pr-toggle-file-tumble-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-tumble "PS file tumble" nil 8 5 ("PostScript Print" "File")] 9 (#$ . 127398) nil])
#@68 Toggle whether to print PostScript files in landscape orientation.
(defalias 'pr-toggle-file-landscape-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-landscape "PS file landscape" nil 6 5 ("PostScript Print" "File")] 9 (#$ . 127673) nil])
#@44 Toggle whether to print using ghostscript.
(defalias 'pr-toggle-ghostscript-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-print-using-ghostscript "Printing using ghostscript" postscript-process 2 12 toggle nil] 9 (#$ . 127967) nil])
#@47 Toggle whether to print with face attributes.
(defalias 'pr-toggle-faces-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-faces-p "Printing with faces" postscript-process 1 12 toggle nil] 9 (#$ . 128251) nil])
#@47 Toggle whether to spool printing in a buffer.
(defalias 'pr-toggle-spool-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-spool-p "Spooling printing" postscript-process 0 12 toggle nil] 9 (#$ . 128509) nil])
#@64 Toggle whether to generate PostScript for a two-sided printer.
(defalias 'pr-toggle-duplex-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-spool-duplex "Printing duplex" postscript-options 5 12 toggle nil] 9 (#$ . 128765) nil])
#@61 Toggle how pages on opposite sides of a sheet are oriented.
(defalias 'pr-toggle-tumble-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-spool-tumble "Tumble" postscript-options 6 12 toggle nil] 9 (#$ . 129042) nil])
#@44 Toggle whether to print in landscape mode.
(defalias 'pr-toggle-landscape-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-landscape-mode "Landscape" postscript-options 0 12 toggle nil] 9 (#$ . 129307) nil])
#@72 Toggle whether to print upside-down (that is, rotated by 180 degrees).
(defalias 'pr-toggle-upside-down-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-upside-down "Upside-Down" postscript-options 7 12 toggle nil] 9 (#$ . 129563) nil])
#@45 Toggle whether to means print line numbers.
(defalias 'pr-toggle-line-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-line-number "Line number" postscript-options 3 12 toggle nil] 9 (#$ . 129854) nil])
#@40 Toggle whether to print zebra stripes.
(defalias 'pr-toggle-zebra-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-zebra-stripes "Zebra stripe" postscript-options 4 12 toggle nil] 9 (#$ . 130105) nil])
#@59 Toggle whether to print a header at the top of each page.
(defalias 'pr-toggle-header-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-header "Print header" postscript-options 1 12 toggle nil] 9 (#$ . 130355) nil])
#@57 Toggle whether to draw a gaudy frame around the header.
(defalias 'pr-toggle-header-frame-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-header-frame "Print header frame" postscript-options 2 12 toggle nil] 9 (#$ . 130624) nil])
#@67 Toggle whether the menu is locked while selecting toggle options.
(defalias 'pr-toggle-lock-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-menu-lock "Menu lock" printing 2 12 toggle nil] 9 (#$ . 130909) nil])
#@54 Toggle whether the region is automagically detected.
(defalias 'pr-toggle-region-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-auto-region "Auto region" printing 0 12 toggle nil] 9 (#$ . 131168) nil])
#@80 Toggle whether major-mode specific printing is preferred over normal printing.
(defalias 'pr-toggle-mode-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-auto-mode "Auto mode" printing 1 12 toggle nil] 9 (#$ . 131420) nil])
(defalias 'pr-prompt #[(str) "\203 \n\236A\203 \304P\207\305 !\207" [pr-auto-mode major-mode pr-mode-alist str " mode" pr-region-active-string] 2])
(defalias 'pr-prompt-region #[(str) " \203 \n \236A\203 \304\202 \305P\207" [str pr-auto-mode major-mode pr-mode-alist " mode" " region"] 3])
(defalias 'pr-prompt-gs #[(str) "\203\f \204\f \n\303P\207\n\207" [pr-print-using-ghostscript pr-spool-p str " GS"] 2])
(defalias 'pr-region-active-symbol #[(&optional region-p) "\204 \301 \203 \302\207\303\207" [region-p pr-region-active-p region buffer] 1])
(defalias 'pr-region-active-string #[(prefix) "\301 \203\n \302\202 \303P\207" [prefix pr-region-active-p " region" " buffer"] 2])
(defalias 'pr-show-setup #[(settings buffer-name) "r\306\n!q\210p\307 \210 \310\211\311\211\311 \312 \210\313\314!\210+\211 \315!\210\316 \317!\210+\207" [default-directory #1=#:old-dir buffer-name buffer-read-only buffer-file-name buffer-undo-list get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ help-print-return-message internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output settings] 4])
(defalias 'pr-complete-alist #[(prompt alist default) "\304\305\"\306\307\n\310P \311\312\313 !\311\313 !& \"A)\207" [alist collection prompt default mapcar #[(elt) "@\301!B\207" [elt symbol-name] 2] assoc completing-read ": " nil t symbol-name] 10])
(defalias 'pr-delete-file #[(file) "\205
\302 !\205
\303 !\207" [pr-delete-temp-file file file-exists-p delete-file] 2])
(defalias 'pr-expand-file-name #[(filename) "\301\302!!\207" [filename pr-dosify-file-name expand-file-name] 3])
(defalias 'pr-ps-outfile-preprint #[(&optional mess) "\304\305\206 \306\"\307 \n\306\310$\311 !\204 \312 \210\313\211\202D \314 !\203. \312 \210\315\211\202D \316 !\203C \312 \210\317\320\304\321 \"!?\202D \310\203Y \307\304\322 \"\323 !\310\211\324 !%\202 \325 !*\207" [mess prompt default-directory res format "%soutput PostScript file name: " "" read-file-name nil file-writable-p ding "is unwritable" file-directory-p "is a directory" file-exists-p "exists" y-or-n-p "File `%s' exists; overwrite? " "File %s; PostScript file: " file-name-directory file-name-nondirectory pr-expand-file-name] 7])
(defalias 'pr-ps-infile-preprint #[(&optional mess) "\304\305\206 \306\"\307 \n\306\310$\311 !\204 \312 \210\313\211\202> \314 !\204. \312 \210\315\211\202> \316 !\203= \312 \210\317\211\202> \310\203S \307\304\320 \"\321 !\310\211\322 !%\202 \323 !*\207" [mess prompt default-directory res format "%sinput PostScript file name: " "" read-file-name nil file-exists-p ding "doesn't exist" file-readable-p "is unreadable" file-directory-p "is a directory" "File %s; PostScript file: " file-name-directory file-name-nondirectory pr-expand-file-name] 7])
(defalias 'pr-ps-utility-args #[(n-up-sym infile-sym outfile-sym prompt) "J\204 \305 !L\210\nJ\306=\203 \n\307 !L\210\nJ\204\" \310\311 \"\210\n\312\nJ!L\210 J\306=\203: \f\2058 \313 !L\210 J\203F \312 J!L\210\314 J!\207" [n-up-sym prompt infile-sym outfile-sym current-prefix-arg pr-interactive-n-up t pr-ps-infile-preprint error "%s: input PostScript file name is missing" pr-dosify-file-name pr-ps-outfile-preprint pr-ps-file] 3])
(defalias 'pr-ps-utility-process #[(n-up infile outfile) "\306 ;\205[ \307 !\205[ \n \236A\211\205[ \310@\311A@\312\"\311\3138\312\"\3148\2051 \315\3148\f\"\315\3168
\"\205? \3178\205G \3208\205O \3218\322 !\3238\322!& )\207" [item infile pr-ps-utility pr-ps-utility-alist ps-paper-type n-up nil file-exists-p pr-call-process pr-switches-string "pr-ps-utility-alist entry" 8 2 format 3 4 5 6 pr-expand-file-name 7 pr-file-landscape pr-file-duplex pr-file-tumble outfile] 13])
(defalias 'pr-remove-nil-from-list #[(lst) "\203 @\204 A\211\204 \211A \2031 @\203' A\211\202 A\n \241\210\202 *\207" [lst l b] 3])
(defalias 'pr-call-process #[(command &rest args) "\306\307!\310!\311\312\f!r q\210db\210\313\314\n\f#c\210)\315 \316!\210\317\320\321\217\316
!\210)r q\210db\210\313\322 \"c\210) ;\204N \250\205R \323U?\205R \324\325 \"+\207" [command status cmd buffer args pr--default-file-modes get-buffer-create "*Printing Command Output*" pr-command nil pr-remove-nil-from-list format "%s %S\n" default-file-modes set-default-file-modes data (byte-code "\303\304\305 \305\n&\207" [cmd buffer args apply call-process nil] 7) (((quit error) (error-message-string data))) "Exit status: %s\n\n" 0 message "Printing error status: %s (see *Printing Command Output* buffer)" pr-file-modes] 4])
(defalias 'pr-txt-print #[(from to) "\306\307!!\310 \311\"\n \312 \f\"+\207" [pr-txt-command pr-txt-switches pr-txt-printer printer-name lpr-switches lpr-command pr-standard-file-name pr-command pr-switches "pr-txt-switches" lpr-region from to] 4])
(defalias 'pr-switches-string #[(switches mess) "\205\f \302\303\304 \"\305#\207" [switches mess mapconcat identity pr-switches " "] 5])
(defalias 'pr-switches #[(switches mess) "<\204\n \302\303 \"\210\304\305\306\"!\207" [switches mess error "%S should have a list of strings" ps-flatten-list mapcar ps-eval-switch] 4])
(defalias 'pr-ps-preview #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210
\206 \311\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-preview] 4])
(defalias 'pr-ps-using-ghostscript #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210
\206 ?\205 \311\n!\210\312\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-using-ghostscript pr-delete-file] 4])
(defalias 'pr-ps-print #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210
\206 ?\205 \311\n!\210\312\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-print pr-delete-file] 4])
(defalias 'pr-ps-file #[(&optional filename) "\303\206 \304\305\306 \n\"!\307\310#!\207" [filename pr-ps-temp-file pr-temp-dir pr-dosify-file-name make-temp-file convert-standard-filename expand-file-name nil ".ps"] 6])
(defalias 'pr-interactive-n-up #[(mess) ";\204 \306\307 \310\216\311\312\313\314\n #\315\316\315$ \316 \317\320\f\"\203B \321\f!\211\322W\2032 \323\202=
\324V\203< \325\202= \316\211\202E \326\211\203Y \327 \210\313\314\n #\f\316\315$\202
.\207" [mess save-match-data-internal fmt-prompt prompt str int "*" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "%s[%s] N-up printing (default 1): " "" pr-read-string format "1" nil string-match "^\\s *[0-9]+$" string-to-number 1 "Integer below 1; " 100 "Integer above 100; " "Invalid integer syntax; " ding] 6])
(defalias 'pr-interactive-dir #[(mess) "\306\307 \206 !\310\n\311Q\312\313 \314\"\314 \315 % \315 \316\f!\204* \317 \210\320\211\202: \321\f!\2049 \317 \210\322\211\202: \315\203O \306\f!\312\313
\"\314 \315 %\202 \323\f!,\207" [default-directory dir-name mess fmt-prompt dir prompt file-name-directory buffer-file-name "%s[" "] Directory to print: " read-directory-name format "" nil file-directory-p ding "It's not a directory! " file-readable-p "Directory is unreadable! " file-name-as-directory] 6])
(defalias 'pr-interactive-regexp #[(mess) "\301\302\303\"\304\305\304$\207" [mess pr-read-string format "[%s] File regexp to print: " "" nil] 5])
(defalias 'pr-interactive-dir-args #[(mess) "\301!\302!D\207" [mess pr-interactive-dir pr-interactive-regexp] 3])
(defalias 'pr-interactive-ps-dir-args #[(mess) "\303!\304!\305! ?\205 \306\n!F\207" [mess pr-spool-p current-prefix-arg pr-interactive-n-up pr-interactive-dir pr-interactive-regexp ps-print-preprint] 5])
(defalias 'pr-interactive-n-up-file #[(mess) "\303! ?\205 \304\n!D\207" [mess pr-spool-p current-prefix-arg pr-interactive-n-up ps-print-preprint] 3])
(defalias 'pr-interactive-n-up-inout #[(mess) "\302!\303\304P!\305 !E\207" [mess current-prefix-arg pr-interactive-n-up pr-ps-infile-preprint " " ps-print-preprint] 4])
(defalias 'pr-set-outfilename #[(filename-sym) "\204 J\303=\203 \n\205 \304\n!L\210 J\205 \305 J!L\207" [pr-spool-p filename-sym current-prefix-arg t ps-print-preprint pr-dosify-file-name] 3])
(defalias 'pr-set-n-up-and-filename #[(n-up-sym filename-sym mess) "J\204 \303 !L\210\304\n!\207" [n-up-sym mess filename-sym pr-interactive-n-up pr-set-outfilename] 3])
(defalias 'pr-set-dir-args #[(dir-sym regexp-sym mess) "J\204 \303 !L\210\nJ\206 \n\304 !L\207" [dir-sym mess regexp-sym pr-interactive-dir pr-interactive-regexp] 3])
(defalias 'pr-set-ps-dir-args #[(n-up-sym dir-sym regexp-sym filename-sym mess) "J\204 \305 !L\210\306\n #\210\307\f!\207" [n-up-sym mess dir-sym regexp-sym filename-sym pr-interactive-n-up pr-set-dir-args pr-set-outfilename] 4])
(defalias 'pr-find-buffer-visiting #[(file) "\306!\204 \307 \203 \227\202 !\207\310!\311 \312 \n\204M \203M r @q\210
\313=\203F \212eb\210\314e\315\\\312\210`S\"\f\230)\203F @) A\202 \n+\207" [file ps-windows-system found blist truename major-mode file-directory-p find-buffer-visiting file-truename buffer-list nil dired-mode buffer-substring-no-properties 2] 3])
(defalias 'pr-file-list #[(dir file-regexp fun) "\302\303\304\305 #\"\207" [dir file-regexp mapcar #[(file) "\204 \306 !?\2053 \307 !\310\211\211 \204 \311 !\2052 r\f\206% \312 !q\210
\210\f\2061 \313p!)+\207" [pr-list-directory file pop-up-frames pop-up-windows buffer fun file-directory-p pr-find-buffer-visiting nil file-readable-p find-file-noselect kill-buffer] 4] directory-files t] 6])
(defalias 'pr-delete-file-if-exists #[(filename) "?\205 ;\205 \302 !\205 \303 !\207" [pr-spool-p filename file-exists-p delete-file] 2])
(defalias 'pr-ps-file-list #[(n-up dir file-regexp filename) "\304\305!\211!\210\306\307\n \310#\210) \206 \311!\207" [filename pr-spool-p dir file-regexp pr-delete-file-if-exists pr-expand-file-name t pr-file-list #[nil "\203 \n\236A\203 \305 \f\"\207\306\307 \f#\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode pr-text2ps buffer] 4] pr-despool-print] 4])
(defalias 'pr-text2ps #[(kind n-up filename &optional from to) "\306 \307 !\210\n \310=\205 \310 \311
!\210\203o \203F \312=\203, \313 \210\202\301 \314=\203\301 \315\206: `\206A \316 \"\210\202\301 \312=\203T \317
!\210\202\301 \314=\203\301 \320\206b `\206i \316
#\210\202\301 \203\233 \312=\203\201 \321 \210\202\301 \314=\203\301 \322\206\217 `\206\226 \316 \"\210\202\301 \312=\203\251 \323
!\210\202\301 \314=\203\301 \324\206\267 `\206\276 \316
#\210*\307!)\207" [pr--default-file-modes pr-file-modes n-up ps-spool-config ps-n-up-printing filename default-file-modes set-default-file-modes setpagedevice pr-delete-file-if-exists buffer ps-spool-buffer-with-faces region ps-spool-region-with-faces mark ps-print-buffer-with-faces ps-print-region-with-faces ps-spool-buffer ps-spool-region ps-print-buffer ps-print-region pr-faces-p pr-spool-p kind from to] 4])
#@532 Return absolute file name specification for COMMAND.
If COMMAND is an empty string, return it.
If COMMAND is already an absolute file name specification, return it.
Else it uses `pr-path-alist' to find COMMAND, if find it then return it;
otherwise, gives an error.
When using `pr-path-alist' to find COMMAND, the entries `cygwin', `windows' and
`unix' are used (see `pr-path-alist' for documentation).
If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND,
COMMAND.exe, COMMAND.bat and COMMAND.com in this order.
(defalias 'pr-command #[(command) "\303\230\203 \207\304\305!\206/ \306 \203 \307\202! \n\203 \310\202! \311\312!\313#\206/ \314\315\312!\"!\207" [command pr-cygwin-system ps-windows-system "" pr-dosify-file-name pr-find-command pr-path-command cygwin windows unix file-name-nondirectory nil error "Command not found: %s"] 5 (#$ . 142836)])
(defalias 'pr-path-command #[(symbol command sym-list) " \236A\306\307=\203 \204 \310\311\312!! \203S @\211 9\2035 \f
>?\205F \313\f\f
B#\202F \f;\205F \314\315\316\317\f!P!!!)\211\204S A\211\204 \n*\207" [symbol pr-path-alist cmd lpath path sym-list nil PATH parse-colon-path getenv "PATH" pr-path-command pr-find-command expand-file-name substitute-in-file-name file-name-as-directory command] 6])
(defalias 'pr-find-command #[(cmd) "\2038 \304 \305\"\306\307\310EB\311\312 ! \2035 @P\211\2035 \313\n!\203- \314\n!\2045 A\311\202 \n*\207\313 !\205E \314 !\205E \207" [ps-windows-system cmd found ext file-name-extension t ".exe" ".bat" ".com" nil file-name-sans-extension file-regular-p file-executable-p] 4])
(defvar pr-i-window-configuration nil)
(defvar pr-i-buffer nil)
(defvar pr-i-region nil)
(defvar pr-i-mode nil)
(defvar pr-i-despool nil)
(defvar pr-i-ps-as-is t)
(defvar pr-i-n-up 1)
(defvar pr-i-directory "./")
(defvar pr-i-regexp "")
(defvar pr-i-ps-file "")
(defvar pr-i-out-file "")
(defvar pr-i-answer-yes nil)
(defvar pr-i-process 'buffer)
(defvar pr-i-ps-send 'printer)
#@26 Keymap for pr-interface.
(defvar pr-interface-map nil (#$ . 144841))
(byte-code "\204 \303 \304 \n\"\210\305 \306\307#\210\305 \310\311#\210 )\303\207" [pr-interface-map map widget-keymap make-sparse-keymap pr-set-keymap-parents define-key "q" pr-interface-quit "?" pr-interface-help] 4)
(defalias 'pr-interface-save '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer pr-i-buffer] 3]))
#@44 Create the front end for printing package.
(defalias 'pr-create-interface #[nil "\306p!\307 \n \236A\310 \311\312\313\314#\210\311\315\313\314#\210\316 \210\317\320(!!\210\321\320(!!\210\322)\323*R +\324\325\326+GZ\327\"+\"\210)\330\331\332\"\210\330,!\210\333 \210\334 \210\335 \210\324\336\325\337\340\"\"\210\341 \210\342 \210\343 \210\344 \210\345-!\210\346 \210eb\210 \205{ \347 \207" [pr-i-buffer pr-i-region major-mode pr-mode-alist pr-i-mode pr-i-window-configuration buffer-name ps-mark-active-p current-window-configuration put pr-i-process pr-widget-list nil pr-i-ps-send delete-other-windows kill-buffer get-buffer-create switch-to-buffer "printing v" " ps-print v" widget-insert make-string 79 32 pr-insert-italic "\nCurrent Directory : " 1 pr-insert-section-1 pr-insert-section-2 pr-insert-section-3 "\n\n " 77 45 pr-insert-section-4 pr-insert-section-5 pr-insert-section-6 pr-insert-section-7 use-local-map widget-setup pr-keep-region-active pr-buffer-name pr-version ps-print-version versions default-directory pr-interface-map] 5 (#$ . 145255)])
(defalias 'pr-insert-section-1 #[nil "\306\307\310\"\210\311\312\313\"\210\314\315\316\317 \320\211\n\203N \321\n@! \320 @\nA
\203; \f\204; \322
@@\"
A\211\204) \f\204J \323\324\325\326@FDB+\202 \237+\327\320\330&\210\331\332\333\334\335\332\336\337$#\210\331\340\333\334\341\340\342\343$#\210\311\312\344\"\210\345\344\346\347\325\350\351\352\353\354A&\n\210\345\355\346\347\325\356\351\357B&\210\360\361!\210\362\363\364\"\210\311\312\365\"\210\345\365\346\366\325\367\351\370\353\371C&\n\210\314\372\373\374D!\375\341%\210\362\376\377\"\207" [choices case-fold-search blist pr-buffer-name-ignore found ignore pr-insert-italic "\nPrint :" 1 pr-insert-radio-button pr-i-process buffer pr-insert-menu "Buffer List" pr-i-buffer buffer-list nil buffer-name string-match quote choice-item :format "%[%t%]" " Buffer : " (progn (pr-interface-save (setq pr-i-region (ps-mark-active-p) pr-i-mode (pr-mode-alist-p))) (pr-update-checkbox 'pr-i-region) (pr-update-checkbox 'pr-i-mode)) put pr-i-region pr-widget pr-insert-checkbox "\n " #[(widget &rest ignore) "rq\210\304 )\305\n!\204 \306\211\2024 \203$ \307\310\n\307\"\210\311 \2024 \312 \210\313\314!\210\306\310\n\306\"\210\311 )\207" [pr-i-buffer region-p widget pr-i-region ps-mark-active-p widget-value nil t widget-value-set widget-setup ding message "There is no region active"] 3] " Region" pr-i-mode " " #[(widget &rest ignore) "rq\210 \n\236A)\306\f!\204 \307\211\2026 \203& \310\311\f\310\"\210\312 \2026 \313 \210\314\315!\210\307\311\f\307\"\210\312 )\207" [pr-i-buffer major-mode pr-mode-alist mode-p widget pr-i-mode widget-value nil t widget-value-set widget-setup ding message "This buffer isn't in a mode that printing treats specially."] 3] " Mode\n" directory widget-create :size 58 " Directory : %v" :notify pr-interface-directory :action #[(widget &optional event) "\302!\203 \303 \"\207\304 \210\305\306!\207" [widget event pr-interface-directory pr-widget-field-action ding message "Please specify a readable directory"] 3] regexp "\n File Regexp : %v\n" #[(widget &rest ignore) "\302!\211\207" [widget pr-i-regexp widget-value] 2] widget-insert " " pr-insert-toggle pr-list-directory " List Directory Entry\n" file 51 " PostScript File : %v" pr-interface-infile #[(widget &rest event) "\302!\203 \303 \"\207\304 \210\305\306!\207" [widget event pr-interface-infile pr-widget-field-action ding message "Please specify a readable PostScript file"] 3] "PostScript Utility" pr-ps-utility pr-choice-alist "\n PostScript Utility : " pr-i-ps-as-is " No Preprocessing" name pr-i-directory pr-i-regexp pr-i-ps-file pr-ps-utility-alist] 12])
(defalias 'pr-insert-section-2 #[nil "\303\304\305\306#\210\307\310\311\312!#\210\313\314\315\316\317\314\320\321$#\210\322\323\324\325#\210\322\326\327\325#\210\322\330\331\"\210\332\333\334\"\210\335\336!\210\332\333\337\"\210\340\337\341\342\343\344\345\346\347\350 &\n\210\340\351\341\352\343\353\345\354\n&\207" [pr-ps-printer-alist pr-i-out-file pr-i-n-up pr-insert-italic "\n\nPostScript Printer : " 2 20 pr-insert-menu "PostScript Printer" pr-ps-name pr-choice-alist put pr-i-despool pr-widget pr-insert-checkbox " " #[(widget &rest ignore) "\203\n ?\202 \303 \210\304\305!\210\306\307\n \"\210\310 \207" [pr-spool-p pr-i-despool widget ding message "Can despool only when spooling is actually selected" nil widget-value-set widget-setup] 3] " Despool " pr-insert-button pr-interface-preview "Preview" " " pr-interface-ps-print "Print" pr-interface-quit "Quit" pr-insert-radio-button pr-i-ps-send printer widget-insert " Send to Printer/Temporary File" file widget-create :size 57 :format " Send to File : %v" :notify pr-interface-outfile :action #[(widget &rest event) "\304!\203 \305 !\203 \306\307!\211\203 \310 \"\207\311 \210\312\313!\207" [widget pr-i-out-file pr-i-answer-yes event pr-interface-outfile file-exists-p y-or-n-p "File exists; overwrite? " pr-widget-field-action ding message "Please specify a writable PostScript file"] 3] integer 3 "\n N-Up : %v" #[(widget &rest ignore) "\303\304\"\305\230\203
\306\202 \307!\211\250\203, \310 X\203, \311X\203, \312\313!\210 \211\2022 \314 \210\312\315!)\207" [widget value pr-i-n-up widget-apply :value-get "" 0 widget-value 1 100 message " " ding "Please specify an integer between 1 and 100"] 4]] 11])
(defalias 'pr-insert-section-3 #[nil "\301\302\303\304#\210\305\306\307\310!\311\312%\210\313\314\315\316#\210\313\317\320\316#\210\313\321\322\"\207" [pr-txt-printer-alist pr-insert-italic "\n\nText Printer : " 2 14 pr-insert-menu "Text Printer" pr-txt-name pr-choice-alist nil " " pr-insert-button pr-interface-printify "Printify" " " pr-interface-txt-print "Print" pr-interface-quit "Quit"] 6])
(defalias 'pr-insert-section-4 #[nil "\301\302\303\304\305$\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\301\327\330\331\332$\210\301\333\334\335\336$\210\306\337\340\"\210\301\333\341\342\343$\210\306\344\345\"\210\306\346\347\"\210\350\351\352\353#\210\354\355\356\357\360\"#\207" [pr-even-or-odd-alist pr-insert-checkbox "\n\n " ps-landscape-mode #[(&rest ignore) "?\211\211\207" [ps-landscape-mode pr-file-landscape] 3] " Landscape " pr-insert-toggle pr-auto-region " Auto Region " pr-buffer-verbose " Verbose\n " ps-print-header " Print Header " pr-auto-mode " Auto Mode\n " ps-print-header-frame " Print Header Frame " pr-menu-lock " Menu Lock\n " ps-line-number " Line Number\n " ps-zebra-stripes " Zebra Stripes" " " pr-spool-p #[(&rest ignore) "?\211?\205
\302\303\301!\207" [pr-spool-p pr-i-despool nil pr-update-checkbox] 3] " Spool Buffer" "\n " ps-spool-duplex #[(&rest ignore) "?\211\211\207" [ps-spool-duplex pr-file-duplex] 3] " Duplex " pr-faces-p " Print with faces" ps-spool-tumble #[(&rest ignore) "?\211\211\207" [ps-spool-tumble pr-file-tumble] 3] " Tumble " pr-print-using-ghostscript " Print via Ghostscript\n " ps-print-upside-down " Upside-Down" pr-insert-italic "\n\nSelect Pages : " 2 14 pr-insert-menu "Page Parity" ps-even-or-odd-pages mapcar #[(alist) "\301\302\303\304\305A\306@\257D\207" [alist quote choice-item :format "%[%t%]" :tag :value] 8]] 6])
(defalias 'pr-insert-section-5 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\307#\210\304\312\313\"\207" [pr-insert-italic "\n\nCustomize : " 2 11 pr-insert-button pr-customize "printing" " " #[(&rest ignore) "\300 \207" [ps-print-customize] 1] "ps-print" lpr-customize "lpr"] 4])
(defalias 'pr-insert-section-6 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\307#\210\304\312\313\"\207" [pr-insert-italic "\nShow Settings : " 1 14 pr-insert-button pr-show-pr-setup "printing" " " pr-show-ps-setup "ps-print" pr-show-lpr-setup "lpr"] 4])
(defalias 'pr-insert-section-7 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\312#\210\304\313\314\315#\210\304\316\317\"\207" [pr-insert-italic "\nHelp : " 1 5 pr-insert-button pr-interface-help "Interface Help" " " pr-help "Menu Help" " " pr-interface-quit "Quit" "\n " pr-kill-help "Kill All Printing Help Buffer"] 4])
#@32 Kill all printing help buffer.
(defalias 'pr-kill-help #[(&rest ignore) "\302\203 \303@!A \203 \304 !\210\305 !\210)\202 )\306\307 \310Z!\207" [help buffer ("*Printing Interface Help*" "*Printing Help*" "*LPR Setup*" "*PR Setup*" "*PS Setup*") get-buffer delete-windows-on kill-buffer recenter window-height 2] 3 (#$ . 153676) nil])
#@46 Kill the printing buffer interface and quit.
(defalias 'pr-interface-quit #[(&rest ignore) "\302!\210\303 !\207" [pr-buffer-name pr-i-window-configuration kill-buffer set-window-configuration] 2 (#$ . 154024) nil])
#@33 printing buffer interface help.
(defalias 'pr-interface-help #[(&rest ignore) "\301\302\"\207" [pr-interface-help-message pr-show-setup "*Printing Interface Help*"] 3 (#$ . 154246) nil])
#@26 Print using lpr package.
(defalias 'pr-interface-txt-print #[(&rest ignore) "\300\301\302\217\207" [data (byte-code "\306=\203 \302 \210r q\210\307\n \")\207\310=\203B r q\210\f\203*
\311 )\202@
\2037 \312 \313 )\202@ \312\211 \314 *)\207\315=\203L \316\317!\207\316\320\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region pr-i-mode directory pr-txt-directory buffer pr-txt-region nil pr-txt-mode pr-txt-buffer file error "Please specify a text file" "Internal error: `pr-i-process' = %S" pr-auto-mode pr-auto-region] 3) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3 (#$ . 154440) nil])
#@20 Printify a buffer.
(defalias 'pr-interface-printify #[(&rest ignore) "\300\301\302\217\207" [data (byte-code "\305=\203 \302 \210r q\210\306\n \")\207\307=\203* r q\210\f\203& \310 \202( \311 )\207\312=\2034 \313\314!\207\313\315\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region directory pr-printify-directory buffer pr-printify-region pr-printify-buffer file error "Cannot printify a PostScript file" "Internal error: `pr-i-process' = %S"] 3) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3 (#$ . 155132) nil])
#@31 Print using ps-print package.
(defalias 'pr-interface-ps-print #[(&rest ignore) "\300\301\302\303\304\305\306\307&\207" [pr-interface-ps pr-despool-ps-print pr-ps-directory-ps-print pr-ps-file-ps-print pr-ps-file-up-ps-print pr-ps-region-ps-print pr-ps-mode-ps-print pr-ps-buffer-ps-print] 8 (#$ . 155743) nil])
#@28 Preview a PostScript file.
(defalias 'pr-interface-preview #[(&rest ignore) "\300\301\302\303\304\305\306\307&\207" [pr-interface-ps pr-despool-preview pr-ps-directory-preview pr-ps-file-preview pr-ps-file-up-preview pr-ps-region-preview pr-ps-mode-preview pr-ps-buffer-preview] 8 (#$ . 156062) nil])
(defalias 'pr-interface-ps #[(ps-despool ps-directory ps-file ps-file-up ps-region ps-mode ps-buffer) "\300\301\302\217\207" [data (byte-code "\306=\203\n \206\f \307 \203' \f\203' r
q\210\n!\210)\310\311\303!\202\301 \312=\203B \313 \210r
q\210 \n$)\202\301 \306=\203} \314!\204V \315!\204\\ \316\317!\202\301 \203m r
q\210!)\202\301 r
q\210\n#)\202\301 \320=\203\275 r
q\210\203\232 \n\")\202\271 \203\254 \310 \n\")\202\271 \310\211 \n\"*)\202\301 \316\321\")\207" [pr-i-process pr-i-ps-as-is outfile pr-i-despool pr-spool-p pr-i-buffer file pr-i-ps-send nil pr-update-checkbox directory pr-i-directory file-directory-p file-readable-p error "Please specify a readable PostScript file" buffer "Internal error: `pr-i-process' = %S" ps-despool ps-directory pr-i-n-up pr-i-regexp pr-i-ps-file ps-file ps-file-up pr-i-region pr-i-mode pr-auto-mode ps-region pr-auto-region ps-mode ps-buffer] 5) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3])
(defalias 'pr-i-ps-send #[nil "\303=\203 \304\207\305=\204 \306\307\"\207\310 !\204 \311 !\204# \306\312!\207\313 !\2038 \n\2048 \314\315\316 \"!\211\203: \207\306\317!\207" [pr-i-ps-send pr-i-out-file pr-i-answer-yes printer nil file error "Internal error: `pr-i-ps-send' = %S" file-directory-p file-writable-p "Please specify a writable PostScript file" file-exists-p y-or-n-p format "File `%s' exists; overwrite? " "File already exists"] 4])
(defalias 'pr-i-directory #[nil "\301!\203\f \302!\206 \303\304!\207" [pr-i-directory file-directory-p file-readable-p error "Please specify be a readable directory"] 2])
(defalias 'pr-interface-directory #[(widget &rest ignore) "\203 \304\305!\210\306 !\307\n!\205 \310\n!\205 \n\211)\207" [pr-buffer-verbose widget dir pr-i-directory message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-readable-p] 2])
(defalias 'pr-interface-infile #[(widget &rest ignore) "\203 \304\305!\210\306 !\307\n!?\205 \310\n!\205 \n\211)\207" [pr-buffer-verbose widget file pr-i-ps-file message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-readable-p] 2])
(defalias 'pr-interface-outfile #[(widget &rest ignore) "\305 \203\n \306\307!\210\310\n!\311 !?\205 \312 !\205 \211)\207" [pr-i-answer-yes pr-buffer-verbose widget file pr-i-out-file nil message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-writable-p] 2])
(defalias 'pr-widget-field-action #[(widget event) "\302\303!\203\n \304\303!\210\305\306!\210\307 \"\207" [widget event get-buffer "*Completions*" delete-windows-on message " " widget-field-action] 3])
(defalias 'pr-insert-italic #[(str &optional from to) "G\304\n\203 \n\305]\202 \305 \203 ]\202 \306\307%\210\310!)\207" [str len from to put-text-property 0 face italic widget-insert] 6])
(defalias 'pr-insert-checkbox #[(before var-sym fun label) "\304!\210\305\306\307 \nJ$\304 !\210\207" [before fun var-sym label widget-insert widget-create checkbox :notify] 5])
(defalias 'pr-insert-toggle #[(var-sym label) "\302\303\304\305\306\307\310DEEJ$\210\311 !\207" [var-sym label widget-create checkbox :notify lambda (&rest ignore) setq not widget-insert] 9])
(defalias 'pr-insert-button #[(fun label &optional separator) "\303\304\305 $\210\n\205 \306\n!\207" [fun label separator widget-create push-button :notify widget-insert] 5])
(defalias 'pr-insert-menu #[(tag var-sym choices &optional before after &rest body) "\203 \306!\210\307\310\311\312 \313\314\315\316\317\n\320\321\322\323\n\324BB BBB\325\326\fBBBBBBBBBBBBBB!\210
\2059 \306
!\207" [before tag var-sym body choices after widget-insert eval widget-create 'menu-choice :tag :format "%v" :inline t :value :notify lambda (widget &rest ignore) setq ((widget-value widget)) :void '(choice-item :format "%[%t%]" :tag "Can not display value!")] 17])
(defalias 'pr-insert-radio-button #[(var-sym sym) "\304\305!\210\306N\307\310\311\312\313\314\315\316 DE\317\320\321\322\316 DE\323\316DDF\257!\324\306\n B B#*\207" [var-sym sym wid wid-list widget-insert "\n" pr-widget-list eval widget-create 'radio-button :format " %[%v%]" :value eq quote :notify lambda (&rest ignore) setq pr-update-radio-button put] 15])
(defalias 'pr-update-radio-button #[(var-sym) "\304N \203 @@ @A A\305 J\n=\"\210*\202 \306 )\207" [var-sym wid-list value wid pr-widget-list widget-value-set widget-setup] 4])
(defalias 'pr-update-checkbox #[(var-sym) "\302N\211\205 \303 J\"\210\304 )\207" [var-sym wid pr-widget widget-value-set widget-setup] 4])
(defalias 'pr-choice-alist #[(alist) "\302\301\303\304\"\"\303\305\")\207" [alist max apply mapcar #[(alist) "\301@!G\207" [alist symbol-name] 2] #[(alist) "@\304 !\305\306\307\310\311\n\312 \nGZ\313\"P\314 \257*D\207" [alist sym name max symbol-name quote choice-item :format "%[%t%]" :tag make-string 95 :value] 9]] 5])
(provide 'printing)