HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/lpr.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@45 Non-nil if running on MS-DOS or MS Windows.
(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) (#$ . 408))
#@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)) (#$ . 537))
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\302\315\312\316\304\301&\210\306\317\320\321\312\322\304\301&\210\306\323\324\325\312\326\304\301&\210\306\327\330\331\312\332\304\301&\210\306\333\302\334\312\335\304\301&\210\306\336\337\340\312\341\304\301&\210\306\342\343\344\312\332\304\301&\210\306\345\346\347\312\350\304\301&\207" [custom-declare-group lpr nil "Print Emacs buffer on line printer." :group text custom-declare-variable printer-name (and (eq system-type 'ms-dos) "PRN") "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 "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 (memq system-type '(berkeley-unix gnu/linux)) "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 (if lpr-lp-system "-d " "-P") "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 (purecopy (cond (lpr-windows-system "") (lpr-lp-system "lp") (t "lpr"))) "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 "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 (if (memq system-type '(ms-dos windows-nt)) #'w32-direct-print-region-function #'call-process-region) "Function to call to print the region on a printer.\nSee definition of `print-region-1' for calling conventions." function lpr-page-header-program "pr" "Name of program for adding page headers to a file." lpr-page-header-switches '("-h" "%s" "-F") "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)] 8)
#@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 #[nil "\301ed\302$\207" [lpr-switches print-region-1 nil] 5 (#$ . 4469) (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 #[nil "\301ed\302$\207" [lpr-switches print-region-1 t] 5 (#$ . 4842) (byte-code "\300\301!?\205\n\302\303!\207" [y-or-n-p "Send current buffer to default printer? " error "Canceled"] 2)])
#@152 Print region contents without pagination or page headers.
See the variables `lpr-switches' and `lpr-command'
for customization of the printer command.
(defalias 'lpr-region #[(start end) "\303	\n\304$\207" [start end lpr-switches print-region-1 nil] 5 (#$ . 5583) (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)])
#@524 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.
(defalias 'print-region #[(start end) "\303	\n\304$\207" [start end lpr-switches print-region-1 t] 5 (#$ . 6016) (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)])
(defalias 'print-region-1 #[(start end switches page-headers) "\203	\203\306	;\203	C\202	\n\"\212\307 \310P\206!\f
\206&\f\311U\204Z\312\"\211@A\212b\210\313 )\314ed\"\210)\203\206	\204\206\312\"\315\316@A\317\211\320\321\322\"&\210)ed\323\n$-\207" [page-headers lpr-headers-switches switches coding-system-for-write buffer-file-coding-system coding-system-for-read append buffer-name " Emacs buffer" 8 print-region-new-buffer point-marker untabify apply call-process-region t nil mapcar #[(e) "\302	\"\207" [e name format] 3] lpr-print-region tab-width width name start end new-coords lpr-page-header-program lpr-page-header-switches] 12])
(defalias 'lpr-print-region #[(start end switches name) "p\306\307\310\"!\203\311\312\313\314#P\202\315\316\317	\"\210\320\321!r\fq\210\322\216prq\210\323!\2065\324\"#$\325
\325%\205L&\205L\326%D%\205_&\205_'\205_\327%D\244(;\205s\315(\231\205s)(PC\244\n\244&**\330#!\203\210#\325\211\223\210*\331>\203\223\316\202\224\332\333	\334ed\"\211+\335\267\202\252\315\202\253\336\202\253\337)\340 $.\207" [switches switch-string nswitches buf #1=#:temp-buffer tempbuf lpr-flatten-list mapcar lpr-eval-switch " with options " mapconcat identity " " "" message "Spooling%s..." generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# 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 162 1 166)) ": " ":\n" buffer-string print-region-function start end lpr-command name lpr-add-switches lpr-headers-switches printer-name lpr-printer-switch retval #2=#:val] 12])
(defalias 'print-region-new-buffer #[(ostart oend) "\303 \304\230\203	B\207p\305\304!q\210~\210\306 \210\307\n	#\210ed)B\207" [ostart oend oldbuf buffer-name " *spool temp*" get-buffer-create erase-buffer insert-buffer-substring] 4])
#@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 'printify-region #[(begin end) "\212\214	}\210eb\210\303\304\305\303\306#\2051h\307\310!\210\n\311W\203(\312\313\n\314\\\"\202,\312\315\n\"c\210\202+\207" [begin end c nil re-search-forward "[---\377]" t delete-char -1 32 format "\\^%c" 64 "\\%02x"] 4 (#$ . 8854) "r"])
(defalias 'lpr-eval-switch #[(arg) ";\203\207\301!\203 \2079\203J\207:\203$\302@A\"\207\303\207" [arg functionp apply nil] 3])
(defalias 'lpr-flatten-list #[(&rest list) "\301!\207" [list lpr-flatten-list-1] 2])
(defalias 'lpr-flatten-list-1 #[(list) "\204\301\207:\203\302\303@!\303A!\"\207C\207" [list nil append lpr-flatten-list-1] 4])
(provide 'lpr)