| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
#@168 printing.el, v 6.9.3 <2007/12/09 vinicius>
Please send all bug fixes and enhancements to
bug-gnu-emacs@gnu.org and Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
(defconst pr-version "6.9.3" (#$ . 85))
(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" [lpr-windows-system getenv "OSTYPE" string-match "cygwin"] 4))
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias pr-path-style pr-filename-style nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1"] 7)
#@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" (#$ . 907))
#@78 Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.
(defvar pr-ps-printer-menu-modified t (#$ . 1053))
#@79 Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.
(defvar pr-txt-printer-menu-modified t (#$ . 1187))
#@78 Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.
(defvar pr-ps-utility-menu-modified t (#$ . 1323))
(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")))
(defalias 'pr-keep-region-active #[0 "\301\211\207" [deactivate-mark nil] 2])
(defalias 'pr-region-active-p #[0 "\205 \301 \207" [pr-auto-region use-region-p] 1])
#@34 Specify Printing menu-bar entry.
(defvar pr-menu-bar nil (#$ . 1816))
#@18
(fn MENU-SPEC)
(defalias 'pr-global-menubar #[257 "\303\304\305\306\"\203 \307 \306$\210\310 \311#\210\312\211\207\307 #\207" [pr-menu-print-item global-map pr-menu-bar ("menu-bar" "file") [menu-bar file Print] easy-menu-create-menu "Print" easy-menu-add-item easy-menu-remove-item "print" nil] 9 (#$ . 1892)])
#@31
(fn ENTRY INDEX HORIZONTAL)
(defalias 'pr-menu-position #[771 "\303 A\211@\206 \304\203 \304\202 _ZA\206 \304\305\"\n_ZD\306 D\207" [lpr-windows-system pr-menu-char-width pr-menu-char-height mouse-pixel-position 0 pr-menu-index selected-frame] 9 (#$ . 2222)])
(defvar pr-menu-position nil)
(defvar pr-menu-state nil)
#@13
(fn PATH)
(defalias 'pr-menu-lookup #[257 "\302\203 \303 \304\305<\203 \202 C\"\"\202 \"\207" [global-map pr-menu-bar lookup-key vconcat mapcar easy-menu-intern] 8 (#$ . 2559)])
#@42
(fn ENTRY INDEX HORIZONTAL STATE PATH)
(defalias 'pr-menu-lock #[1285 "\205> \203 \n=\204 \301#\303!\304 \"\211\2039 \305\306!\"\307!\2034 \211 \266\202; \310!\266\266\311\211\207" [pr-menu-lock pr-menu-position pr-menu-state pr-menu-lookup x-popup-menu lookup-key vconcat fboundp eval nil] 11 (#$ . 2758)])
#@24
(fn &optional FORCE)
(defalias 'pr-do-update-menus #[256 "\306\307\310\311\312\311\313\314& \210\306 \315\316\317\320\317\321\314& \210\n\306\f\322\323\324\303\325\326\327& \210)\306\f\322\323\330\302\325\326\327& \210\331
\"\207" [pr-ps-printer-alist pr-txt-printer-alist pr-ps-utility-menu-modified pr--save-var pr-ps-utility-alist ps-even-or-odd-pages 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] 11 (#$ . 3095)])
#@18
(fn NAME-LIST)
(defalias 'pr-menu-get-item #[257 "\211<\204 \211C\262\211\2051 \302!\211@\211;\203 \303!\262A\237\304\305 \306\307\"\"\"AA\236\266\204\207" [global-map pr-menu-bar reverse intern lookup-key vconcat mapcar easy-menu-intern] 11 (#$ . 3868)])
(defvar pr-temp-menu nil)
#@72
(fn ALIST VAR-SYM FUN MENU-PATH MODIFIED-SYM FORCE NAME ENTRY INDEX)
(defalias 'pr-menu-alist #[2313 "\205C \204 J\205C \301\302!\210\303\300\302\304\305\n\n&$\210\306!\211\203? \307\233\211\240\266 J\"\210\210\302L\207" [pr-temp-menu (lambda (#1=#:def-tmp-var) (defvar pr-temp-menu #1# #2="")) nil easy-menu-do-define #2# pr-menu-create pr-menu-get-item 3] 20 (#$ . 4170)])
#@18
(fn ITEM NAME)
(defalias 'pr-menu-set-item-name #[514 "\205 AA\240\207" [] 4 (#$ . 4579)])
#@41
(fn VALUE &optional ITEM ENTRY INDEX)
(defalias 'pr-menu-set-ps-title #[1025 "\300\206 \301\302!\303\304\"\"\210\305!\210\211\205 \306\307\310\311%\207" [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] 10 (#$ . 4682)])
#@41
(fn VALUE &optional ITEM ENTRY INDEX)
(defalias 'pr-menu-set-txt-title #[1025 "\300\206 \301\302!\303\304\"\"\210\305!\210\211\205 \306\307\310\311%\207" [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] 10 (#$ . 5008)])
#@41
(fn VALUE &optional ITEM ENTRY INDEX)
(defalias 'pr-menu-set-utility-title #[1025 "\300!\203 \301\"\266\202 \301\302\303!\"\210\301\302\304!\"\266\305!\210\211\205. \306\307\310\311%\207" [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")] 10 (#$ . 5324)])
#@32
(fn VALUE &optional NO-LOCK)
(defalias 'pr-even-or-odd-pages #[513 "\302\303\304!\236A\"\210\211\206 \305\306\307\310\311\312%\207" [pr-even-or-odd-alist ps-even-or-odd-pages pr-menu-set-item-name pr-menu-get-item "Print All Pages" pr-menu-lock postscript-options 8 12 toggle nil] 8 (#$ . 5768)])
#@87 Replace unix-style directory separator character with dos/windows one.
(fn FILENAME)
(defalias 'pr-dosify-file-name #[257 "\301=\203\f \302\303\304#\207\207" [pr-filename-style windows subst-char-in-string 47 92] 5 (#$ . 6078)])
#@216 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.
(fn FILENAME)
(defalias 'pr-standard-file-name #[257 "\204 \203 \302\303\304#\207\207" [pr-cygwin-system lpr-windows-system subst-char-in-string 47 92] 5 (#$ . 6317)])
#@87 Set the value of custom variables for printer & utility selection.
(fn SYMBOL VALUE)
(defalias 'pr-alist-custom-set #[514 "L\210\300\301!\205
\302\303!\207" [featurep printing pr-update-menus t] 4 (#$ . 6697)])
#@47 Update utility menu entry.
(fn SYMBOL VALUE)
(defalias 'pr-ps-utility-custom-set #[514 "L\210\300\301!\205
\302!\207" [featurep printing pr-menu-set-utility-title] 4 (#$ . 6918)])
#@61 Update `PostScript Printer:' menu entry.
(fn SYMBOL VALUE)
(defalias 'pr-ps-name-custom-set #[514 "L\210\300\301!\205
\302!\207" [featurep printing pr-menu-set-ps-title] 4 (#$ . 7109)])
#@55 Update `Text Printer:' menu entry.
(fn SYMBOL VALUE)
(defalias 'pr-txt-name-custom-set #[514 "L\210\300\301!\205
\302!\207" [featurep printing pr-menu-set-txt-title] 4 (#$ . 7306)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\314\316&\210\317\320\321\322\323DD\324\325\326%\210\317\327\321\322\330DD\331\325\332%\210\317\333\321\322\334DD\335\325\336\337\340&\210\317\341\321\322\342DD\343\325\344\337\345&\210\317\346\321\322\347DD\350\325\336\337\351&\210\317\352\321\322\353DD\354\325\355\337\345&\210\317\356\321\322\357DD\360\325\361%\210\317\362\321\322\363DD\364\325\365%\210\317\366\321\322\367DD\370\325\371%\210\317\372\321\322\373DD\374\325\375%\210\317\376\321\322\377DD\201@ \325\201A %\210\317\201B \321\322\201C DD\201D \325\201E %\210\317\201F \321\322\201G DD\201H \325\201I %\210\317\201J \321\322\201K DD\201L \325\201M %\210\317\201N \321\322\201O DD\201P \325\201Q %\210\317\201R \321\322\201S DD\201T \325\201Q %\210\317\201U \321\322\201V DD\201W \325\201Q %\210\317\201X \321\322\201Y DD\201Z \325\201Q %\210\317\201[ \321\322\201\\ DD\201] \325\201Q %\210\317\201^ \321\322\201_ DD\201` \325\201Q %\210\317\201a \321\322\201b DD\201c \325\201Q %\210\317\201d \321\322\201e DD\201f \325\201Q %\210\317\201g \321\322\201h DD\201i \325\201j %\210\317\201k \321\322\201l DD\201m \325\201n \337\201o &\210\317\201p \321\322\201q DD\201r \325\201s \337\345&\210\317\201t \321\322\201u DD\201v \325\201Q %\210\317\201w \321\322\201x DD\201y \325\201z %\210\317\201{ \321\322\201| DD\201} \325\201z %\210\317\201~ \321\322\201 DD\201\200 \325\201\201 %\210\317\201\202 \321\322\201\203 DD\201\204 \325\201\205 %\210\317\201\206 \321\322\201\207 DD\201\210 \325\201Q %\210\317\201\211 \321\322\201\212 DD\201\213 \325\201Q %\210\317\201\214 \321\322\201\215 DD\201\216 \325\201\217 %\210\317\201\220 \321\322\201\221 DD\201\222 \325\201\223 %\210\317\201\224 \321\322\201\225 DD\201\226 \325\201Q %\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 text postscript custom-declare-variable pr-filename-style funcall function #[0 "\204\n \203\n \302\207\303\207" [pr-cygwin-system lpr-windows-system windows unix] 1 #1=""] "Specify which filename 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 "Filename style" (const :tag "Windows 9x/NT Style (\\)" :value windows) (const :tag "Unix Style (/)" :value unix)) pr-path-alist #[0 "\300\207" [((unix PATH) (cygwin PATH) (windows PATH))] 1 #1#] "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 #[0 "\300\207" [default] 1 #1#] "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 #[0 "\303\304\305\301!\203
\202 \n\203 \306\202 \304FC\207" [lpr-command printer-name lpr-windows-system default nil boundp "PRN"] 5 #1#] "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 setting option `pr-txt-name' 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 `https://www.computerhope.com/printhlp.htm'\n\n* RedMon - Redirection Port Monitor (redpr.exe)\n `http://www.ghostgum.com.au/software/redmon.htm'\n\n* Redirection Port Monitor (redpr.exe on-line help)\n `https://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'\n\n* UNIX man pages: lpr (or type `man lpr')\n `https://linux.die.net/man/1/lpr-cups'\n\n* UNIX man pages: lp (or type `man lp')\n `https://linux.die.net/man/1/lp'" (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 #[0 "\300\207" [default] 1 #1#] "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 #[0 "\304\305 \203 \305\202 \n\203 \306\202 \307\310\311!\206! \310\312!\206! \257C\207" [lpr-command lpr-windows-system lpr-lp-system ps-printer-name default nil "-d" "-P" getenv "PRINTER" "LPDEST"] 6 #1#] "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 setting option `pr-ps-name' 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 `https://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'\n\n* Introduction to Ghostscript\n `https://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `https://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Information about the print command (print.exe)\n `https://www.computerhope.com/printhlp.htm'\n\n* RedMon - Redirection Port Monitor (redpr.exe)\n `http://www.ghostgum.com.au/software/redmon.htm'\n\n* Redirection Port Monitor (redpr.exe on-line help)\n `https://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'\n\n* UNIX man pages: lpr (or type `man lpr')\n `https://linux.die.net/man/1/lpr-cups'\n\n* UNIX man pages: lp (or type `man lp')\n `https://linux.die.net/man/1/lp'\n\n* GNU utilities for w32 (cp.exe)\n `http://unxutils.sourceforge.net/'" (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 #[0 "\207" [temporary-file-directory] 1 #1#] "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 #[0 "\300\207" ["prspool-"] 1 #1#] "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 #[0 "\300\207" [384] 1 #1#] "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 #[0 "\203 \301\207\302\207" [lpr-windows-system "gsview32.exe" "gv"] 1 #1#] "Specify path and name of the gsview/gv utility.\n\nSee also `pr-path-alist'.\n\nUseful links:\n\n* GNU gv manual\n `https://www.gnu.org/software/gv/manual/gv.html'\n\n* GSview Help\n `https://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm'\n\n* GSview Help - Common Problems\n `https://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm#Common_Problems'\n\n* GSview Readme (compilation & installation)\n `https://www.cs.wisc.edu/~ghost/gsview/Readme.htm'\n\n* GSview (main site)\n `https://www.cs.wisc.edu/~ghost/gsview/index.htm'\n\n* Ghostscript, Ghostview and GSview\n `https://www.cs.wisc.edu/~ghost/'\n\n* Ghostview\n `https://www.cs.wisc.edu/~ghost/gv/index.htm'\n\n* gv 3.5, June 1997\n `http://pages.cs.wisc.edu/~ghost/gv/gv_doc/gv.html'\n\n* MacGSView (Mac OS)\n `http://pages.cs.wisc.edu/~ghost/macos/index.htm'\n" (string :tag "Ghostview Utility") pr-gs-command #[0 "\203 \301\207\302\207" [lpr-windows-system "gswin32.exe" "gs"] 1 #1#] "Specify path and name of the ghostscript utility.\n\nSee also `pr-path-alist'.\n\nUseful links:\n\n* Ghostscript, Ghostview and GSview\n `https://www.cs.wisc.edu/~ghost/'\n\n* Introduction to Ghostscript\n `https://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `https://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Printer compatibility\n `https://www.cs.wisc.edu/~ghost/doc/printer.htm'\n" (string :tag "Ghostscript Utility") pr-gs-switches #[0 "\203 \301\207\302\207" [lpr-windows-system ("-q -dNOPAUSE -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts") ("-q -dNOPAUSE -I/usr/share/ghostscript/5.10")] 1 #1#] "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 `https://www.cs.wisc.edu/~ghost/doc/intro.htm'\n\n* How to use Ghostscript\n `https://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'\n\n* Printer compatibility\n `https://www.cs.wisc.edu/~ghost/doc/printer.htm'\n" (repeat (string :tag "Ghostscript Switch")) pr-gs-device #[0 "\203 \301\207\302\207" [lpr-windows-system "mswinpr2" "uniprint"] 1 #1#] "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 #[0 "\300\207" [300] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "Non-nil means print with face attributes." pr-spool-p #[0 "\300\207" [nil] 1 #1#] "Non-nil means spool printing in a buffer." pr-file-landscape #[0 "\300\207" [nil] 1 #1#] "Non-nil means print PostScript file in landscape orientation." pr-file-duplex #[0 "\300\207" [nil] 1 #1#] "Non-nil means print PostScript file in duplex mode." pr-file-tumble #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [((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))] 1 #1#] "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 #[0 "\300\207" [mpage] 1 #1#] "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 #[0 "\300\207" [((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil) (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil (inherits-from: . no-duplex)))] 1 #1#] "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 `https://www.mesa.nl/pub/mpage/'\n\n* mpage documentation (GNU or Unix - or type `man mpage')\n `https://linux.die.net/man/1/mpage'\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 `https://linux.die.net/man/1/psnup'\n\n* GNU Enscript (Windows, GNU or Unix)\n `https://people.ssh.com/mtr/genscript/'\n\n* GNU Enscript documentation (Windows, GNU or Unix)\n `https://people.ssh.com/mtr/genscript/enscript.man.html'\n (on GNU or Unix, type `man enscript')" (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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300 \207" [frame-char-height] 1 #1#] "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 #[0 "\300 \207" [frame-char-width] 1 #1#] "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 #[0 "\300\207" [((no-duplex nil nil nil (pr-file-duplex) (pr-file-tumble)))] 1 #1#] "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 option `pr-ps-utility',\n `pr-mode-alist' and `pr-ps-printer-alist'), the variables\n pr-file-duplex and 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 #[0 "\300\207" [(postscript text postscript-options postscript-process printing help)] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["*Printing Interface*"] 1 #1#] "Specify the name of the buffer interface for printing package.\n\nIt's used by `pr-interface'." string pr-buffer-name-ignore #[0 "\301!\302D\207" [pr-buffer-name regexp-quote "^ .*$"] 2 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 (#$ . 50559))
#@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 (#$ . 50676))
#@56 Specify text printer name.
See `pr-txt-printer-alist'.
(defvar pr-txt-printer nil (#$ . 50821))
#@76 Name of program for printing a PostScript file.
See `pr-ps-printer-alist'.
(defvar pr-ps-command nil (#$ . 50923))
#@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 (#$ . 51045))
#@68 Specify PostScript printer name switch.
See `pr-ps-printer-alist'.
(defvar pr-ps-printer-switch nil (#$ . 51194))
#@61 Specify PostScript printer name.
See `pr-ps-printer-alist'.
(defvar pr-ps-printer nil (#$ . 51314))
#@12
(fn KEY)
(defalias 'pr-visible-p #[257 "\211>\207" [pr-visible-entry-list] 3 (#$ . 51420)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pr-visible-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'pr-mode-alist-p #[0 " \236A\207" [major-mode pr-mode-alist] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pr-mode-alist-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'pr-auto-mode-p #[0 "\205 \n\236A\207" [pr-auto-mode major-mode pr-mode-alist] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pr-auto-mode-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'pr-using-ghostscript-p #[0 "\205 ?\207" [pr-print-using-ghostscript pr-spool-p] 1])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pr-using-ghostscript-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defconst pr-menu-spec '(["Printing Interface" pr-interface :help "Use buffer interface instead of menu interface"] "--" ("PostScript Preview" :included (pr-visible-p 'postscript) :help "Preview PostScript instead of sending to printer" ("Directory" :active (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" :active (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" :active (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" :active (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]" :help "Preview PostScript file"] "--" ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist :help "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 :help "Toggle landscape for PostScript file" :active pr-ps-utility-alist] ["Duplex" pr-toggle-file-duplex-menu :style toggle :selected pr-file-duplex :help "Toggle duplex for PostScript file" :active pr-ps-utility-alist] ["Tumble" pr-toggle-file-tumble-menu :style toggle :selected pr-file-tumble :help "Toggle tumble for PostScript file" :active (and pr-file-duplex pr-ps-utility-alist)]) ["Despool..." (call-interactively 'pr-despool-preview) :active pr-spool-p :keys "\\[pr-despool-preview]" :help "Despool PostScript buffer to printer or file (C-u)"]) ("PostScript Print" :included (pr-visible-p 'postscript) :help "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]"]) ("Region" :active (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]"]) ("Mode" :active (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]"]) ("File" ["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print) :keys "\\[pr-ps-file-ps-print]" :help "Send PostScript file to printer"] "--" ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist :help "Select PostScript utility"] "--" ["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] "--" ["Landscape" pr-toggle-file-landscape-menu :style toggle :selected pr-file-landscape :help "Toggle landscape for PostScript file" :active pr-ps-utility-alist] ["Duplex" pr-toggle-file-duplex-menu :style toggle :selected pr-file-duplex :help "Toggle duplex for PostScript file" :active pr-ps-utility-alist] ["Tumble" pr-toggle-file-tumble-menu :style toggle :selected pr-file-tumble :help "Toggle tumble for PostScript file" :active (and pr-file-duplex pr-ps-utility-alist)]) ["Despool..." (call-interactively 'pr-despool-ps-print) :active pr-spool-p :keys "\\[pr-despool-ps-print]" :help "Despool PostScript buffer to printer or file (C-u)"]) ["PostScript Printers" pr-update-menus :active pr-ps-printer-alist :included (pr-visible-p 'postscript) :help "Select PostScript printer"] "--" ("Printify" :included (pr-visible-p 'text) :help "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" :included (pr-visible-p 'text) :help "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-update-menus :active pr-txt-printer-alist :included (pr-visible-p 'text) :help "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" :included (pr-visible-p 'postscript-options) :help "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 :style toggle :selected pr-spool-p :included (pr-visible-p 'postscript-process) :help "Toggle PostScript spooling"] ["Print with faces" pr-toggle-faces-menu :style toggle :selected pr-faces-p :included (pr-visible-p 'postscript-process) :help "Toggle PostScript printing with faces"] ["Print via Ghostscript" pr-toggle-ghostscript-menu :style toggle :selected pr-print-using-ghostscript :included (pr-visible-p 'postscript-process) :help "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)]))
#@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 #[0 "\301!\210\302\303!\207" [pr-menu-spec pr-global-menubar pr-update-menus t] 2 (#$ . 60588) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\300\306\307\"\210\300\310\307\"\207" [global-set-key [print] pr-ps-fast-fire [(meta print)] pr-ps-mode-using-ghostscript [(shift print)] [(control print)] pr-txt-fast-fire [(control meta print)]] 3)
#@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") (#$ . 61138))
#@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") (#$ . 72283))
#@174 Activate the printing interface buffer.
If BUFFER is nil, the current buffer is used for printing.
For more information, type \[pr-interface-help].
(fn &optional BUFFER)
(defalias 'pr-interface #[256 "r\211\206 pq\210\300 )\207" [pr-create-interface] 2 (#$ . 81001) nil])
#@811 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 (\[universal-argument]), 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'.
(fn N-UP DIR FILE-REGEXP &optional FILENAME)
(defalias 'pr-ps-directory-preview #[1027 "\305\303\302\301\300\306\307!%\210\310!\311 \n $\210\f\206$ \312!,\207" [pr--filename pr--file-regexp pr--dir pr--n-up pr-spool-p pr-set-ps-dir-args pr-prompt "PS preview dir" pr-ps-file pr-ps-file-list pr-ps-file-preview] 11 (#$ . 81284) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS preview dir"] 3)])
#@830 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 (\[universal-argument]), 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'.
(fn N-UP DIR FILE-REGEXP &optional FILENAME)
(defalias 'pr-ps-directory-using-ghostscript #[1027 "\304\303\302\301\300\305\306!%\210\307!\310 \n $\210\311!\210\206' \312!\262,\207" [pr--filename pr--file-regexp pr--dir pr--n-up 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] 11 (#$ . 82488) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir GS"] 3)])
#@818 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 (\[universal-argument]), 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'.
(fn N-UP DIR FILE-REGEXP &optional FILENAME)
(defalias 'pr-ps-directory-print #[1027 "\304\303\302\301\300\305\306!%\210\307!\310 \n $\210\311!\210\206' \312!\262,\207" [pr--filename pr--file-regexp pr--dir pr--n-up pr-set-ps-dir-args pr-prompt "PS print dir" pr-ps-file pr-ps-file-list pr-ps-file-print pr-delete-file] 11 (#$ . 83750) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir"] 3)])
#@886 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 (\[universal-argument]), 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'.
(fn N-UP DIR FILE-REGEXP &optional FILENAME)
(defalias 'pr-ps-directory-ps-print #[1027 "\306\303\302\301\300\307\310\311!!%\210\f\203
\204 \312\202! \313 \n $,\207" [pr--filename pr--file-regexp pr--dir pr--n-up pr-print-using-ghostscript pr-spool-p pr-set-ps-dir-args pr-prompt pr-prompt-gs "PS print dir" pr-ps-directory-using-ghostscript pr-ps-directory-print] 12 (#$ . 84970) (byte-code "\300\301\302\303!!!\207" [pr-interactive-ps-dir-args pr-prompt pr-prompt-gs "PS print dir"] 4)])
#@603 Preview buffer using ghostview.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (\[universal-argument]), the command prompts the user for a file name, and saves
the PostScript image in that file instead of 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.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-buffer-preview #[513 "\203 \n\236A\203 \303\"\207\304\305 \306\307!$\207" [pr-auto-mode major-mode pr-mode-alist pr-ps-mode-preview pr-ps-preview pr-region-active-symbol pr-region-active-string "PS preview"] 8 (#$ . 86319) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS preview"] 3)])
#@613 Print buffer using PostScript through ghostscript.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (\[universal-argument]), the command prompts the user for a file name, and saves
the PostScript image in that file instead of sending it to the printer.
Noninteractively, 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.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-buffer-using-ghostscript #[513 "\203 \n\236A\203 \303\"\207\304\305 \306\307!$\207" [pr-auto-mode major-mode pr-mode-alist pr-ps-mode-using-ghostscript pr-ps-using-ghostscript pr-region-active-symbol pr-region-active-string "PS print GS"] 8 (#$ . 87263) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print GS"] 3)])
#@601 Print buffer using PostScript printer.
Interactively, the command prompts for N-UP printing number and, when you use a
prefix argument (\[universal-argument]), the command prompts the user for a file name, and saves
the PostScript image in that file instead of sending it to the printer.
Noninteractively, 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.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-buffer-print #[513 "\203 \n\236A\203 \303\"\207\304\305 \306\307!$\207" [pr-auto-mode major-mode pr-mode-alist pr-ps-mode-print pr-ps-print pr-region-active-symbol pr-region-active-string "PS print"] 8 (#$ . 88249) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print"] 3)])
#@669 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 (\[universal-argument]), the command prompts the user for a file name, and saves
the PostScript image in that file instead of sending it to the printer.
Noninteractively, 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.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-buffer-ps-print #[513 "\203 \n\236A\203 \305\"\207 \203\" \f\204\" \306\307 \310\311!$\207\312\307 \310\313!$\207" [pr-auto-mode major-mode pr-mode-alist pr-print-using-ghostscript pr-spool-p 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"] 8 (#$ . 89181) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt pr-prompt-gs "PS print"] 4)])
#@97 Preview region using ghostview.
See also `pr-ps-buffer-preview'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-region-preview #[513 "\203 \n\236A\203 \304\305\")\207\306\307\310$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region t pr-ps-mode-preview pr-ps-preview region "PS preview region"] 7 (#$ . 90322) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS preview"] 3)])
#@126 Print region using PostScript through ghostscript.
See also `pr-ps-buffer-using-ghostscript'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-region-using-ghostscript #[513 "\203 \n\236A\203 \304\305\")\207\306\307\310$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region t pr-ps-mode-using-ghostscript pr-ps-using-ghostscript region "PS print GS region"] 7 (#$ . 90750) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print GS"] 3)])
#@102 Print region using PostScript printer.
See also `pr-ps-buffer-print'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-region-print #[513 "\203 \n\236A\203 \304\305\")\207\306\307\310$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region t pr-ps-mode-print pr-ps-print region "PS print region"] 7 (#$ . 91239) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print"] 3)])
#@128 Print region using PostScript printer or through ghostscript.
See also `pr-ps-buffer-ps-print'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-region-ps-print #[513 "\203 \n\236A\203 \306\307\")\207\f\203\"
\204\" \310\311\312$\207\313\311\314$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region pr-print-using-ghostscript pr-spool-p t pr-ps-mode-ps-print pr-ps-using-ghostscript region "PS print GS region" pr-ps-print "PS print region"] 7 (#$ . 91662) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt-region pr-prompt-gs "PS print"] 4)])
#@101 Preview major mode using ghostview.
See also `pr-ps-buffer-preview'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-mode-preview #[513 "\303\301\300\304#\210\305!\306 \"\205 \n?\205 \307!\262*\207" [pr--filename pr--n-up pr-spool-p pr-set-n-up-and-filename "PS preview mode" pr-ps-file pr-ps-mode pr-ps-file-preview] 6 (#$ . 92254) (pr-interactive-n-up-file "PS preview mode")])
#@130 Print major mode using PostScript through ghostscript.
See also `pr-ps-buffer-using-ghostscript'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-mode-using-ghostscript #[513 "\303\301\300\304#\210\305!\306 \"\205$ \n?\205$ \307!\210\206$ \310!\262*\207" [pr--filename pr--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] 6 (#$ . 92651) (pr-interactive-n-up-file "PS print GS mode")])
#@106 Print major mode using PostScript printer.
See also `pr-ps-buffer-print'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-mode-print #[513 "\302\301\300\303#\210\304 \"*\207" [pr--filename pr--n-up pr-set-n-up-and-filename "PS print mode" pr-ps-mode] 6 (#$ . 93131) (pr-interactive-n-up-file "PS print mode")])
#@124 Print major mode using PostScript or through ghostscript.
See also `pr-ps-buffer-ps-print'.
(fn N-UP &optional FILENAME)
(defalias 'pr-ps-mode-ps-print #[513 "\203
\204
\302\"\207\303\"\207" [pr-print-using-ghostscript pr-spool-p pr-ps-mode-using-ghostscript pr-ps-mode-print] 5 (#$ . 93454) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-gs "PS print mode"] 3)])
#@509 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'.
(fn &optional DIR FILE-REGEXP)
(defalias 'pr-printify-directory #[512 "\302\301\300\303#\210\304 \305#*\207" [pr--file-regexp pr--dir pr-set-dir-args "Printify dir" pr-file-list pr-printify-buffer] 6 (#$ . 93856) (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 #[0 "\300 \203 \301 \207\302ed\"\207" [pr-region-active-p pr-printify-region printify-region] 3 (#$ . 94601) "*"])
#@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 #[0 "\300`\301 \"\207" [printify-region mark] 3 (#$ . 94977) "*"])
#@319 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'.
(fn &optional DIR FILE-REGEXP)
(defalias 'pr-txt-directory #[512 "\302\301\300\303#\210\304 \305#*\207" [pr--file-regexp pr--dir pr-set-dir-args "Print dir" pr-file-list pr-txt-buffer] 6 (#$ . 95304) (pr-interactive-dir-args "Print dir")])
#@34 Print buffer using text printer.
(defalias 'pr-txt-buffer #[0 "\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 (#$ . 95842) nil])
#@34 Print region using text printer.
(defalias 'pr-txt-region #[0 "\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 (#$ . 96094) nil])
#@38 Print major mode using text printer.
(defalias 'pr-txt-mode #[0 " \236A\211\203 \211@AA!\207\302 \210\303\304\"\207" [major-mode pr-mode-alist ding message "`%s' major mode not declared."] 4 (#$ . 96325) nil])
#@458 Preview spooled PostScript.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of 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.
(fn &optional FILENAME)
(defalias 'pr-despool-preview #[256 "\300!\211;\205 \301!\210\302!\207" [pr-ps-file pr-despool-print pr-ps-file-preview] 4 (#$ . 96546) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@465 Print spooled PostScript using ghostscript.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of sending it to the printer.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
send the image to the printer. If FILENAME is a string, save the PostScript
image in a file with that name.
(fn &optional FILENAME)
(defalias 'pr-despool-using-ghostscript #[256 "\300!\211;\205 \301!\210\302!\210\206 \303!\207" [pr-ps-file pr-despool-print pr-ps-file-using-ghostscript pr-delete-file] 4 (#$ . 97219) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@465 Send the spooled PostScript to the printer.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of sending it to the printer.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
send the image to the printer. If FILENAME is a string, save the PostScript
image in a file with that name.
(fn &optional FILENAME)
(defalias 'pr-despool-print #[256 "\306 \307\310\"\216\311!\210\312 !\n \f \f
\313!-\207" [pr-file-modes pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer ps-printer-name default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes pr-command ps-despool ps-printer-name-option ps-lpr-switches ps-lpr-command] 6 (#$ . 97951) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@496 Send the spooled PostScript to the printer or use ghostscript to print it.
Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the
user for a file name, and saves the spooled PostScript image in that file
instead of sending it to the printer.
Noninteractively, the argument FILENAME is treated as follows: if it is nil,
send the image to the printer. If FILENAME is a string, save the PostScript
image in a file with that name.
(fn &optional FILENAME)
(defalias 'pr-despool-ps-print #[256 "\203 \301!\207\302!\207" [pr-print-using-ghostscript pr-despool-using-ghostscript pr-despool-print] 3 (#$ . 98881) (byte-code "\301!C\207" [current-prefix-arg ps-print-preprint] 2)])
#@50 Preview PostScript file FILENAME.
(fn FILENAME)
(defalias 'pr-ps-file-preview #[257 "\211;\205 \301!\205 \302\"\207" [pr-gv-command file-exists-p pr-call-process] 4 (#$ . 99608) (byte-code "\300\301!C\207" [pr-ps-infile-preprint "Preview "] 2)])
#@76 Preview PostScript file FILENAME.
(fn N-UP IFILENAME &optional OFILENAME)
(defalias 'pr-ps-file-up-preview #[770 "\303\302\301\300\304$\305\n #\210\306!\262+\207" [pr--ofilename pr--ifilename pr--n-up pr-ps-utility-args "PS preview " pr-ps-utility-process pr-ps-file-preview] 8 (#$ . 99866) (pr-interactive-n-up-inout "PS preview")])
#@66 Print PostScript file FILENAME using ghostscript.
(fn FILENAME)
(defalias 'pr-ps-file-using-ghostscript #[257 "\211;\2057 \304!\2057 \305!\306!\307\310\311 \"\310\312\n\"\313 \314\"\310\315\316!\"\316!\317&\210\320!\210\321!\266\202\207" [pr-gs-command pr-gs-device pr-gs-resolution pr-gs-switches file-exists-p expand-file-name make-temp-file pr-call-process format "-sDEVICE=%s" "-r%d" pr-switches-string "pr-gs-switches" "-sOutputFile=\"%s\"" pr-dosify-file-name "-c quit" pr-ps-file-print pr-delete-file] 12 (#$ . 100216) (byte-code "\300\301!C\207" [pr-ps-infile-preprint "Print preview "] 2)])
#@48 Print PostScript file FILENAME.
(fn FILENAME)
(defalias 'pr-ps-file-print #[257 "\211;\205M \306!\205M \307!\310\230\203* \311 !r\nq\210\312 \210\313!\210)\314 )\202K \315\316\317 \320\"\321\322\"\203B \323!\f
PD\202J \f
P\323!D$\262\207" [pr-ps-command ps-spool-buffer-name ps-spool-buffer pr-ps-switches pr-ps-printer-switch pr-ps-printer file-exists-p 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-dosify-file-name] 9 (#$ . 100834) (byte-code "\300\301!C\207" [pr-ps-infile-preprint "Print "] 2)])
#@89 Send PostScript file FILENAME to printer or use ghostscript to print it.
(fn FILENAME)
(defalias 'pr-ps-file-ps-print #[257 "\203 \301!\207\302!\207" [pr-print-using-ghostscript pr-ps-file-using-ghostscript pr-ps-file-print] 3 (#$ . 101485) (byte-code "\301\203 \302\202\n \303!C\207" [pr-print-using-ghostscript pr-ps-infile-preprint "Print preview " "Print "] 2)])
#@880 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 (\[universal-argument]), 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.
(fn N-UP IFILENAME &optional OFILENAME)
(defalias 'pr-ps-file-up-ps-print #[770 "\304\302\301\300 \203 \305\202 \306$\307\n #\210?\205& \310!\210\311!\262+\207" [pr--ofilename pr--ifilename pr--n-up pr-print-using-ghostscript pr-ps-utility-args "PS print GS " "PS print " pr-ps-utility-process pr-ps-file-ps-print pr-delete-file] 8 (#$ . 101866) (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 #[0 "\300\301!\207" [pr-toggle-file-duplex-menu t] 2 (#$ . 103200) 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 #[0 "\300\301!\207" [pr-toggle-file-tumble-menu t] 2 (#$ . 103348) nil])
#@39 Toggle landscape for PostScript file.
(defalias 'pr-toggle-file-landscape #[0 "\300\301!\207" [pr-toggle-file-landscape-menu t] 2 (#$ . 103657) nil])
#@36 Toggle printing using ghostscript.
(defalias 'pr-toggle-ghostscript #[0 "\300\301!\207" [pr-toggle-ghostscript-menu t] 2 (#$ . 103813) nil])
#@29 Toggle printing with faces.
(defalias 'pr-toggle-faces #[0 "\300\301!\207" [pr-toggle-faces-menu t] 2 (#$ . 103960) nil])
#@18 Toggle spooling.
(defalias 'pr-toggle-spool #[0 "\300\301!\207" [pr-toggle-spool-menu t] 2 (#$ . 104088) nil])
#@16 Toggle duplex.
(defalias 'pr-toggle-duplex #[0 "\300\301!\207" [pr-toggle-duplex-menu t] 2 (#$ . 104205) 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 #[0 "\300\301!\207" [pr-toggle-tumble-menu t] 2 (#$ . 104323) nil])
#@19 Toggle landscape.
(defalias 'pr-toggle-landscape #[0 "\300\301!\207" [pr-toggle-landscape-menu t] 2 (#$ . 104602) nil])
#@21 Toggle upside-down.
(defalias 'pr-toggle-upside-down #[0 "\300\301!\207" [pr-toggle-upside-down-menu t] 2 (#$ . 104728) nil])
#@21 Toggle line number.
(defalias 'pr-toggle-line #[0 "\300\301!\207" [pr-toggle-line-menu t] 2 (#$ . 104860) nil])
#@23 Toggle zebra stripes.
(defalias 'pr-toggle-zebra #[0 "\300\301!\207" [pr-toggle-zebra-menu t] 2 (#$ . 104978) nil])
#@25 Toggle printing header.
(defalias 'pr-toggle-header #[0 "\300\301!\207" [pr-toggle-header-menu t] 2 (#$ . 105100) nil])
#@31 Toggle printing header frame.
(defalias 'pr-toggle-header-frame #[0 "\300\301!\207" [pr-toggle-header-frame-menu t] 2 (#$ . 105226) nil])
#@19 Toggle menu lock.
(defalias 'pr-toggle-lock #[0 "\300\301!\207" [pr-toggle-lock-menu t] 2 (#$ . 105370) nil])
#@54 Toggle whether the region is automagically detected.
(defalias 'pr-toggle-region #[0 "\300\301!\207" [pr-toggle-region-menu t] 2 (#$ . 105486) nil])
#@19 Toggle auto mode.
(defalias 'pr-toggle-mode #[0 "\300\301!\207" [pr-toggle-mode-menu t] 2 (#$ . 105641) nil])
#@59 Customization of the `printing' group.
(fn &rest IGNORE)
(defalias 'pr-customize #[128 "\300\301!\207" [customize-group printing] 3 (#$ . 105757) nil])
#@54 Customization of the `lpr' group.
(fn &rest IGNORE)
(defalias 'lpr-customize #[128 "\300\301!\207" [customize-group lpr] 3 (#$ . 105916) nil])
#@51 Help for the printing package.
(fn &rest IGNORE)
(defalias 'pr-help #[128 "\301\302\"\207" [pr-help-message pr-show-setup "*Printing Help*"] 4 (#$ . 106066) nil])
#@44 Interactively select a PostScript printer.
(defalias 'pr-ps-name #[0 "\302\303\304 #!\207" [pr-ps-printer-alist pr-ps-name pr-menu-set-ps-title pr-complete-alist "PostScript printer"] 5 (#$ . 106237) nil])
#@38 Interactively select a text printer.
(defalias 'pr-txt-name #[0 "\302\303\304 #!\207" [pr-txt-printer-alist pr-txt-name pr-menu-set-txt-title pr-complete-alist "Text printer"] 5 (#$ . 106450) nil])
#@44 Interactively select a PostScript utility.
(defalias 'pr-ps-utility #[0 "\302\303\304 #!\207" [pr-ps-utility-alist pr-ps-utility pr-menu-set-utility-title pr-complete-alist "PostScript utility"] 5 (#$ . 106655) nil])
#@52 Show current ps-print settings.
(fn &rest IGNORE)
(defalias 'pr-show-ps-setup #[128 "\300\301 \302\"\207" [pr-show-setup ps-setup "*PS Setup*"] 4 (#$ . 106879) nil])
#@52 Show current printing settings.
(fn &rest IGNORE)
(defalias 'pr-show-pr-setup #[128 "\300\301 \302\"\207" [pr-show-setup pr-setup "*PR Setup*"] 4 (#$ . 107052) nil])
#@47 Show current lpr settings.
(fn &rest IGNORE)
(defalias 'pr-show-lpr-setup #[128 "\300\301 \302\"\207" [pr-show-setup lpr-setup "*LPR Setup*"] 4 (#$ . 107225) nil])
#@2511 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:
\[pr-ps-fast-fire]
The command prompts the user for a N-UP value and printing will
immediately be done using the current active printer.
\[universal-argument] \[pr-ps-fast-fire]
\[universal-argument] 0 \[pr-ps-fast-fire]
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.
\[universal-argument] 1 \[pr-ps-fast-fire]
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.
\[universal-argument] 2 \[pr-ps-fast-fire]
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.
(fn N-UP &optional SELECT)
(defalias 'pr-ps-fast-fire #[513 "\305\211\306\203M <\203 \307 \210\202M 9\203( \n\236\203( \310!\210\202M \250\203M \311U\2046 \307 \210\311Y\203M \204M \312\f\203I \313\202J \314!\262\315\250\203[ \311]\316^\202^ \317\320!\"*\207" [pr-auto-mode pr-auto-region pr-ps-printer-alist pr-spool-p pr-print-using-ghostscript 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"] 8 (#$ . 107398) (byte-code "\301\302\303!!D\207" [current-prefix-arg pr-interactive-n-up pr-prompt-gs "PS print fast"] 3)])
#@959 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 (\[universal-argument]), 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.
(fn &optional SELECT-PRINTER)
(defalias 'pr-txt-fast-fire #[256 "\211\203 \2119\203 \211\236\203 \303!\210\202 \304 \210\305\211\306 *\207" [pr-txt-printer-alist pr-auto-mode pr-auto-region pr-menu-set-txt-title pr-txt-name t pr-txt-buffer] 3 (#$ . 110537) (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 #[0 "\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 " "lpr-windows-system " "lpr-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 lpr-windows-system lpr-lp-system] 63 (#$ . 111765)])
#@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 #[0 "\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 (#$ . 113914)])
#@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 #[0 "\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 (#$ . 114650)])
#@33 Go to mh-inbox current message.
(defalias 'pr-mh-current-message #[0 "\301\302!\206 \303\304 \210q\210eb\210\305 \210\306\307\"\207" [mh-show-buffer mh-get-msg-num nil 0 mh-show mh-start-of-uncleaned-message message "Printing message %d"] 4 (#$ . 115023)])
#@79 Print mh-inbox current message in PostScript.
(fn N-UP FILENAME HEADER-LIST)
(defalias 'pr-mh-print-1 #[771 "\212\300 \301\302\"\216\303 \210\304`$)\262)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] pr-mh-current-message pr-mode-print] 9 (#$ . 115289)])
#@67 Print mh-inbox current message in text printer.
(fn HEADER-LIST)
(defalias 'pr-mh-lpr-1 #[257 "\212\300 \301\302\"\216\303 \210\304`\")\262)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] pr-mh-current-message pr-mode-lpr] 5 (#$ . 115611)])
(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)
#@64 Print RMAIL current message in text printer.
(fn HEADER-LIST)
(defalias 'pr-rmail-lpr #[257 "\300\301\302#\207" [pr-lpr-message-from-summary rmail-buffer rmail-summary-buffer] 5 (#$ . 116032)])
#@76 Print RMAIL current message in PostScript.
(fn N-UP FILENAME HEADER-LIST)
(defalias 'pr-rmail-print #[771 "\300\301\302%\207" [pr-ps-message-from-summary rmail-buffer rmail-summary-buffer] 9 (#$ . 116234)])
#@101 Print current message in PostScript.
(fn N-UP FILENAME HEADER-LIST SUMMARY-BUFFER SUMMARY-DEFAULT)
(defalias 'pr-ps-message-from-summary #[1285 "\300!\203 J\206
\211J\301!\205 r\211q\210\302#)\207" [boundp get-buffer pr-mode-print] 10 (#$ . 116452)])
#@89 Print current message in text printer.
(fn HEADER-LIST SUMMARY-BUFFER SUMMARY-DEFAULT)
(defalias 'pr-lpr-message-from-summary #[771 "\300!\203 J\206
\211J\301!\205 r\211q\210\302!)\207" [boundp get-buffer pr-mode-lpr] 6 (#$ . 116722)])
(defvar pr-gnus-article "*Article*")
#@80 Print *Article* current message in PostScript.
(fn N-UP FILENAME HEADER-LIST)
(defalias 'pr-gnus-print #[771 "\300\301\302%\207" [pr-ps-message-from-summary gnus-article-buffer pr-gnus-article] 9 (#$ . 117009)])
#@68 Print *Article* current message in text printer.
(fn HEADER-LIST)
(defalias 'pr-gnus-lpr #[257 "\300\301\302#\207" [pr-lpr-message-from-summary gnus-article-buffer pr-gnus-article] 5 (#$ . 117231)])
(defvar pr-vm-summary "")
#@73 Print current vm message in PostScript.
(fn N-UP FILENAME HEADER-LIST)
(defalias 'pr-vm-print #[771 "\300\301\302%\207" [pr-ps-message-from-summary vm-mail-buffer pr-vm-summary] 9 (#$ . 117464)])
#@61 Print current vm message in text printer.
(fn HEADER-LIST)
(defalias 'pr-vm-lpr #[257 "\300\301\302#\207" [pr-lpr-message-from-summary vm-mail-buffer pr-vm-summary] 5 (#$ . 117670)])
#@80 If current major mode is declared, print it in PostScript.
(fn N-UP FILENAME)
(defalias 'pr-ps-mode #[514 " \236A\211\203 \211A\211@A#\210\302\207\303 \210\304\305\"\210\306\207" [major-mode pr-mode-alist t ding message "`%s' major mode not declared." nil] 8 (#$ . 117861)])
#@31
(fn HEADER-LIST &rest BODY)
(defalias 'pr-local-variable '(macro . #[385 "\300\301\302\303\304\305E\306BBD\307\303\304\310E\311BBD\312\303\304\313 E\314BBD\315BBB\301\316\317\320\321 EDDC\322\323\304\324 E\325BBC\"BBED\207" [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))] 13 (#$ . 118149)]))
#@91 Print current major mode in PostScript.
(fn N-UP FILENAME HEADER-LIST &optional FROM TO)
(defalias 'pr-mode-print #[1283 "\212@\206 A@\206 \3058\206 \n\306\307\310\233!\311!\2061 \312 \2030 \313 \2021 \306\314\315! \206N \312 \203H \316 \202N \205N d%\210\f\204a \204a \317!\210\320!\210\266\3218\205l \322!\262-\207" [ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle pr-spool-p 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] 14 (#$ . 118662)])
#@79 Print current major mode in text printer.
(fn HEADER-LIST &optional FROM TO)
(defalias 'pr-mode-lpr #[769 "\212@\206 A@\206 \3048\206 \n\305\306\307\233!\310\206/ \311 \203. \312 \202/ e\206> \311 \203= \313 \202> d\"\210\3148\205I \315!\262-\207" [ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle 2 nil pr-eval-local-alist 4 pr-txt-print pr-region-active-p region-beginning region-end 3 pr-kill-local-variable] 7 (#$ . 119292)])
#@187 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-list'.
(defconst pr-menu-entry-alist '((postscript . 3) (text . 3) (postscript-options . 9) (postscript-process . 3) (printing . 3) (help . 3)) (#$ . 119763))
#@20
(fn ENTRY INDEX)
(defalias 'pr-menu-index #[514 "\302\267\202 \303\202 \304\202 \305\202 \306\202 \307\307\2038 @\262A\262\211\211>\262\203 \236A\\\262\202 \266\211\310\\\207" [pr-visible-entry-list pr-menu-entry-alist #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (text 6 postscript-options 10 postscript-process 14 printing 18)) (postscript) (postscript text) (postscript text postscript-options) (postscript text postscript-options postscript-process) nil 2] 7 (#$ . 120107)])
#@22
(fn VAR-SYM ALIST)
(defalias 'pr-update-var #[514 "J\236\206\f @@L\207" [] 4 (#$ . 120654)])
#@509 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'.
(fn &optional FORCE)
(defalias 'pr-update-menus #[256 "\203 \304 \207\305\306 \"\210\305\307\n\"\210\305\310 \"\210\311!\207" [pr-menu-print-item pr-ps-printer-alist pr-txt-printer-alist pr-ps-utility-alist pr-menu-bind pr-update-var pr-ps-name pr-txt-name pr-ps-utility pr-do-update-menus] 4 (#$ . 120760) "P"])
#@43
(fn NAME ALIST VAR-SYM FUN ENTRY INDEX)
(defalias 'pr-menu-create #[1542 "\300\301\302%\"B\207" [mapcar make-closure #[257 "\211@\304\305!\301\306D\307\306\302D\306\303D\257\310\311\312\313\300\306 DE&\207" [V0 V1 V2 V3 vector symbol-name quote nil :style radio :selected eq] 12 "\n\n(fn ELT)"]] 14 (#$ . 121569)])
#@14
(fn VALUE)
(defalias 'pr-ps-set-utility #[257 "\211\236A\211\204
\302\303\"\210\304\305\233!\266\306 \207" [pr-ps-utility-alist pr-ps-utility error "Invalid PostScript utility name `%s' for variable `pr-ps-utility'" pr-eval-alist 9 force-mode-line-update] 5 (#$ . 121908)])
#@14
(fn VALUE)
(defalias 'pr-ps-set-printer #[257 "\211\236A\211\204
\306\307\"\210\211@\211A@\3108\3118\n;\2047 \203, \312\2026 \2035 \313\2026 \314\f;\204P \203E \315\202O \203N \316\202O \317\320\321\233!\266\322 \207" [pr-ps-printer-alist pr-ps-name pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer error "Invalid PostScript printer name `%s' for variable `pr-ps-name'" 2 3 "print" "lp" "lpr" "/D:" "-d" "-P" pr-eval-alist 4 force-mode-line-update lpr-windows-system lpr-lp-system] 5 (#$ . 122197)])
#@14
(fn VALUE)
(defalias 'pr-txt-set-printer #[257 "\211\236A\211\204
\306\307\"\210\211@\211A@\3108\210\n;\2043
\203( \311\2022
\2031 \312\2022 \313\314 \207" [pr-txt-printer-alist pr-txt-name pr-txt-command pr-txt-switches pr-txt-printer lpr-windows-system error "Invalid text printer name `%s' for variable `pr-txt-name'" 2 "print" "lp" "lpr" force-mode-line-update lpr-lp-system] 5 (#$ . 122743)])
#@14
(fn ALIST)
(defalias 'pr-eval-alist #[257 "\211\211\205( \211@\211@A\300=\203 \301\302\"\266\202! \303!L\266A\266\202\202 \207" [inherits-from: pr-eval-setting-alist global eval] 8 (#$ . 123162)])
#@14
(fn ALIST)
(defalias 'pr-eval-local-alist #[257 "\300\211\2030 \211@\211@A\301=\203 \302!\244\202% \303!\304!L\210B\262\266A\266\202\202 \210\207" [nil inherits-from: pr-eval-setting-alist make-local-variable eval] 9 (#$ . 123377)])
#@33
(fn KEY &optional GLOBAL OLD)
(defalias 'pr-eval-setting-alist #[769 "\236A\211\205f \211@A@\3018\302C\203' \203' \303 \210\304\305 \"\210\302\262\203G >\203: \306\307\"\210\202G \211\310 \nB#\240\210\311\204P \312\202\\ \203[ \313\314\"\202\\ \315\316\233\"\210\211\242\266\204\207" [pr-setting-database 2 nil ding message "There are local buffer settings for `%S'." error "Circular inheritance for `%S'" pr-eval-setting-alist mapc #[257 "\211@\211\300=\206 \211\301A!L\207" [inherits-from: eval] 5 "\n\n(fn OPTION)"] make-closure #[257 "\211@\211\301=?\205 \300\300\242B\240\210\302!\303A!L\207" [V0 inherits-from: make-local-variable eval] 5 "\n\n(fn OPTION)"] #[257 "\211@\211\300=\206 \301!\302A!L\207" [inherits-from: make-local-variable eval] 5 "\n\n(fn OPTION)"] 3] 14 (#$ . 123632)])
#@23
(fn LOCAL-VAR-LIST)
(defalias 'pr-kill-local-variable #[257 "\300\301\"\207" [mapcar kill-local-variable] 4 (#$ . 124466)])
#@73
(fn VAR-SYM MESS ENTRY INDEX HORIZONTAL STATE &optional PATH NO-MENU)
(defalias 'pr-toggle #[2054 "\211J?L\210\300\301\nJ\203 \302\202 \303#\210\211\206( \304%\207" [message "%s is %s" "on" "off" pr-menu-lock] 14 (#$ . 124599)])
#@82 Toggle whether to print PostScript files in duplex mode.
(fn &optional NO-MENU)
(defalias 'pr-toggle-file-duplex-menu #[256 "\300\301\302\303\304\305\303\306&\207" [pr-toggle pr-file-duplex "PS file duplex" nil 7 5 ("PostScript Print" "File")] 10 (#$ . 124853) nil])
#@82 Toggle whether to print PostScript files in tumble mode.
(fn &optional NO-MENU)
(defalias 'pr-toggle-file-tumble-menu #[256 "\300\301\302\303\304\305\303\306&\207" [pr-toggle pr-file-tumble "PS file tumble" nil 8 5 ("PostScript Print" "File")] 10 (#$ . 125130) nil])
#@92 Toggle whether to print PostScript files in landscape orientation.
(fn &optional NO-MENU)
(defalias 'pr-toggle-file-landscape-menu #[256 "\300\301\302\303\304\305\303\306&\207" [pr-toggle pr-file-landscape "PS file landscape" nil 6 5 ("PostScript Print" "File")] 10 (#$ . 125407) nil])
#@68 Toggle whether to print using ghostscript.
(fn &optional NO-MENU)
(defalias 'pr-toggle-ghostscript-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-print-using-ghostscript "Printing using ghostscript" postscript-process 2 12 toggle nil] 10 (#$ . 125703) nil])
#@71 Toggle whether to print with face attributes.
(fn &optional NO-MENU)
(defalias 'pr-toggle-faces-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-faces-p "Printing with faces" postscript-process 1 12 toggle nil] 10 (#$ . 125989) nil])
#@71 Toggle whether to spool printing in a buffer.
(fn &optional NO-MENU)
(defalias 'pr-toggle-spool-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-spool-p "Spooling printing" postscript-process 0 12 toggle nil] 10 (#$ . 126249) nil])
#@88 Toggle whether to generate PostScript for a two-sided printer.
(fn &optional NO-MENU)
(defalias 'pr-toggle-duplex-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-spool-duplex "Printing duplex" postscript-options 5 12 toggle nil] 10 (#$ . 126507) nil])
#@85 Toggle how pages on opposite sides of a sheet are oriented.
(fn &optional NO-MENU)
(defalias 'pr-toggle-tumble-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-spool-tumble "Tumble" postscript-options 6 12 toggle nil] 10 (#$ . 126786) nil])
#@68 Toggle whether to print in landscape mode.
(fn &optional NO-MENU)
(defalias 'pr-toggle-landscape-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-landscape-mode "Landscape" postscript-options 0 12 toggle nil] 10 (#$ . 127053) nil])
#@96 Toggle whether to print upside-down (that is, rotated by 180 degrees).
(fn &optional NO-MENU)
(defalias 'pr-toggle-upside-down-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-print-upside-down "Upside-Down" postscript-options 7 12 toggle nil] 10 (#$ . 127311) nil])
#@69 Toggle whether to means print line numbers.
(fn &optional NO-MENU)
(defalias 'pr-toggle-line-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-line-number "Line number" postscript-options 3 12 toggle nil] 10 (#$ . 127604) nil])
#@64 Toggle whether to print zebra stripes.
(fn &optional NO-MENU)
(defalias 'pr-toggle-zebra-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-zebra-stripes "Zebra stripe" postscript-options 4 12 toggle nil] 10 (#$ . 127857) nil])
#@83 Toggle whether to print a header at the top of each page.
(fn &optional NO-MENU)
(defalias 'pr-toggle-header-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-print-header "Print header" postscript-options 1 12 toggle nil] 10 (#$ . 128109) nil])
#@81 Toggle whether to draw a gaudy frame around the header.
(fn &optional NO-MENU)
(defalias 'pr-toggle-header-frame-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle ps-print-header-frame "Print header frame" postscript-options 2 12 toggle nil] 10 (#$ . 128380) nil])
#@91 Toggle whether the menu is locked while selecting toggle options.
(fn &optional NO-MENU)
(defalias 'pr-toggle-lock-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-menu-lock "Menu lock" printing 2 12 toggle nil] 10 (#$ . 128667) nil])
#@78 Toggle whether the region is automagically detected.
(fn &optional NO-MENU)
(defalias 'pr-toggle-region-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-auto-region "Auto region" printing 0 12 toggle nil] 10 (#$ . 128928) nil])
#@104 Toggle whether major-mode specific printing is preferred over normal printing.
(fn &optional NO-MENU)
(defalias 'pr-toggle-mode-menu #[256 "\300\301\302\303\304\305\306\307&\207" [pr-toggle pr-auto-mode "Auto mode" printing 1 12 toggle nil] 10 (#$ . 129183) nil])
#@12
(fn STR)
(defalias 'pr-prompt #[257 "\203 \n\236A\203 \211\303P\207\304!\207" [pr-auto-mode major-mode pr-mode-alist " mode" pr-region-active-string] 3 (#$ . 129457)])
#@12
(fn STR)
(defalias 'pr-prompt-region #[257 "\211\203 \n\236A\203 \303\202 \304P\207" [pr-auto-mode major-mode pr-mode-alist " mode" " region"] 4 (#$ . 129638)])
#@12
(fn STR)
(defalias 'pr-prompt-gs #[257 "\203\f \204\f \211\302P\207\207" [pr-print-using-ghostscript pr-spool-p " GS"] 3 (#$ . 129812)])
#@27
(fn &optional REGION-P)
(defalias 'pr-region-active-symbol #[256 "\211\204 \300 \203 \301\207\302\207" [pr-region-active-p region buffer] 2 (#$ . 129959)])
#@15
(fn PREFIX)
(defalias 'pr-region-active-string #[257 "\211\300 \203\n \301\202 \302P\207" [pr-region-active-p " region" " buffer"] 3 (#$ . 130125)])
#@29
(fn SETTINGS BUFFER-NAME)
(defalias 'pr-show-setup #[514 "r\306!q\210p\307 \210\310\211\311\211\311 \312 \210\313\314!\210+\211 \315!\210\316 \317!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only 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 standard-output] 8 (#$ . 130283)])
#@29
(fn PROMPT ALIST DEFAULT)
(defalias 'pr-complete-alist #[771 "\300\301\"\302\303\304P\305\306\307!\305\307\n!&\"A\207" [mapcar #[257 "\211@\262\300!B\207" [symbol-name] 3 "\n\n(fn ELT)"] assoc completing-read ": " nil t symbol-name] 14 (#$ . 130770)])
#@13
(fn FILE)
(defalias 'pr-delete-file #[257 "\205
\301!\205
\302!\207" [pr-delete-temp-file file-exists-p delete-file] 3 (#$ . 131041)])
#@23
(fn &optional MESS)
(defalias 'pr-ps-outfile-preprint #[256 "\301\302\206 \303\"\304\303\305$\306!\204 \307 \210\310\211\262\202E \311!\203. \307 \210\312\211\262\202E \313!\203D \307 \210\314\262\315\316\317\"!?\202E \305\203\\ \304\301\320\"\321!\305\211\322!%\262\202 \323!\207" [default-directory 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 format-message "File `%s' exists; overwrite? " "File %s; PostScript file: " file-name-directory file-name-nondirectory expand-file-name] 10 (#$ . 131189)])
#@23
(fn &optional MESS)
(defalias 'pr-ps-infile-preprint #[256 "\301\302\206 \303\"\304\303\305$\306!\204 \307 \210\310\211\262\202? \311!\204. \307 \210\312\211\262\202? \313!\203> \307 \210\314\211\262\202? \305\203V \304\301\315\"\316!\305\211\317!%\262\202 \320!\207" [default-directory 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 expand-file-name] 10 (#$ . 131839)])
#@47
(fn N-UP-SYM INFILE-SYM OUTFILE-SYM PROMPT)
(defalias 'pr-ps-utility-args #[1028 "J\204 \301!L\210J\302=\203 \303!L\210J\204\" \304\305\"\210J\302=\2033 \2051 \306!L\210\307J!\207" [current-prefix-arg pr-interactive-n-up t pr-ps-infile-preprint error "%s: Input PostScript file name is missing" pr-ps-outfile-preprint pr-ps-file] 7 (#$ . 132424)])
#@28
(fn N-UP INFILE OUTFILE)
(defalias 'pr-ps-utility-process #[771 "\306;\205d \307!\205d \236A\211\262\205d \310@\311A@\312\"\311\3138\312\"\3148\2052 \315\3148\n\"\315\3168\n\" \205B \3178\f\205J \3208
\205R \321 8\322\323
!!\324 8\322\323!!& \207" [pr-ps-utility pr-ps-utility-alist ps-paper-type pr-file-landscape pr-file-duplex pr-file-tumble nil file-exists-p pr-call-process pr-switches-string "pr-ps-utility-alist entry" 8 2 format 3 4 5 6 pr-dosify-file-name expand-file-name 7] 18 (#$ . 132795)])
#@12
(fn LST)
(defalias 'pr-remove-nil-from-list #[257 "\211\203 \211@\204 \211A\262\202 \211A\211\2031 \211@\203& \211\262\211A\262\202 \211A\262\241\210\202 \266\207" [] 5 (#$ . 133330)])
#@27
(fn COMMAND &rest ARGS)
(defalias 'pr-call-process #[385 "\301\302!\303!\304\305!\262rq\210db\210\306\307#c\210)\310 \311\312\"\216\313!\210\3141: \315\316\304\304\n&0\202? \317!\262\262)\210rq\210db\210\306\320\"c\210)\211;\204b \211\250\205f \211\321U?\205f \322\323\"\207" [pr-file-modes get-buffer-create "*Printing Command Output*" pr-command nil pr-remove-nil-from-list format "%s %S\n" default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes (quit error) apply call-process error-message-string "Exit status: %s\n\n" 0 message "Printing error status: %s (see *Printing Command Output* buffer)"] 13 (#$ . 133536)])
#@16
(fn FROM TO)
(defalias 'pr-txt-print #[514 "\306\307!!\310 \311\"\n \312\"+\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] 6 (#$ . 134235)])
#@22
(fn SWITCHES MESS)
(defalias 'pr-switches-string #[514 "\205\f \300\301\302\"\303#\207" [mapconcat identity pr-switches " "] 7 (#$ . 134507)])
#@22
(fn SWITCHES MESS)
(defalias 'pr-switches #[514 "<\204\n \300\301\"\210\302\303\304\"!\207" [error "%S should have a list of strings" flatten-tree mapcar lpr-eval-switch] 6 (#$ . 134661)])
#@32
(fn KIND N-UP FILENAME MESS)
(defalias 'pr-ps-preview #[1028 "\303\301\300#\210\304!\305 #\210\n\206 \306!\262*\207" [pr--filename pr--n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-preview] 9 (#$ . 134861)])
#@32
(fn KIND N-UP FILENAME MESS)
(defalias 'pr-ps-using-ghostscript #[1028 "\303\301\300#\210\304!\305 #\210\n\206 ?\205# \306!\210\307!\262*\207" [pr--filename pr--n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-using-ghostscript pr-delete-file] 9 (#$ . 135116)])
#@32
(fn KIND N-UP FILENAME MESS)
(defalias 'pr-ps-print #[1028 "\303\301\300#\210\304!\305 #\210\n\206 ?\205# \306!\210\307!\262*\207" [pr--filename pr--n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-print pr-delete-file] 9 (#$ . 135424)])
#@27
(fn &optional FILENAME)
(defalias 'pr-ps-file #[256 "\211\206 \302\303\304 \"!\305\306#\207" [pr-ps-temp-file pr-temp-dir make-temp-file convert-standard-filename expand-file-name nil ".ps"] 6 (#$ . 135708)])
#@13
(fn MESS)
(defalias 'pr-interactive-n-up #[257 "\211;\204 \300\262\301\302\303\304\"\305\"\211\262\306W\204 \211\307V\2039 \211\306W\203+ \310\311!\210\202/ \310\312!\210\313\305!\210\314 \210\202 \207" ["*" nil read-number format "[%s] N-up printing:" 1 0 100 message "Integer below 1" "Integer above 100" sit-for ding] 6 (#$ . 135927)])
#@13
(fn MESS)
(defalias 'pr-interactive-dir #[257 "\301\302 \206 !\303\304Q\305\306\307\"\307\310%\310\311!\204( \312 \210\313\211\262\2029 \314!\2048 \312 \210\315\211\262\2029 \310\203R \301!\262\305\306\"\307\310%\262\202 \316!\207" [default-directory 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] 11 (#$ . 136280)])
#@13
(fn MESS)
(defalias 'pr-interactive-regexp #[257 "\300\301\302\"!\207" [read-string format "[%s] File regexp to print: "] 5 (#$ . 136797)])
#@13
(fn MESS)
(defalias 'pr-interactive-dir-args #[257 "\300!\301!D\207" [pr-interactive-dir pr-interactive-regexp] 4 (#$ . 136946)])
#@13
(fn MESS)
(defalias 'pr-interactive-ps-dir-args #[257 "\302!\303!\304!?\205 \305 !F\207" [pr-spool-p current-prefix-arg pr-interactive-n-up pr-interactive-dir pr-interactive-regexp ps-print-preprint] 6 (#$ . 137086)])
#@13
(fn MESS)
(defalias 'pr-interactive-n-up-file #[257 "\302!?\205 \303 !D\207" [pr-spool-p current-prefix-arg pr-interactive-n-up ps-print-preprint] 4 (#$ . 137317)])
#@13
(fn MESS)
(defalias 'pr-interactive-n-up-inout #[257 "\301!\302\303P!\304!E\207" [current-prefix-arg pr-interactive-n-up pr-ps-infile-preprint " " ps-print-preprint] 5 (#$ . 137493)])
#@21
(fn FILENAME-SYM)
(defalias 'pr-set-outfilename #[257 "?\205 \211J\302=\205 \211 \205 \303 !L\207" [pr-spool-p current-prefix-arg t ps-print-preprint] 4 (#$ . 137688)])
#@35
(fn N-UP-SYM FILENAME-SYM MESS)
(defalias 'pr-set-n-up-and-filename #[771 "J\204 \300!L\210\301!\207" [pr-interactive-n-up pr-set-outfilename] 6 (#$ . 137869)])
#@32
(fn DIR-SYM REGEXP-SYM MESS)
(defalias 'pr-set-dir-args #[771 "J\204 \300!L\210J\206 \301!L\207" [pr-interactive-dir pr-interactive-regexp] 6 (#$ . 138043)])
#@54
(fn N-UP-SYM DIR-SYM REGEXP-SYM FILENAME-SYM MESS)
(defalias 'pr-set-ps-dir-args #[1285 "J\204 \300!L\210\301#\210\302!\207" [pr-interactive-n-up pr-set-dir-args pr-set-outfilename] 9 (#$ . 138217)])
#@13
(fn FILE)
(defalias 'pr-find-buffer-visiting #[257 "\302!\204 \303\203 \227\202 !\207\304!\305 \306\211\204L \203L r@q\210 \307=\203D \212eb\210\310e\311\\\306\210`S\"\230)\203D @\262)A\262\202 \207" [lpr-windows-system major-mode file-directory-p find-buffer-visiting file-truename buffer-list nil dired-mode buffer-substring-no-properties 2] 7 (#$ . 138433)])
#@28
(fn DIR FILE-REGEXP FUN)
(defalias 'pr-file-list #[771 "\300\301\302\"\303\304#\"\207" [mapcar make-closure #[257 " \204 \304!?\2054 \305!\306\211\211\204 \307!\2051 r\211\206$ \310!q\210\300 \210\211\2060 \311p!)*\262\207" [V0 pr-list-directory pop-up-frames pop-up-windows file-directory-p pr-find-buffer-visiting nil file-readable-p find-file-noselect kill-buffer] 4 "\n\n(fn FILE)"] directory-files t] 9 (#$ . 138820)])
#@17
(fn FILENAME)
(defalias 'pr-delete-file-if-exists #[257 "?\205 \211;\205 \301!\205 \302!\207" [pr-spool-p file-exists-p delete-file] 3 (#$ . 139265)])
#@38
(fn N-UP DIR FILE-REGEXP FILENAME)
(defalias 'pr-ps-file-list #[1028 "\211C\301\302\242!\240!\210\303\304\305\306 ##\210)\206\" \307\242!\207" [pr-spool-p pr-delete-file-if-exists expand-file-name t pr-file-list make-closure #[0 "\n\203 \f\236A\203 \305\300\301\242\"\207\306\307\300\301\242#\207" [V0 V1 pr-auto-mode major-mode pr-mode-alist pr-ps-mode pr-text2ps buffer] 4] pr-despool-print] 12 (#$ . 139430)])
#@45
(fn KIND N-UP FILENAME &optional FROM TO)
(defalias 'pr-text2ps #[1283 "\305 \306\307\"\216\310!\210 \311=\205 \311\312!\210 \203\201 \f\203@ \313\267\202< \314 \202\342 \315\2062 `\2068 \316 \"\202\342 \317\202\342 \320\267\202^ \321!\202\342 \322\206R `\206X \316 #\202\342 \f\205\342 \323\267\202} \314 \202\342 \315\206s `\206y \316 \"\202\342 \317\202\342 \f\203\244 \324\267\202\240 \325 \202\342 \326\206\226 `\206\234 \316 \"\202\342 \317\202\342 \327\267\202\302 \330!\202\342 \331\206\266 `\206\274 \316 #\202\342 \f\205\342 \332\267\202\341 \325 \202\342 \326\206\327 `\206\335 \316 \"\202\342 \317+\207" [pr-file-modes ps-spool-config ps-n-up-printing pr-faces-p pr-spool-p default-file-modes make-closure #[0 "\301\300!\207" [V0 set-default-file-modes] 2] set-default-file-modes setpagedevice pr-delete-file-if-exists #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 39 region 44)) ps-spool-buffer-with-faces ps-spool-region-with-faces mark nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 70 region 76)) ps-print-buffer-with-faces ps-print-region-with-faces #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 104 region 109)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 139 region 144)) ps-spool-buffer ps-spool-region #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 170 region 176)) ps-print-buffer ps-print-region #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (buffer 204 region 209))] 10 (#$ . 139864)])
#@546 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.
(fn COMMAND)
(defalias 'pr-command #[257 "\211\302\230\203 \207\303!\206- \304\203 \305\202 \203 \306\202 \307\310!\311#\206- \312\313\310!\"\207" [pr-cygwin-system lpr-windows-system "" pr-find-command pr-path-command cygwin windows unix file-name-nondirectory nil error "Command not found: %s"] 5 (#$ . 141592)])
#@32
(fn SYMBOL COMMAND SYM-LIST)
(defalias 'pr-path-command #[771 "\236A\301\302=\203 \204 \303\304\305!!\262\203T @\2119\2034 \211>?\205E \306B#\202E \211;\205E \307\310\311\312!P!!!\262\211\262\204T A\262\202 \207" [pr-path-alist nil PATH parse-colon-path getenv "PATH" pr-path-command pr-find-command expand-file-name substitute-in-file-name file-name-as-directory] 11 (#$ . 142455)])
#@12
(fn CMD)
(defalias 'pr-find-command #[257 "\2038 \301\302\"\303\304\305EB\306\307!\262\2037 @P\211\262\2037 \310!\203- \311!\2047 A\262\306\262\202 \207\310!\205E \311!\205E \211\207" [lpr-windows-system file-name-extension t ".exe" ".bat" ".com" nil file-name-sans-extension file-regular-p file-executable-p] 5 (#$ . 142871)])
(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)
#@28 Keymap for `pr-interface'.
(defvar pr-interface-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [widget-keymap make-sparse-keymap set-keymap-parent define-key "q" pr-interface-quit "?" pr-interface-help] 5) (#$ . 143601))
#@19
(fn &rest BODY)
(defalias 'pr-interface-save '(macro . #[128 "\300\301BB\207" [with-current-buffer pr-i-buffer] 4 (#$ . 143856)]))
#@44 Create the front end for printing package.
(defalias 'pr-create-interface #[0 "\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\326GZ\327\"\"\266\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 \205w \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 default-directory pr-interface-map] 5 (#$ . 143996)])
(defalias 'pr-insert-section-1 #[0 "\306\307\310\"\210\311\312\313\"\210\314\315\316\317 \320\211\203I \321@! \320A\262\2037 \211\2047 \322@\"\262A\262\202! \211\204D \323\324\325FB\262\266\202 \211\237)\266\203\326\320\327&\210\330\331\332\333\334\331\335\336$#\210\330\337\332\333\340\337\341\342$#\210\311\312\343\"\210\344\343\345\346\324\347\350\351\352\353\n&\n\210\344\354\345\346\324\355\350\356 &\210\357\360!\210\361\362\363\"\210\311\312\364\"\210\344\364\345\365\324\366\350\367\352\370\f&\n\210\314\371\372\373
!\374\340%\210\361\375\376\"\207" [case-fold-search pr-buffer-name-ignore pr-i-directory pr-i-regexp pr-i-ps-file pr-ps-utility-alist 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 choice-item :format "%[%t%]" " Buffer : " #[0 "rq\210\305 \n \236A)\306\301!\210\306\304!\207" [pr-i-buffer pr-i-region major-mode pr-mode-alist pr-i-mode ps-mark-active-p pr-update-checkbox] 2] put pr-i-region pr-widget pr-insert-checkbox "\n " #[385 "rq\210\302 )\303!\204 \304\211\207\211\203 \305\306\305\"\210\307 \207\310 \210\311\312!\210\304\306\304\"\210\307 \207" [pr-i-buffer pr-i-region ps-mark-active-p widget-value nil t widget-value-set widget-setup ding message "There is no region active"] 6 "\n\n(fn WIDGET &rest IGNORE)"] " Region" pr-i-mode " " #[385 "rq\210 \n\236A)\304!\204 \305\211\207\211\203! \306\307\306\"\210\310 \207\311 \210\312\313!\210\305\307\305\"\210\310 \207" [pr-i-buffer major-mode pr-mode-alist 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."] 6 "\n\n(fn WIDGET &rest IGNORE)"] " Mode\n" directory widget-create :size 58 " Directory : %v" :notify pr-interface-directory :action #[513 "\300!\203 \301\"\207\302 \210\303\304!\207" [pr-interface-directory pr-widget-field-action ding message "Please specify a readable directory"] 5 "\n\n(fn WIDGET &optional EVENT)"] regexp "\n File Regexp : %v\n" #[385 "\301!\211\207" [pr-i-regexp widget-value] 4 "\n\n(fn WIDGET &rest IGNORE)"] widget-insert " " pr-insert-toggle pr-list-directory " List Directory Entry\n" file 51 " PostScript File : %v" pr-interface-infile #[385 "\300!\203 \301\"\207\302 \210\303\304!\207" [pr-interface-infile pr-widget-field-action ding message "Please specify a readable PostScript file"] 5 "\n\n(fn WIDGET &rest EVENT)"] "PostScript Utility" pr-ps-utility pr-choice-alist "\n PostScript Utility : " pr-i-ps-as-is " No Preprocessing"] 13])
(defalias 'pr-insert-section-2 #[0 "\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 " " #[385 "\203\n ?\202 \302 \210\303\304!\210\305\306 \"\210\307 \207" [pr-spool-p pr-i-despool ding message "Can despool only when spooling is actually selected" nil widget-value-set widget-setup] 5 "\n\n(fn WIDGET &rest IGNORE)"] " 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 #[385 "\302!\203 \303!\203 \304\305!\211\203 \306\"\207\307 \210\310\311!\207" [pr-i-out-file pr-i-answer-yes 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"] 5 "\n\n(fn WIDGET &rest EVENT)"] integer 3 "\n N-Up : %v" #[385 "\301\302\"\303\230\203
\304\202 \305!\211\250\203) \306X\203) \211\307X\203) \310\311!\210\211\211\207\312 \210\310\313!\207" [pr-i-n-up widget-apply :value-get "" 0 widget-value 1 100 message " " ding "Please specify an integer between 1 and 100"] 5 "\n\n(fn WIDGET &rest IGNORE)"]] 11])
(defalias 'pr-insert-section-3 #[0 "\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 #[0 "\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 #[128 "?\211\211\207" [ps-landscape-mode pr-file-landscape] 4 "\n\n(fn &rest IGNORE)"] " 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 #[128 "?\211?\205
\302\303\301!\207" [pr-spool-p pr-i-despool nil pr-update-checkbox] 4 "\n\n(fn &rest IGNORE)"] " Spool Buffer" "\n " ps-spool-duplex #[128 "?\211\211\207" [ps-spool-duplex pr-file-duplex] 4 "\n\n(fn &rest IGNORE)"] " Duplex " pr-faces-p " Print with faces" ps-spool-tumble #[128 "?\211\211\207" [ps-spool-tumble pr-file-tumble] 4 "\n\n(fn &rest IGNORE)"] " 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 #[257 "\300\301\302\303A\304@\257\207" [choice-item :format "%[%t%]" :tag :value] 8 "\n\n(fn ALIST)"]] 6])
(defalias 'pr-insert-section-5 #[0 "\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" " " #[128 "\300 \207" [ps-print-customize] 2 "\n\n(fn &rest IGNORE)"] "ps-print" lpr-customize "lpr"] 4])
(defalias 'pr-insert-section-6 #[0 "\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 #[0 "\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])
#@51 Kill all printing help buffer.
(fn &rest IGNORE)
(defalias 'pr-kill-help #[128 "\300\211\203 \301@!A\262\211\203 \302!\210\303!\210\210\202 \210\304\305 \306Z!\207" [("*Printing Interface Help*" "*Printing Help*" "*LPR Setup*" "*PR Setup*" "*PS Setup*") get-buffer delete-windows-on kill-buffer recenter window-height 2] 5 (#$ . 152419) nil])
#@65 Kill the printing buffer interface and quit.
(fn &rest IGNORE)
(defalias 'pr-interface-quit #[128 "\302!\210\303 !\207" [pr-buffer-name pr-i-window-configuration kill-buffer set-window-configuration] 3 (#$ . 152777) nil])
#@52 Printing buffer interface help.
(fn &rest IGNORE)
(defalias 'pr-interface-help #[128 "\301\302\"\207" [pr-interface-help-message pr-show-setup "*Printing Interface Help*"] 4 (#$ . 153007) nil])
#@45 Print using lpr package.
(fn &rest IGNORE)
(defalias 'pr-interface-txt-print #[128 "\3061P \307\267\202J \302 \210r q\210\310\n \")\202N r q\210\f\203*
\311 )\202@
\2037 \312 \313 )\202@ \312\211 \314 *)\202N \315\316!\202N \315\317\"0\207\320 \210\321\322\323!\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region pr-i-mode (quit error) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (directory 10 buffer 25 file 68)) pr-txt-directory pr-txt-region nil pr-txt-mode pr-txt-buffer error "Please specify a text file" "Internal error: `pr-i-process' = %S" ding message "%s" error-message-string pr-auto-mode pr-auto-region] 6 (#$ . 153209) nil])
#@39 Printify a buffer.
(fn &rest IGNORE)
(defalias 'pr-interface-printify #[128 "\30518 \306\267\2022 \302 \210r q\210\307\n \")\2026 r q\210\f\203& \310 \202( \311 )\2026 \312\313!\2026 \312\314\"0\207\315 \210\316\317\320!\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region (quit error) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (directory 10 buffer 25 file 44)) pr-printify-directory pr-printify-region pr-printify-buffer error "Cannot printify a PostScript file" "Internal error: `pr-i-process' = %S" ding message "%s" error-message-string] 6 (#$ . 153927) nil])
#@50 Print using ps-print package.
(fn &rest IGNORE)
(defalias 'pr-interface-ps-print #[128 "\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] 9 (#$ . 154564) nil])
#@47 Preview a PostScript file.
(fn &rest IGNORE)
(defalias 'pr-interface-preview #[128 "\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] 9 (#$ . 154891) nil])
#@79
(fn PS-DESPOOL PS-DIRECTORY PS-FILE PS-FILE-UP PS-REGION PS-MODE PS-BUFFER)
(defalias 'pr-interface-ps #[1799 "\3061\262 \307=\203 \206 \310 \n\203* \203* r\fq\210!\210)\311\312\302!\202\256 \313\267\202\252 \314 \210r\fq\210
\f$)\202\256 \315!\204R \316!\204X \317\320!\202\256 \203h r\fq\210!)\202\256 r\fq\210
#)\202\256 r\fq\210\203\213
\")\202\246 \203\233 \311
\")\202\246 \311\211
\"*)\202\256 \317\321\"\2620\207\322 \210\323\324\325!\"\207" [pr-i-process pr-i-ps-as-is pr-i-despool pr-spool-p pr-i-buffer pr-i-n-up (quit error) file pr-i-ps-send nil pr-update-checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (directory 48 file 68 buffer 118)) pr-i-directory file-directory-p file-readable-p error "Please specify a readable PostScript file" "Internal error: `pr-i-process' = %S" ding message "%s" error-message-string pr-i-regexp pr-i-ps-file pr-i-region pr-i-mode pr-auto-mode pr-auto-region] 13 (#$ . 155207)])
(defalias 'pr-i-ps-send #[0 "\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-message "File `%s' exists; overwrite? " "File already exists"] 4])
(defalias 'pr-i-directory #[0 "\301!\206 \302\303!\207" [pr-i-directory file-accessible-directory-p error "Please specify be a readable directory"] 2])
#@28
(fn WIDGET &rest IGNORE)
(defalias 'pr-interface-directory #[385 "\203 \302\303!\210\304!\305!\205 \211\211\207" [pr-buffer-verbose pr-i-directory message "You can use M-TAB or ESC TAB for file completion" widget-value file-accessible-directory-p] 5 (#$ . 156848)])
#@28
(fn WIDGET &rest IGNORE)
(defalias 'pr-interface-infile #[385 "\203 \302\303!\210\304!\305!?\205 \306!\205 \211\211\207" [pr-buffer-verbose pr-i-ps-file message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-readable-p] 5 (#$ . 157128)])
#@28
(fn WIDGET &rest IGNORE)
(defalias 'pr-interface-outfile #[385 "\303 \203\n \304\305!\210\306!\307!?\205 \310!\205 \211\211\207" [pr-i-answer-yes pr-buffer-verbose 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] 5 (#$ . 157421)])
#@21
(fn WIDGET EVENT)
(defalias 'pr-widget-field-action #[514 "\300\301!\203\n \302\301!\210\303\304!\210\305\"\207" [get-buffer "*Completions*" delete-windows-on message " " widget-field-action] 5 (#$ . 157742)])
#@30
(fn STR &optional FROM TO)
(defalias 'pr-insert-italic #[769 "G\300\203
\301]\202 \301\203 ]\202 \302\303%\210\304!\207" [put-text-property 0 face italic widget-insert] 10 (#$ . 157962)])
#@33
(fn BEFORE VAR-SYM FUN LABEL)
(defalias 'pr-insert-checkbox #[1028 "\300!\210\301\302\303J$\300!\210\207" [widget-insert widget-create checkbox :notify] 9 (#$ . 158172)])
#@22
(fn VAR-SYM LABEL)
(defalias 'pr-insert-toggle #[514 "\300\301\302\303\304\"J$\210\305!\207" [widget-create checkbox :notify make-closure #[128 "\300\211J?L\207" [V0] 3 "\n\n(fn &rest IGNORE)"] widget-insert] 8 (#$ . 158356)])
#@38
(fn FUN LABEL &optional SEPARATOR)
(defalias 'pr-insert-button #[770 "\300\301\302$\210\211\205 \303!\207" [widget-create push-button :notify widget-insert] 8 (#$ . 158595)])
#@56
(fn TAG VAR-SYM CHOICES &optional BEFORE AFTER BODY)
(defalias 'pr-insert-menu #[1539 "\203 \300!\210\301\302\303\304 \305\306\307\310\311J\312\313\314#\315\316&\210\205, \300!\207" [widget-insert apply widget-create menu-choice :tag :format "%v" :inline t :value :notify make-closure #[385 "\300\302!L\210\301\205\f \301 \207" [V0 V1 widget-value] 5 "\n\n(fn WIDGET &rest IGNORE)"] :void (choice-item :format "%[%t%]" :tag "Can not display value!")] 22 (#$ . 158782)])
#@20
(fn VAR-SYM SYM)
(defalias 'pr-insert-radio-button #[514 "\300\301!\210\302N\303\304\305\306\307J=\310\311\312 #&\313\302BB#\207" [widget-insert "\n" pr-widget-list widget-create radio-button :format " %[%v%]" :value :notify make-closure #[128 "\300\301L\210\302\300!\207" [V0 V1 pr-update-radio-button] 3 "\n\n(fn &rest IGNORE)"] put] 14 (#$ . 159276)])
#@16
(fn VAR-SYM)
(defalias 'pr-update-radio-button #[257 "\211\300N\211\203 \211@@@AA\262\301J=\"\266\202 \302 \207" [pr-widget-list widget-value-set widget-setup] 8 (#$ . 159654)])
#@16
(fn VAR-SYM)
(defalias 'pr-update-checkbox #[257 "\211\300N\211\205 \301J\"\210\302 \207" [pr-widget widget-value-set widget-setup] 5 (#$ . 159849)])
#@14
(fn ALIST)
(defalias 'pr-choice-alist #[257 "\300\301\302\303\"\"\302\304\305\"\"\207" [apply max mapcar #[257 "\300@!G\207" [symbol-name] 3 "\n\n(fn ALIST)"] make-closure #[257 "\211@\301!\302\303\304\305\306\300GZ\307\"P\310\257\207" [V0 symbol-name choice-item :format "%[%t%]" :tag make-string 95 :value] 11 "\n\n(fn ALIST)"]] 6 (#$ . 160010)])
(provide 'printing)