JezK
Edit File: ps-samp.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:35 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/ps-samp.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ps-print) (defalias 'ps-rmail-mode-hook #[nil "\302\303\304\"\210\305\306\211\207" [ps-header-lines ps-left-header local-set-key [(f22)] ps-rmail-print-message-from-summary 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!\203 J\206\f \304\n!\205 r\nq\210\305 ))\207" [summary-buffer summary-default ps-buf boundp get-buffer ps-spool-buffer-with-faces] 2]) (defalias 'ps-article-subject #[nil "\212eb\210\300\301\302\303#\203 \304\224\304\225{\202 \305)\207" [re-search-forward "^Subject:[ ]+\\(.*\\)$" nil t 1 "Subject ???"] 4]) (defalias 'ps-article-author #[nil "\212eb\210\301\302\303\304#\2037 \305\224\305\225{\306\307\"\203\" \305\224\305\225O\2023 \306\310\"\2032 \311\224\311\225O\2023 )\2028 \312)\207" [fromstring re-search-forward "^From:[ ]+\\(.*\\)$" nil t 1 string-match ".*[ ]+(\\(.*\\))" "\\(\"?\\)\\(.*\\)\\1[ ]+<.*>" 2 "From ???"] 4]) (defalias 'ps-gnus-article-prepare-hook #[nil "\302\303\211\207" [ps-header-lines ps-left-header 3 (ps-article-subject ps-article-author gnus-newsgroup-name)] 2]) (defalias 'ps-vm-mode-hook #[nil "\302\303\304\"\210\305\306\211\207" [ps-header-lines ps-left-header local-set-key [(f22)] ps-vm-print-message-from-summary 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 [(f22)] ps-gnus-print-article-from-summary] 3]) (defalias 'ps-info-file #[nil "\212eb\210\300\301\302\303#\203 \304\224\304\225{\202 \305)\207" [re-search-forward "File:[ ]+\\([^, \n]*\\)" nil t 1 "File ???"] 4]) (defalias 'ps-info-node #[nil "\212eb\210\300\301\302\303#\203 \304\224\304\225{\202 \305)\207" [re-search-forward "Node:[ ]+\\([^, \n]*\\)" nil t 1 "Node ???"] 4]) (defalias 'ps-info-mode-hook #[nil "\301\211\207" [ps-left-header (ps-info-node ps-info-file)] 2]) (defalias 'ps-jts-ps-setup #[nil "\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\321\"\210\313\323\324\"\210\325\326\327\330\331\207" [ps-spool-duplex ps-print-color-p ps-lpr-command ps-lpr-switches global-set-key [(f22)] ps-spool-buffer-with-faces [(shift f22)] ps-spool-region-with-faces [(control f22)] 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") ps-jts-ps-setup] 3]) (defalias 'ps-jack-setup #[nil "\306\307\306\310\311\312\313\314\315\316\317 \320 \321 \311\211 \312!\311\"\306#\322$\323%\324&\325'\326(\327\207" [ps-print-color-p ps-lpr-command ps-lpr-switches ps-paper-type ps-landscape-mode ps-number-of-columns nil "lpr" a4 t 2 28.346456692913385 28.346456692913385 28.346456692913385 42.51968503937008 42.51968503937008 28.346456692913385 0.15 Courier 5.5 Helvetica 6 8 ps-jack-setup 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-spool-duplex ps-font-family ps-font-size ps-header-font-family ps-header-font-size ps-header-title-font-size] 2]) (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 \"\203o \"@!\313!\314\315#\211 #@\316\230\203C \317\320#\211 $A@)\"\203C \315#@\321\230\203e \317\322#\211 $A@)\"\203e \323\324#\211 $A@)\")\"A\211\"\204 *\n\205\236 \203\211 \325\326\327 !\330\312\331 \257\"\210\202\233 \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 x] 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)