HOME


sh-3ll 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Upload File :
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/ps-def.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.

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


(byte-code "\300\301!\204
\302\301\303\304B\"\210\302\305\306\"\210\302\307\310\"\210\302\311\312\"\210\302\313\314\"\210\302\315\316\"\210\302\317\320\"\210\302\321\322\"\210\302\323\324\"\210\302\325\326\"\210\302\327\330\"\210\302\331\332\"\210\333\334!\210\335\336!\210\302\337\340\"\210\341\342!\207" [fboundp declare-function defalias macro #[128 "\300\207" [nil] 2 "\n\n(fn &rest R)"] ps-mark-active-p #[0 "\207" [mark-active] 1] ps-face-foreground-name #[257 "\300\301\302#\207" [face-foreground nil t] 5 "\n\n(fn FACE)"] ps-face-background-name #[257 "\300\301\302#\207" [face-background nil t] 5 "\n\n(fn FACE)"] ps-frame-parameter frame-parameter ps-color-device #[0 "\300\301!\203\n\301\302!\207\303\207" [fboundp color-values "Green" t] 2] ps-color-values #[257 "\300\301!\203\n\301!\207\300\302!\203\302!\207\303\304!\207" [fboundp color-values x-color-values error "No available function to determine X color values"] 3 "\n\n(fn X-COLOR)"] ps-face-bold-p #[257 "\301!\206	\211>\207" [ps-bold-faces face-bold-p] 3 "\n\n(fn FACE)"] ps-face-italic-p #[257 "\301!\206	\211>\207" [ps-italic-faces face-italic-p] 3 "\n\n(fn FACE)"] ps-face-strikeout-p #[257 "\300\301\"\302=\207" [face-attribute :strike-through t] 4 "\n\n(fn FACE)"] ps-face-overline-p #[257 "\300\301\"\302=\207" [face-attribute :overline t] 4 "\n\n(fn FACE)"] ps-face-box-p #[257 "\300\301\"\302>?\207" [face-attribute :box (nil unspecified)] 4 "\n\n(fn FACE)"] (lambda (#1=#:def-tmp-var) (defvar ps-color-format #1#)) "%0.3f %0.3f %0.3f" (lambda (#1#) (defvar ps-float-format #1#)) "%0.3f " ps-generate-postscript-with-faces1 #[514 "\300\211\301\211W\203nW\203\302\301	#\262W\203.\303!^\262^\262\301\262\301\262\304!\203D\305\202M\306\307\"\206M\300\262\203W\310!\210\311#\210\211\203h\310!\210\262\202\311#\207" [default nil next-property-change next-overlay-change invisible-p emacs--invisible--face get-char-property face ps-plot-string ps-plot-with-face] 12 "\n\n(fn FROM TO)"] provide ps-def] 4)