HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/ps-samp.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.

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


(require 'ps-print)
(defalias 'ps-rmail-mode-hook #[nil "\302\303\304\"\210\305\300!\210\306\305\301!\210\307\211\207" [ps-header-lines ps-left-header local-set-key [print] ps-rmail-print-message-from-summary make-local-variable 3 (ps-article-subject ps-article-author buffer-name)] 3])
(defalias 'ps-rmail-print-message-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary rmail-summary-buffer "RMAIL"] 3 nil nil])
(defalias 'ps-print-message-from-summary #[(summary-buffer summary-default) "\303!\203J\206\f	\304\n!\205r\nq\210\305 ))\207" [summary-buffer summary-default ps-buf boundp get-buffer ps-spool-buffer-with-faces] 2])
(defalias 'ps-article-subject #[nil "\212\214e\300 \210`}\210\301\302\303!\206\304P*\207" [rfc822-goto-eoh "Subject: " mail-fetch-field "Subject" "???"] 3])
(defalias 'ps-article-author #[nil "\212\214e\301 \210`}\210\302\303!\211\203\304\305\"\203\306\307\"\2026\2031\304\310\"\2031\306\311\"\2026\2066\312+\207" [fromstring rfc822-goto-eoh mail-fetch-field "From" string-match ".*[ 	]+(\\(.*\\))" match-string 1 "\\(\"?\\)\\(.*\\)\\1[ 	]+<.*>" 2 "From ???"] 4])
(defalias 'ps-gnus-article-prepare-hook #[nil "\302\300!\210\303\302\301!\210\304\211\207" [ps-header-lines ps-left-header make-local-variable 3 (ps-article-subject ps-article-author gnus-newsgroup-name)] 2])
(defalias 'ps-vm-mode-hook #[nil "\302\303\304\"\210\305\300!\210\306\305\301!\210\307\211\207" [ps-header-lines ps-left-header local-set-key [print] ps-vm-print-message-from-summary make-local-variable 3 (ps-article-subject ps-article-author buffer-name)] 3])
(defalias 'ps-gnus-print-article-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary gnus-article-buffer "*Article*"] 3 nil nil])
(defalias 'ps-vm-print-message-from-summary #[nil "\300\301\302\"\207" [ps-print-message-from-summary vm-mail-buffer ""] 3 nil nil])
(defalias 'ps-gnus-summary-setup #[nil "\300\301\302\"\207" [local-set-key [print] ps-gnus-print-article-from-summary] 3])
(defalias 'ps-info-file #[nil "\212eb\210\300\301\302\303#\203\304\305!\202\306)\207" [re-search-forward "File:[ 	]+\\([^, 	\n]*\\)" nil t match-string 1 "File ???"] 4])
(defalias 'ps-info-node #[nil "\212eb\210\300\301\302\303#\203\304\305!\202\306)\207" [re-search-forward "Node:[ 	]+\\([^,	\n]*\\)" nil t match-string 1 "Node ???"] 4])
(defalias 'ps-info-mode-hook #[nil "\301\300!\210\302\211\207" [ps-left-header make-local-variable (ps-info-node ps-info-file)] 2])
(defalias 'ps-samp-ps-setup #[nil "\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\315\316\317\"\210\315\320\321\"\210\315\322\323\"\210\315\324\323\"\210\315\325\326\"\210\327\330\331\332\333\327\334)\335*\336+\337,\340-\341.\342/\3430\327\21112\3343\3274\330\3445\3456\3467\3478\350\2119\207" [ps-spool-duplex ps-print-color-p ps-lpr-command ps-lpr-switches ps-paper-type ps-landscape-mode global-set-key [print] ps-spool-buffer-with-faces [S-print] ps-spool-region-with-faces [C-print] ps-despool add-hook gnus-article-prepare-hook ps-gnus-article-prepare-hook gnus-summary-mode-hook ps-gnus-summary-setup vm-mode-hook ps-vm-mode-hook vm-mode-hooks Info-mode-hook ps-info-mode-hook t nil "lpr" ("-Jjct,duplex_long") a4 2 28.346456692913385 28.346456692913385 28.346456692913385 42.51968503937008 42.51968503937008 28.346456692913385 0.15 Courier 5.5 Helvetica 6 8 ps-number-of-columns ps-left-margin ps-right-margin ps-inter-column ps-bottom-margin ps-top-margin ps-header-offset ps-header-line-pad ps-print-header ps-print-header-frame ps-header-lines ps-show-n-of-n ps-font-family ps-font-size ps-header-font-family ps-header-font-size ps-header-title-font-size] 4])
(byte-code "\300\301!\210\300\302!\207" [require printing zeroconf] 2)
(defalias 'ps-add-printer #[(service) "\306!\307!\310!\311!\312\211 
\312!\211\"\203c\"@!\313!\314\315#\211#@\316\230\203?\317\320#A@\"\203?\315#@\321\230\203Y\317\322#A@\"\203Y\323\324#A@\")\"A\211\"\204*\n\205\222	\203}\325\326\327 !\330\312\331	\257\"\210\202\217\325\326\327 !\332\333\334\335\336\f#\257\"\210\337\315!.\207" [service cups-queue is-ps port addr text zeroconf-service-name zeroconf-service-txt zeroconf-service-address zeroconf-service-port nil split-string "=" t "pdl" string-match "application/postscript" "rp" "printers/\\(.+\\)" match-string 1 add-to-list pr-ps-printer-alist intern "lpr" "-P" "cupsdoprint" ("-P" "default") "-H" format "%s:%s" pr-update-menus name string --dolist-tail-- split] 11])
(defalias 'ps-remove-printer #[(service) "\302\303\304\305!!	\"	\"\306\307!\207" [service pr-ps-printer-alist delete assoc intern zeroconf-service-name pr-update-menus t] 5])
(defalias 'ps-make-dynamic-printer-menu #[nil "\300\301!\205\302 \210\303\304\305\306#\210\303\304\307\310#\207" [featurep dbusbind zeroconf-init zeroconf-service-add-hook "_ipp._tcp" :new ps-add-printer :removed ps-remove-printer] 4])
(provide 'ps-samp)