;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@45 Non-nil if running on MS-DOS or MS Windows.
(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) (#$ . 84))
#@65 Non-nil if running on a system type that uses the "lp" command.
(defvar lpr-lp-system (memq system-type '(usg-unix-v hpux)) (#$ . 212))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\210\306\322\310\311\323DD\324\314\325%\210\306\326\310\311\327DD\330\314\331%\210\306\332\310\311\333DD\334\314\335%\210\306\336\310\311\337DD\340\314\341%\210\306\342\310\311\343DD\344\314\311%\210\306\345\310\311\346DD\347\314\335%\210\306\350\310\311\351DD\352\314\353%\207" [custom-declare-group lpr nil "Print Emacs buffer on line printer." :group text custom-declare-variable printer-name funcall function #[0 "\301=\205\302\207" [system-type ms-dos "PRN"] 2 #1=""] "The name of a local printer to which data is sent for printing.\n(Note that PostScript files are sent to `ps-printer-name', which see.)\n\nOn Unix-like systems, a string value should be a name understood by\nlpr's -P option; otherwise the value should be nil.\n\nOn MS-DOS and MS-Windows systems, a string value is taken as the name of\na printer device or port, provided `lpr-command' is set to \"\".\nTypical non-default settings would be \"LPT1\" to \"LPT3\" for parallel\nprinters, or \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or\n\"//hostname/printer\" for a shared network printer.  You can also set\nit to the name of a file, in which case the output gets appended to that\nfile.  If you want to discard the printed output, set this to \"NUL\"." :type (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "Default" nil) (file :tag "Name")) lpr-switches #[0 "\300\207" [nil] 1 #1#] "List of strings to pass as extra options for the printer program.\nIt is recommended to set `printer-name' instead of including an explicit\nswitch on this list.\nSee `lpr-command'." (repeat (string :tag "Argument")) lpr-add-switches #[0 "\301>\207" [system-type (berkeley-unix gnu/linux)] 2 #1#] "Non-nil means construct `-T' and `-J' options for the printer program.\nThese are made assuming that the program is `lpr';\nif you are using some other incompatible printer program,\nthis variable should be nil." boolean lpr-printer-switch #[0 "\203\301\207\302\207" [lpr-lp-system "-d " "-P"] 1 #1#] "Printer switch, that is, something like \"-P\", \"-d \", \"/D:\", etc.\nThis switch is used in conjunction with `printer-name'." (choice :menu-tag "Printer Name Switch" :tag "Printer Name Switch" (const :tag "None" nil) (string :tag "Printer Switch")) lpr-command #[0 "\302\203	\303\202	\203\304\202\305!\207" [lpr-windows-system lpr-lp-system purecopy #1# "lp" "lpr"] 2 #1#] "Name of program for printing a file.\n\nOn MS-DOS and MS-Windows systems, if the value is an empty string then\nEmacs will write directly to the printer port named by `printer-name'.\nThe programs `print' and `nprint' (the standard print programs on\nWindows NT and Novell Netware respectively) are handled specially, using\n`printer-name' as the destination for output; any other program is\ntreated like `lpr' except that an explicit filename is given as the last\nargument." string lpr-headers-switches #[0 "\300\207" [nil] 1 #1#] "List of strings of options to request page headings in the printer program.\nIf nil, we run `lpr-page-header-program' to make page headings\nand print the result." (choice (const nil) (string :tag "Single argument") (repeat :tag "Multiple arguments" (string :tag "Argument"))) print-region-function #[0 "\301>\203\302\207\303\207" [system-type (ms-dos windows-nt) w32-direct-print-region-function call-process-region] 2 #1#] "Function to call to print the region on a printer.\nSee definition of `print-region-1' for calling conventions." lpr-page-header-program #[0 "\300\207" ["pr"] 1 #1#] "Name of program for adding page headers to a file." lpr-page-header-switches #[0 "\300\207" [("-h" "%s" "-F")] 1 #1#] "List of strings to use as options for the page-header-generating program.\nIf `%s' appears in any of the strings, it is substituted by the page title.\nNote that for correct quoting, `%s' should normally be a separate element.\nThe variable `lpr-page-header-program' specifies the program to use." (repeat string)] 6)
#@152 Print buffer contents without pagination or page headers.
See the variables `lpr-switches' and `lpr-command'
for customization of the printer command.
(defalias 'lpr-buffer #[0 "\301ed\302$\207" [lpr-switches print-region-1 nil] 5 (#$ . 4416) (byte-code "\300\301!?\205\n\302\303!\207" [y-or-n-p "Send current buffer to default printer? " error "Canceled"] 2)])
#@520 Paginate and print buffer contents.

The variable `lpr-headers-switches' controls how to paginate.
If it is nil (the default), we run the `pr' program (or whatever program
`lpr-page-header-program' specifies) to paginate.
`lpr-page-header-switches' specifies the switches for that program.

Otherwise, the switches in `lpr-headers-switches' are used
in the print command itself; we expect them to request pagination.

See the variables `lpr-switches' and `lpr-command'
for further customization of the printer command.
(defalias 'print-buffer #[0 "\301ed\302$\207" [lpr-switches print-region-1 t] 5 (#$ . 4787) (byte-code "\300\301!?\205\n\302\303!\207" [y-or-n-p "Send current buffer to default printer? " error "Canceled"] 2)])
#@168 Print region contents without pagination or page headers.
See the variables `lpr-switches' and `lpr-command'
for customization of the printer command.

(fn START END)
(defalias 'lpr-region #[514 "\301\302$\207" [lpr-switches print-region-1 nil] 7 (#$ . 5526) (byte-code "\300\301!\203\f\302 \303 D\207\304\305!\207" [y-or-n-p "Send selected text to default printer? " region-beginning region-end error "Canceled"] 2)])
#@540 Paginate and print the region contents.

The variable `lpr-headers-switches' controls how to paginate.
If it is nil (the default), we run the `pr' program (or whatever program
`lpr-page-header-program' specifies) to paginate.
`lpr-page-header-switches' specifies the switches for that program.

Otherwise, the switches in `lpr-headers-switches' are used
in the print command itself; we expect them to request pagination.

See the variables `lpr-switches' and `lpr-command'
for further customization of the printer command.

(fn START END)
(defalias 'print-region #[514 "\301\302$\207" [lpr-switches print-region-1 t] 7 (#$ . 5956) (byte-code "\300\301!\203\f\302 \303 D\207\304\305!\207" [y-or-n-p "Send selected text to default printer? " region-beginning region-end error "Canceled"] 2)])
#@40 

(fn START END SWITCHES PAGE-HEADERS)
(defalias 'print-region-1 #[1028 "\211\203\203\306;\203C\202\"\262\212\307 \310P	\206\"\n\206'\n\f
\f\311U\204R\312\"\211@\262	\211A\262
\212b\210\313 \262)\314ed\"\266\203}\204}\312\"\315\316@A
\317\211\320\321\322\323\"\"&\266e\262d\262\324$*\266\204)\207" [lpr-headers-switches coding-system-for-write buffer-file-coding-system coding-system-for-read tab-width lpr-page-header-program append buffer-name " Emacs buffer" 8 print-region-new-buffer point-marker untabify apply call-process-region t nil mapcar make-closure #[257 "\301
\300\"\207" [V0 format] 4 "\n\n(fn E)"] lpr-print-region lpr-page-header-switches] 21 (#$ . 6757)])
#@32 

(fn START END SWITCHES NAME)
(defalias 'lpr-print-region #[1028 "p\306\307\310\"!\203\311\312\313\314#P\202\315\316\317\"\210\320\321\322\"r\211q\210\323\324\"\216prq\210\325\2064\326\n\n	\327\327
\205J\n\205J\330D\205[\n\205[\205[\331D\244\f;\205k\315\f\231\205k
\fPC\244\f\244&)\262
\332!\203\201\327\211\223\210\211\333>\203\213\316\202\214\334\335\336ed\"\211\337\267\202\240\315\202\241\340\202\241\341\262
\342 $\262
*\207" [print-region-function lpr-command lpr-add-switches lpr-headers-switches printer-name lpr-printer-switch flatten-tree mapcar lpr-eval-switch " with options " mapconcat identity " " "" message "Spooling%s..." generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply call-process-region nil "-J" "-T" markerp (nil 0) user-error "Spooling%s...done%s%s" count-lines #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 152 1 156)) ": " ":\n" buffer-string] 20 (#$ . 7494)])
#@20 

(fn OSTART OEND)
(defalias 'print-region-new-buffer #[514 "\300 \301\230\203

B\207p\302\301!q\210~\210\303 \210\304
#\210edB\207" [buffer-name " *spool temp*" get-buffer-create erase-buffer insert-buffer-substring] 7 (#$ . 8543)])
#@240 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.

(fn BEGIN END)
(defalias 'printify-region #[514 "\212\214

}\210eb\210\300\301\302\300\303#\2051h\262
\304\305!\210\211\306W\203(\307\310\311\\\"\202,\307\312\"c\210\202\n\262
*\207" [nil re-search-forward "[---\377]" t delete-char -1 32 format "\\^%c" 64 "\\%02x"] 7 (#$ . 8788) "r"])
#@12 

(fn ARG)
(defalias 'lpr-eval-switch #[257 "\211;\203\207\300
!\203\211 \207\2119\203\211J\207\211:\203#\301
@A\"\207\302\207" [functionp apply nil] 4 (#$ . 9316)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias lpr-flatten-list flatten-tree nil make-obsolete "27.1" provide lpr] 4)