Current File : //usr/local/share/emacs/27.2/lisp/lpr.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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\216p r q\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 flatten-tree 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 eql 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#\2051 h\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 (#$ . 8851) "r"])
(defalias 'lpr-eval-switch #[(arg) ";\203 \207\301!\203 \2079\203 J\207:\203$ \302@A\"\207\303\207" [arg functionp apply nil] 3])
(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)
Mini Shell