Current File : //proc/self/root/kunden/kunden/proc/thread-self/root/usr/share/emacs/27.2/lisp/ps-def.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.

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


(defalias 'ps-mark-active-p #[0 "\207" [mark-active] 1])
#@13 

(fn FACE)
(defalias 'ps-face-foreground-name #[257 "\300
\301\302#\207" [face-foreground nil t] 5 (#$ . 466)])
#@13 

(fn FACE)
(defalias 'ps-face-background-name #[257 "\300
\301\302#\207" [face-background nil t] 5 (#$ . 585)])
(defalias 'ps-frame-parameter 'frame-parameter)
(defalias 'ps-color-device #[0 "\300\301!\203\n\301\302!\207\303\207" [fboundp color-values "Green" t] 2])
#@16 

(fn X-COLOR)
(defalias '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 (#$ . 860)])
#@13 

(fn FACE)
(defalias 'ps-face-bold-p #[257 "\301
!\206	\211>\207" [ps-bold-faces face-bold-p] 3 (#$ . 1092)])
#@13 

(fn FACE)
(defalias 'ps-face-italic-p #[257 "\301
!\206	\211>\207" [ps-italic-faces face-italic-p] 3 (#$ . 1211)])
#@13 

(fn FACE)
(defalias 'ps-face-strikeout-p #[257 "\300
\301\"\302=\207" [face-attribute :strike-through t] 4 (#$ . 1336)])
#@13 

(fn FACE)
(defalias 'ps-face-overline-p #[257 "\300
\301\"\302=\207" [face-attribute :overline t] 4 (#$ . 1465)])
#@13 

(fn FACE)
(defalias 'ps-face-box-p #[257 "\300
\301\"\302>?\207" [face-attribute :box (nil unspecified)] 4 (#$ . 1587)])
(defvar ps-color-format "%0.3f %0.3f %0.3f")
(defvar ps-float-format "%0.3f ")
#@16 

(fn FROM TO)
(defalias '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 (#$ . 1795)])
(provide 'ps-def)