| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/lpr.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/lpr.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@45 Non-nil if running on MS-DOS or MS Windows.
(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) (#$ . 546))
#@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 irix)) (#$ . 675))
(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\302\337\312\340\304\301&\210\306\341\342\343\312\332\304\301&\210\306\344\345\346\312\347\304\301&\207" [custom-declare-group lpr nil "Print Emacs buffer on line printer." :group wp 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." (repeat (string :tag "Argument")) print-region-function "Function to call to print the region on a printer.\nSee definition of `print-region-1' for calling conventions." (choice (const nil) 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 (#$ . 4450) (byte-code "\300\301!?\205\n \302\303!\207" [y-or-n-p "Send current buffer to default printer? " error "Cancelled"] 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 (#$ . 4824) (byte-code "\300\301!?\205\n \302\303!\207" [y-or-n-p "Send current buffer to default printer? " error "Cancelled"] 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 (#$ . 5566) (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 "Cancelled"] 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 (#$ . 6000) (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 "Cancelled"] 2)])
(defalias 'print-region-1 #[(start end switches page-headers) "\306 \307P\306 \307P\206
\n\206 \310\211 ) * +\212,\203> -\203> \311-;\2037 -C\2029 -.\".\312\313\314.\"!.\203V \315\316\317.\320#P\202W \321\322\323\f\"\210 \324U\204\207 \325/0\"\211 1@/1A0)\2120b\210\326 0)\327ed\"\210),\203\265 -\204\265 \325/0\" 1\330\3311@1A2\332\211\310\313\3333\"&\210)e/d0p 4\334\335! 5r5q\210\336\216p 6r4q\210\3307\206\323 \331/08\3106\310\2579\205\350 \337+D\2449\205\367 -\205\367 \340*D\244:;\205;:PC\244
\244\"\210*\3410!\2030\310\211\223\210\322\342\f\343ed\"\211 <\344=\203*\321\2026<\345=\2035\346\2026\347)\350 $.\f\207" [coding-system-for-write buffer-file-coding-system coding-system-for-read tab-width switch-string nswitches buffer-name " Emacs buffer" nil append lpr-flatten-list mapcar lpr-eval-switch " with options " mapconcat identity " " "" message "Spooling%s..." 8 print-region-new-buffer point-marker untabify apply call-process-region t #[(e) "\302 \"\207" [e title format] 3] generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "-J" "-T" markerp "Spooling%s...done%s%s" count-lines 0 1 ": " ":\n" buffer-string width title name page-headers lpr-headers-switches switches start end new-coords lpr-page-header-program lpr-page-header-switches buf #1# tempbuf print-region-function lpr-command lpr-add-switches printer-name lpr-printer-switch #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 (#$ . 8555) "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])
(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)