Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ps-print.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:27 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/ps-print.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`ps-print.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@367 ps-print.el, v 7.3.4 <2009/01/24 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, please also report the version of Emacs, if any, that ps-print was distributed with. Please send all bug fixes and enhancements to Vinicius Jose Latorre <viniciusjl@ig.com.br>. (defconst ps-print-version "7.3.4" (#$ . 608)) (byte-code "\303\304!\210\305\306!\204 \307\310!\210\311\300!\203 \312Y\204 \307\313!\210\314 B\315\n\316>!\210\317 B\320\n\321>!\210\303\322!\210\323\324\325\326\327\330\331\332\333\334& \210\323\335\325\336\337\340\341\342\331\332\333\343\333\324& \210\323\344\325\345\341\342\327\346\331\332\333\335& \210\323\347\325\350\341\342\327\351\331\332\333\335& \210\323\352\325\353\341\342\327\354\331\332\333\335& \210\323\355\325\356\341\342\327\357\331\332\333\335& \210\323\360\325\361\341\342\327\362\331\332\333\335& \210\323\363\325\364\341\342\327\365\331\332\333\335\333\366& \210\323\367\325\370\341\342\327\371\331\332\333\335& \210\323\372\325\373\341\342\327\374\331\332\333\335& \210\323\375\325\376\341\342\327\377\331\332\333\335& \210\323\201@ \201A \201B \341\342\327\201C \331\332\333\335& \210\323\201D \325\201E \341\342\327\201F \331\332\333\335& \210\323\201G \325\201H \341\342\327\201I \331\332\333\335& \207" [emacs-major-version current-load-list system-type require lpr featurep lisp-float-type error "`ps-print' requires floating point support" boundp 23 "`ps-print' only supports Emacs 23 and higher" ps-windows-system (lambda (#1=#:defconst-tmp-var) (defconst ps-windows-system #1#)) (emx win32 w32 mswindows ms-dos windows-nt) ps-lp-system (lambda (#2=#:defconst-tmp-var) (defconst ps-lp-system #2#)) (usg-unix-v hpux irix) ps-def custom-declare-group postscript nil "PostScript Group." :tag "PostScript" :version "20" :group emacs ps-print "PostScript generator for Emacs." :link (emacs-library-link :tag "Source Lisp File" "ps-print.el") :prefix "ps-" wp ps-print-horizontal "Horizontal page layout." "Horizontal" ps-print-vertical "Vertical page layout." "Vertical" ps-print-headers "Headers & footers layout." "Header & Footer" ps-print-font "Fonts customization." "Font" ps-print-color "Color customization." "Color" ps-print-face "Faces customization." "PS Faces" faces ps-print-n-up "N-up customization." "N-Up" ps-print-zebra "Zebra customization." "Zebra" ps-print-background "Background customization." "Background" ps-print-printer ((lpr custom-group)) "Printer customization." "Printer" ps-print-page "Page customization." "Page" ps-print-miscellany "Miscellany customization." "Miscellany"] 14) #@634 Specify where the error handler message should be sent. Valid values are: `none' catch the error and *DON'T* send any message. `paper' catch the error and print on paper the error message. `system' catch the error and send back the error message to printing system. This is useful only if printing system send back an email reporting the error, or if there is some other alternative way to report back the error from the system to you. `paper-and-system' catch the error, print on paper the error message and send back the error message to printing system. Any other value is treated as `paper'. (custom-declare-variable 'ps-error-handler-message ''paper '(#$ . 3271) :type '(choice :menu-tag "Error Handler Message" :tag "Error Handler Message" (const none) (const paper) (const system) (const paper-and-system)) :version "20" :group 'ps-print-miscellany) #@1104 User defined PostScript prologue code inserted before all prologue code. `ps-user-defined-prologue' may be a string or a symbol function which returns a string. Note that this string is inserted after `ps-adobe-tag' and PostScript prologue comments, and before ps-print PostScript prologue code section. That is, this string is inserted after error handler initialization and before ps-print settings. It's strongly recommended only insert PostScript code and/or comments specific for your printing system particularities. For example, some special initialization that only your printing system needs. Do not insert code for duplex printing, n-up printing or error handler, ps-print handles this in a suitable way. For more information about PostScript, see: PostScript Language Reference Manual (2nd edition) Adobe Systems Incorporated As an example for `ps-user-defined-prologue' setting: ;; Setting for HP PostScript printer (setq ps-user-defined-prologue (concat "<</DeferredMediaSelection true /PageSize [612 792] " "/MediaPosition 2 /MediaType (Plain)>> setpagedevice")) (custom-declare-variable 'ps-user-defined-prologue 'nil '(#$ . 4173) :type '(choice :menu-tag "User Defined Prologue" :tag "User Defined Prologue" (const :tag "none" nil) string symbol) :version "20" :group 'ps-print-miscellany) #@1045 PostScript prologue header comments besides that ps-print generates. `ps-print-prologue-header' may be a string or a symbol function which returns a string. Note that this string is inserted on PostScript prologue header section which is used to define some document characteristic through PostScript special comments, like "%%Requirements: jog\n". ps-print always inserts the %%Requirements: comment, so if you need to insert more requirements put them first in `ps-print-prologue-header' using the "%%+" comment. For example, if you need to set numcopies to 3 and jog on requirements and set %%LanguageLevel: to 2, do: (setq ps-print-prologue-header "%%+ numcopies(3) jog\n%%LanguageLevel: 2\n") The duplex requirement is inserted by ps-print (see `ps-spool-duplex'). Do not forget to terminate the string with "\n". For more information about PostScript document comments, see: PostScript Language Reference Manual (2nd edition) Adobe Systems Incorporated Appendix G: Document Structuring Conventions -- Version 3.0 (custom-declare-variable 'ps-print-prologue-header 'nil '(#$ . 5513) :type '(choice :menu-tag "Prologue Header" :tag "Prologue Header" (const :tag "none" nil) string symbol) :version "20" :group 'ps-print-miscellany) #@1136 The name of a local printer for printing PostScript files. On Unix-like systems, a string value should be a name understood by lpr's -P option; a value of nil means use the value of `printer-name' instead. On MS-DOS and MS-Windows systems, a string value is taken as the name of the printer device or port to which PostScript files are written, provided `ps-lpr-command' is "". By default it is the same as `printer-name'; typical non-default settings would be "LPT1" to "LPT3" for parallel printers, or "COM1" to "COM4" or "AUX" for serial printers, or "\\hostname\printer" for a shared network printer. You can also set it to a name of a file, in which case the output gets appended to that file. (Note that `ps-print' package already has facilities for printing to a file, so you might as well use them instead of changing the setting of this variable.) If you want to silently discard the printed output, set this to "NUL". Set to t, if the utility given by `ps-lpr-command' needs an empty printer name. Any other value is treated as t, that is, an empty printer name. See also `ps-printer-name-option' for documentation. (custom-declare-variable 'ps-printer-name '(and (boundp 'printer-name) (symbol-value 'printer-name)) '(#$ . 6782) :type '(choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "Same as printer-name" nil) (const :tag "No Printer Name" t) (file :tag "Print to file") (string :tag "Pipe to ps-lpr-command")) :version "20" :group 'ps-print-printer) #@615 Option for `ps-printer-name' variable (see it). On Unix-like systems, if `lpr' is in use, this should be the string "-P"; if `lp' is in use, this should be the string "-d". On MS-DOS and MS-Windows systems, if `print' is in use, this should be the string "/D:". For any other printing utility, see its documentation. Set this to "" or nil, if the utility given by `ps-lpr-command' needs an empty printer name option--that is, pass the printer name with no special option preceding it. Any value that is not a string is treated as nil. This variable is used only when `ps-printer-name' is a non-empty string. (custom-declare-variable 'ps-printer-name-option '(cond (ps-windows-system "/D:") (ps-lp-system "-d") (t "-P")) '(#$ . 8279) :type '(choice :menu-tag "Printer Name Option" :tag "Printer Name Option" (const :tag "None" nil) (string :tag "Option")) :version "21.1" :group 'ps-print-printer) #@488 Name of program for printing a PostScript file. On MS-DOS and MS-Windows systems, if the value is an empty string then Emacs will write directly to the printer port named by `ps-printer-name'. The programs `print' and `nprint' (the standard print programs on Windows NT and Novell Netware respectively) are handled specially, using `ps-printer-name' as the destination for output; any other program is treated like `lpr' except that an explicit filename is given as the last argument. (custom-declare-variable 'ps-lpr-command 'lpr-command '(#$ . 9189) :type 'string :version "20" :group 'ps-print-printer) #@741 List of extra switches to pass to `ps-lpr-command'. The list element can be: string it should be an option for `ps-lpr-command' (which see). For example: "-o Duplex=DuplexNoTumble" symbol it can be a function or variable symbol. If it's a function symbol, it should be a function with no argument. The result of the function or the variable value should be a string or a list of strings. list the header should be a symbol function and the tail is the arguments for this function. This function should return a string or a list of strings. Any other value is silently ignored. It is recommended to set `ps-printer-name' (which see) instead of including an explicit switch on this list. See `ps-lpr-command'. (custom-declare-variable 'ps-lpr-switches 'lpr-switches '(#$ . 9804) :type '(repeat :tag "PostScript lpr Switches" (choice :menu-tag "PostScript lpr Switch" :tag "PostScript lpr Switch" string symbol (repeat sexp))) :version "20" :group 'ps-print-printer) #@180 Specify a function to print the region on a PostScript printer. See definition of `call-process-region' for calling conventions. The fourth and the sixth arguments are both nil. (custom-declare-variable 'ps-print-region-function 'nil '(#$ . 10807) :type '(choice (const nil) function) :version "20" :group 'ps-print-printer) #@98 Non-nil means the printer will manually feed paper. If it's nil, automatic feeding takes place. (custom-declare-variable 'ps-manual-feed 'nil '(#$ . 11139) :type 'boolean :version "20" :group 'ps-print-printer) #@63 Non-nil means insert C-d at end of PostScript file generated. (custom-declare-variable 'ps-end-with-control-d '(and ps-windows-system t) '(#$ . 11357) :version "21.1" :type 'boolean :version "20" :group 'ps-print-printer) #@97 List associating a symbolic paper type to its width, height and doc media. See `ps-paper-type'. (custom-declare-variable 'ps-page-dimensions-database '(list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk")) '(#$ . 11585) :type '(repeat (list :tag "Paper Type" (symbol :tag "Symbol Name") (number :tag "Width in points") (number :tag "Height in points") (string :tag "Media"))) :version "20" :group 'ps-print-page) #@156 Specify the size of paper to format for. Should be one of the paper types defined in `ps-page-dimensions-database', for example `letter', `legal' or `a4'. (custom-declare-variable 'ps-paper-type ''letter '(#$ . 13508) :type '(symbol :validate (lambda (wid) (if (assq (widget-value wid) ps-page-dimensions-database) nil (widget-put wid :error "Unknown paper size") wid))) :version "20" :group 'ps-print-page) #@137 Non-nil means give an error if paper size is not equal to `ps-paper-type'. It's used when `ps-spool-config' is set to `setpagedevice'. (custom-declare-variable 'ps-warn-paper-type 't '(#$ . 13923) :type 'boolean :version "20" :group 'ps-print-page) #@40 Non-nil means print in landscape mode. (custom-declare-variable 'ps-landscape-mode 'nil '(#$ . 14179) :type 'boolean :version "20" :group 'ps-print-page) #@68 Non-nil means print upside-down (that is, rotated by 180 degrees). (custom-declare-variable 'ps-print-upside-down 'nil '(#$ . 14339) :type 'boolean :version "21.1" :group 'ps-print-page) #@621 Specify which pages to print. If nil, print all pages. If a list, the lists element may be an integer or a cons cell (FROM . TO) designating FROM page to TO page; any invalid element is ignored, that is, an integer lesser than one or if FROM is greater than TO. Otherwise, it's treated as nil. After ps-print processing `ps-selected-pages' is set to nil. But the latest `ps-selected-pages' is saved in `ps-last-selected-pages' (which see). So you can restore the latest selected pages by using `ps-last-selected-pages' or with the `ps-restore-selected-pages' command (which see). See also `ps-even-or-odd-pages'. (custom-declare-variable 'ps-selected-pages 'nil '(#$ . 14533) :type '(repeat :tag "Selected Pages" (radio :tag "Page" (integer :tag "Number") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))) :version "20" :group 'ps-print-page) #@1445 Specify if it prints even/odd pages. Valid values are: nil print all pages. `even-page' print only even pages. `odd-page' print only odd pages. `even-sheet' print only even sheets. That is, if `ps-n-up-printing' is 1, it behaves as `even-page'; but for values greater than 1, it'll print only the even sheet of paper. `odd-sheet' print only odd sheets. That is, if `ps-n-up-printing' is 1, it behaves as `odd-page'; but for values greater than 1, it'll print only the odd sheet of paper. Any other value is treated as nil. If you set `ps-selected-pages' (see it for documentation), first the pages are filtered by `ps-selected-pages' and then by `ps-even-or-odd-pages'. For example, if we have: (setq ps-selected-pages '(1 4 (6 . 10) (12 . 16) 20)) Combining with `ps-even-or-odd-pages' and `ps-n-up-printing', we have: `ps-n-up-printing' = 1: `ps-even-or-odd-pages' PAGES PRINTED nil 1, 4, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 20 even-page 4, 6, 8, 10, 12, 14, 16, 20 odd-page 1, 7, 9, 13, 15 even-sheet 4, 6, 8, 10, 12, 14, 16, 20 odd-sheet 1, 7, 9, 13, 15 `ps-n-up-printing' = 2: `ps-even-or-odd-pages' PAGES PRINTED nil 1/4, 6/7, 8/9, 10/12, 13/14, 15/16, 20 even-page 4/6, 8/10, 12/14, 16/20 odd-page 1/7, 9/13, 15 even-sheet 6/7, 10/12, 15/16 odd-sheet 1/4, 8/9, 13/14, 20 So even-page/odd-page are about page parity and even-sheet/odd-sheet are about sheet parity. (custom-declare-variable 'ps-even-or-odd-pages 'nil '(#$ . 15405) :type '(choice :menu-tag "Print Even/Odd Pages" :tag "Print Even/Odd Pages" (const :tag "All Pages" nil) (const :tag "Only Even Pages" even-page) (const :tag "Only Odd Pages" odd-page) (const :tag "Only Even Sheets" even-sheet) (const :tag "Only Odd Sheets" odd-sheet)) :version "20" :group 'ps-print-page) #@897 Specify the printable form for control and 8-bit characters. That is, instead of sending, for example, a ^D (\004) to printer, it is sent the string "^D". Valid values are: `8-bit' This is the value to use when you want an ASCII encoding of any control or non-ASCII character. Control characters are encoded as "^D", and non-ASCII characters have an octal encoding. `control-8-bit' This is the value to use when you want an ASCII encoding of any control character, whether it is 7 or 8-bit. European 8-bits accented characters are printed according the current font. `control' Only ASCII control characters have an ASCII encoding. European 8-bits accented characters are printed according the current font. nil No ASCII encoding. Any character is printed according the current font. Any other value is treated as nil. (custom-declare-variable 'ps-print-control-characters ''control-8-bit '(#$ . 17229) :type '(choice :menu-tag "Control Char" :tag "Control Char" (const 8-bit) (const control-8-bit) (const control) (const :tag "nil" nil)) :version "20" :group 'ps-print-miscellany) #@46 Specify the number of pages per sheet paper. (custom-declare-variable 'ps-n-up-printing '1 '(#$ . 18394) :type '(integer :tag "N Up Printing" :validate (lambda (wid) (if (and (< 0 (widget-value wid)) (<= (widget-value wid) 100)) nil (widget-put wid :error "Number of pages per sheet paper must be between 1 and 100.") wid))) :version "20" :group 'ps-print-n-up) #@74 Specify the margin in points between the sheet border and n-up printing. (custom-declare-variable 'ps-n-up-margin '(/ (* 72 1.0) 2.54) '(#$ . 18762) :type 'number :version "20" :group 'ps-print-n-up) #@51 Non-nil means a border is drawn around each page. (custom-declare-variable 'ps-n-up-border-p 't '(#$ . 18968) :type 'boolean :version "20" :group 'ps-print-n-up) #@856 Specify how page matrix is filled on each sheet of paper. Following are the valid values for `ps-n-up-filling' with a filling example using a 3x4 page matrix: `left-top' 1 2 3 4 `left-bottom' 9 10 11 12 5 6 7 8 5 6 7 8 9 10 11 12 1 2 3 4 `right-top' 4 3 2 1 `right-bottom' 12 11 10 9 8 7 6 5 8 7 6 5 12 11 10 9 4 3 2 1 `top-left' 1 4 7 10 `bottom-left' 3 6 9 12 2 5 8 11 2 5 8 11 3 6 9 12 1 4 7 10 `top-right' 10 7 4 1 `bottom-right' 12 9 6 3 11 8 5 2 11 8 5 2 12 9 6 3 10 7 4 1 Any other value is treated as `left-top'. (custom-declare-variable 'ps-n-up-filling ''left-top '(#$ . 19137) :type '(choice :menu-tag "N-Up Filling" :tag "N-Up Filling" (const left-top) (const left-bottom) (const right-top) (const right-bottom) (const top-left) (const bottom-left) (const top-right) (const bottom-right)) :version "20" :group 'ps-print-n-up) #@32 Specify the number of columns. (custom-declare-variable 'ps-number-of-columns '(if ps-landscape-mode 2 1) '(#$ . 20315) :type 'number :version "20" :group 'ps-print-miscellany) #@110 Non-nil means print zebra stripes. See also documentation for `ps-zebra-stripe-height' and `ps-zebra-color'. (custom-declare-variable 'ps-zebra-stripes 'nil '(#$ . 20499) :type 'boolean :version "20" :group 'ps-print-zebra) #@99 Number of zebra stripe lines. See also documentation for `ps-zebra-stripes' and `ps-zebra-color'. (custom-declare-variable 'ps-zebra-stripe-height '3 '(#$ . 20729) :type 'number :version "20" :group 'ps-print-zebra) #@115 Zebra stripe gray scale or RGB color. See also documentation for `ps-zebra-stripes' and `ps-zebra-stripe-height'. (custom-declare-variable 'ps-zebra-color '0.95 '(#$ . 20952) :type '(choice :menu-tag "Zebra Gray/Color" :tag "Zebra Gray/Color" (number :tag "Gray Scale" :value 0.95) (string :tag "Color Name" :value "gray95") (list :tag "RGB Color" :value (0.95 0.95 0.95) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) :version "20" :group 'ps-print-zebra) #@1799 Specify how zebra stripes continue on next page. Visually, valid values are (the character `+' at right of each column indicates that a line is printed): `nil' `follow' `full' `full-follow' Current Page -------- ----------- --------- ---------------- 1 XXXXX + 1 XXXXXXXX + 1 XXXXXX + 1 XXXXXXXXXXXXX + 2 XXXXX + 2 XXXXXXXX + 2 XXXXXX + 2 XXXXXXXXXXXXX + 3 XXXXX + 3 XXXXXXXX + 3 XXXXXX + 3 XXXXXXXXXXXXX + 4 + 4 + 4 + 4 + 5 + 5 + 5 + 5 + 6 + 6 + 6 + 6 + 7 XXXXX + 7 XXXXXXXX + 7 XXXXXX + 7 XXXXXXXXXXXXX + 8 XXXXX + 8 XXXXXXXX + 8 XXXXXX + 8 XXXXXXXXXXXXX + 9 XXXXX + 9 XXXXXXXX + 9 XXXXXX + 9 XXXXXXXXXXXXX + 10 + 10 + 11 + 11 + -------- ----------- --------- ---------------- Next Page -------- ----------- --------- ---------------- 12 XXXXX + 12 + 10 XXXXXX + 10 + 13 XXXXX + 13 XXXXXXXX + 11 XXXXXX + 11 + 14 XXXXX + 14 XXXXXXXX + 12 XXXXXX + 12 + 15 + 15 XXXXXXXX + 13 + 13 XXXXXXXXXXXXX + 16 + 16 + 14 + 14 XXXXXXXXXXXXX + 17 + 17 + 15 + 15 XXXXXXXXXXXXX + 18 XXXXX + 18 + 16 XXXXXX + 16 + 19 XXXXX + 19 XXXXXXXX + 17 XXXXXX + 17 + 20 XXXXX + 20 XXXXXXXX + 18 XXXXXX + 18 + 21 + 21 XXXXXXXX + 22 + 22 + -------- ----------- --------- ---------------- Any other value is treated as nil. (custom-declare-variable 'ps-zebra-stripe-follow 'nil '(#$ . 21435) :type '(choice :menu-tag "Zebra Stripe Follow" :tag "Zebra Stripe Follow" (const :tag "Always Restart" nil) (const :tag "Continue on Next Page" follow) (const :tag "Print Only Full Stripe" full) (const :tag "Continue on Full Stripe" full-follow)) :version "20" :group 'ps-print-zebra) #@34 Non-nil means print line number. (custom-declare-variable 'ps-line-number 'nil '(#$ . 23592) :type 'boolean :version "20" :group 'ps-print-miscellany) #@532 Specify the interval that line number is printed. For example, `ps-line-number-step' is set to 2, the printing will look like: 1 one line one line 3 one line one line 5 one line one line ... Valid values are: integer an integer that specifies the interval that line number is printed. If it's lesser than or equal to zero, it's used the value 1. `zebra' specifies that only the line number of the first line in a zebra stripe is to be printed. Any other value is treated as `zebra'. (custom-declare-variable 'ps-line-number-step '1 '(#$ . 23750) :type '(choice :menu-tag "Line Number Step" :tag "Line Number Step" (integer :tag "Step Interval") (const :tag "Synchronize Zebra" zebra)) :version "20" :group 'ps-print-miscellany) #@727 Specify the starting point in the interval given by `ps-line-number-step'. For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3, the printing will look like: one line one line 3 one line one line one line 6 one line one line one line 9 one line one line ... The values for `ps-line-number-start': * If `ps-line-number-step' is an integer, must be between 1 and the value of `ps-line-number-step' inclusive. * If `ps-line-number-step' is set to `zebra', must be between 1 and the value of `ps-zebra-strip-height' inclusive. Use this combination if you wish that line number be relative to zebra stripes. (custom-declare-variable 'ps-line-number-start '1 '(#$ . 24533) :type '(integer :tag "Start Step Interval") :version "20" :group 'ps-print-miscellany) #@1076 EPS image list to be printed on background. The elements are: (FILENAME X Y XSCALE YSCALE ROTATION PAGES...) FILENAME is a file name which contains an EPS image or some PostScript programming like EPS. FILENAME is ignored, if it doesn't exist or is read protected. X and Y are relative positions on paper to put the image. If X and Y are nil, the image is centered on paper. XSCALE and YSCALE are scale factor to be applied to image before printing. If XSCALE and YSCALE are nil, the original size is used. ROTATION is the image rotation angle; if nil, the default is 0. PAGES designates the page to print background image. PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO page. If PAGES is nil, print background image on all pages. X, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer number or a string. If it is a string, the string should contain PostScript programming that returns a float or integer value. For example, if you wish to print an EPS image on all pages do: '(("~/images/EPS-image.ps")) (custom-declare-variable 'ps-print-background-image 'nil '(#$ . 25418) :type '(repeat (list (file :tag "EPS File") (choice :tag "X" (const :tag "default" nil) number string) (choice :tag "Y" (const :tag "default" nil) number string) (choice :tag "X Scale" (const :tag "default" nil) number string) (choice :tag "Y Scale" (const :tag "default" nil) number string) (choice :tag "Rotation" (const :tag "default" nil) number string) (repeat :tag "Pages" :inline t (radio (integer :tag "Page") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))))) :version "20" :group 'ps-print-background) #@1125 Text list to be printed on background. The elements are: (STRING X Y FONT FONTSIZE GRAY ROTATION PAGES...) STRING is the text to be printed on background. X and Y are positions on paper to put the text. If X and Y are nil, the text is positioned at lower left corner. FONT is a font name to be used on printing the text. If nil, "Times-Roman" is used. FONTSIZE is font size to be used, if nil, 200 is used. GRAY is the text gray factor (should be very light like 0.8). If nil, the default is 0.85. ROTATION is the text rotation angle; if nil, the angle is given by the diagonal from lower left corner to upper right corner. PAGES designates the page to print background text. PAGES may be a number or a cons cell (FROM . TO) designating FROM page to TO page. If PAGES is nil, print background text on all pages. X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer number or a string. If it is a string, the string should contain PostScript programming that returns a float or integer value. For example, if you wish to print text "Preliminary" on all pages do: '(("Preliminary")) (custom-declare-variable 'ps-print-background-text 'nil '(#$ . 27099) :type '(repeat (list (string :tag "Text") (choice :tag "X" (const :tag "default" nil) number string) (choice :tag "Y" (const :tag "default" nil) number string) (choice :tag "Font" (const :tag "default" nil) string) (choice :tag "Fontsize" (const :tag "default" nil) number string) (choice :tag "Gray" (const :tag "default" nil) number string) (choice :tag "Rotation" (const :tag "default" nil) number string) (repeat :tag "Pages" :inline t (radio (integer :tag "Page") (cons :tag "Range" (integer :tag "From") (integer :tag "To")))))) :version "20" :group 'ps-print-background) #@36 Left margin in points (1/72 inch). (custom-declare-variable 'ps-left-margin '(/ (* 72 2.0) 2.54) '(#$ . 28877) :type 'number :version "20" :group 'ps-print-horizontal) #@37 Right margin in points (1/72 inch). (custom-declare-variable 'ps-right-margin '(/ (* 72 2.0) 2.54) '(#$ . 29051) :type 'number :version "20" :group 'ps-print-horizontal) #@57 Horizontal space between columns in points (1/72 inch). (custom-declare-variable 'ps-inter-column '(/ (* 72 2.0) 2.54) '(#$ . 29227) :type 'number :version "20" :group 'ps-print-horizontal) #@38 Bottom margin in points (1/72 inch). (custom-declare-variable 'ps-bottom-margin '(/ (* 72 1.5) 2.54) '(#$ . 29423) :type 'number :version "20" :group 'ps-print-vertical) #@35 Top margin in points (1/72 inch). (custom-declare-variable 'ps-top-margin '(/ (* 72 1.5) 2.54) '(#$ . 29599) :type 'number :version "20" :group 'ps-print-vertical) #@76 Vertical space in points (1/72 inch) between the main text and the header. (custom-declare-variable 'ps-header-offset '(/ (* 72 1.0) 2.54) '(#$ . 29769) :type 'number :version "20" :group 'ps-print-vertical) #@171 Portion of a header title line height to insert. The insertion is done between the header frame and the text it contains, both in the vertical and horizontal directions. (custom-declare-variable 'ps-header-line-pad '0.15 '(#$ . 29984) :type 'number :version "20" :group 'ps-print-vertical) #@76 Vertical space in points (1/72 inch) between the main text and the footer. (custom-declare-variable 'ps-footer-offset '(/ (* 72 1.0) 2.54) '(#$ . 30280) :type 'number :version "20" :group 'ps-print-vertical) #@171 Portion of a footer title line height to insert. The insertion is done between the footer frame and the text it contains, both in the vertical and horizontal directions. (custom-declare-variable 'ps-footer-line-pad '0.15 '(#$ . 30495) :type 'number :version "20" :group 'ps-print-vertical) #@266 Non-nil means print a header at the top of each page. By default, the header displays the buffer name, page number, and, if the buffer is visiting a file, the file's directory. Headers are customizable by changing variables `ps-left-header' and `ps-right-header'. (custom-declare-variable 'ps-print-header 't '(#$ . 30792) :type 'boolean :version "20" :group 'ps-print-headers) #@53 Non-nil means draw a gaudy frame around the header. (custom-declare-variable 'ps-print-header-frame 't '(#$ . 31177) :type 'boolean :version "20" :group 'ps-print-headers) #@847 Specify header frame properties alist. Valid frame properties are: `fore-color' Specify the foreground frame color. It should be a float number between 0.0 (black color) and 1.0 (white color), a string which is a color name, or a list of 3 float numbers which corresponds to the Red Green Blue color scale, each float number between 0.0 (dark color) and 1.0 (bright color). `back-color' Specify the background frame color (similar to `fore-color'). `shadow-color' Specify the shadow color (similar to `fore-color'). `border-color' Specify the border color (similar to `fore-color'). `border-width' Specify the border width. Any other property is ignored. Don't change this alist directly, instead use customization, or `ps-value', `ps-get', `ps-put' and `ps-del' functions (see them for documentation). (custom-declare-variable 'ps-header-frame-alist ''((fore-color . 0.0) (back-color . 0.9) (border-width . 0.4) (border-color . 0.0) (shadow-color . 0.0)) '(#$ . 31356) :version "21.1" :type '(repeat (choice :menu-tag "Header Frame Element" :tag #1="" (cons :tag "Foreground Color" :format "%v" (const :format #1# fore-color) (choice :menu-tag "Foreground Color" :tag "Foreground Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Background Color" :format "%v" (const :format #1# back-color) (choice :menu-tag "Background Color" :tag "Background Color" (number :tag "Gray Scale" :value 0.9) (string :tag "Color Name" :value "gray90") (list :tag "RGB Color" :value (0.9 0.9 0.9) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Border Width" :format "%v" (const :format #1# border-width) (number :tag "Border Width" :value 0.4)) (cons :tag "Border Color" :format "%v" (const :format #1# border-color) (choice :menu-tag "Border Color" :tag "Border Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Shadow Color" :format "%v" (const :format #1# shadow-color) (choice :menu-tag "Shadow Color" :tag "Shadow Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))))) :version "20" :group 'ps-print-headers) #@72 Number of lines to display in page header, when generating PostScript. (custom-declare-variable 'ps-header-lines '2 '(#$ . 33894) :type 'integer :version "20" :group 'ps-print-headers) #@190 Non-nil means print a footer at the bottom of each page. By default, the footer displays page number. Footers are customizable by changing variables `ps-left-footer' and `ps-right-footer'. (custom-declare-variable 'ps-print-footer 'nil '(#$ . 34086) :type 'boolean :version "21.1" :group 'ps-print-headers) #@53 Non-nil means draw a gaudy frame around the footer. (custom-declare-variable 'ps-print-footer-frame 't '(#$ . 34399) :type 'boolean :version "21.1" :group 'ps-print-headers) #@242 Specify footer frame properties alist. Don't change this alist directly, instead use customization, or `ps-value', `ps-get', `ps-put' and `ps-del' functions (see them for documentation). See also `ps-header-frame-alist' for documentation. (custom-declare-variable 'ps-footer-frame-alist ''((fore-color . 0.0) (back-color . 0.9) (border-width . 0.4) (border-color . 0.0) (shadow-color . 0.0)) '(#$ . 34580) :type '(repeat (choice :menu-tag "Header Frame Element" :tag #1="" (cons :tag "Foreground Color" :format "%v" (const :format #1# fore-color) (choice :menu-tag "Foreground Color" :tag "Foreground Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Background Color" :format "%v" (const :format #1# back-color) (choice :menu-tag "Background Color" :tag "Background Color" (number :tag "Gray Scale" :value 0.9) (string :tag "Color Name" :value "gray90") (list :tag "RGB Color" :value (0.9 0.9 0.9) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Border Width" :format "%v" (const :format #1# border-width) (number :tag "Border Width" :value 0.4)) (cons :tag "Border Color" :format "%v" (const :format #1# border-color) (choice :menu-tag "Border Color" :tag "Border Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) (cons :tag "Shadow Color" :format "%v" (const :format #1# shadow-color) (choice :menu-tag "Shadow Color" :tag "Shadow Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))))) :version "21.1" :group 'ps-print-headers) #@72 Number of lines to display in page footer, when generating PostScript. (custom-declare-variable 'ps-footer-lines '2 '(#$ . 36499) :type 'integer :version "21.1" :group 'ps-print-headers) #@276 Non-nil means print only one header/footer at the top/bottom of each page. This is useful when printing more than one column, so it is possible to have only one header/footer over all columns or one header/footer per column. See also `ps-print-header' and `ps-print-footer'. (custom-declare-variable 'ps-print-only-one-header 'nil '(#$ . 36693) :type 'boolean :version "20" :group 'ps-print-headers) #@325 Specify if headers/footers are switched or not. Valid values are: nil Never switch headers/footers. t Always switch headers/footers. duplex Switch headers/footers only when duplexing is on, that is, when `ps-spool-duplex' is non-nil. Any other value is treated as t. See also `ps-print-header' and `ps-print-footer'. (custom-declare-variable 'ps-switch-header ''duplex '(#$ . 37100) :type '(choice :menu-tag "Switch Header/Footer" :tag "Switch Header/Footer" (const :tag "Never Switch" nil) (const :tag "Always Switch" t) (const :tag "Switch When Duplexing" duplex)) :version "20" :group 'ps-print-headers) #@153 Non-nil means show page numbers as N/M, meaning page N of M. NOTE: page numbers are displayed as part of headers, see variable `ps-print-header'. (custom-declare-variable 'ps-show-n-of-n 't '(#$ . 37721) :type 'boolean :version "20" :group 'ps-print-headers) #@1102 Specify who is responsible for setting duplex and page size. Valid values are: `lpr-switches' duplex and page size are configured by `ps-lpr-switches'. Don't forget to set `ps-lpr-switches' to select duplex printing for your printer. `setpagedevice' duplex and page size are configured by ps-print using the setpagedevice PostScript operator. nil duplex and page size are configured by ps-print *not* using the setpagedevice PostScript operator. Any other value is treated as nil. WARNING: The setpagedevice PostScript operator affects ghostview utility when viewing file generated using landscape. Also on some printers, setpagedevice affects zebra stripes; on other printers, setpagedevice affects the left margin. Besides all that, if your printer does not have the paper size specified by setpagedevice, your printing will be aborted. So, if you need to use setpagedevice, set `ps-spool-config' to `setpagedevice', generate a test file and send it to your printer; if the printed file isn't OK, set `ps-spool-config' to nil. (custom-declare-variable 'ps-spool-config '(if ps-windows-system nil 'lpr-switches) '(#$ . 37994) :type '(choice :menu-tag "Spool Config" :tag "Spool Config" (const lpr-switches) (const setpagedevice) (const :tag "nil" nil)) :version "20" :group 'ps-print-headers) #@411 Non-nil generates PostScript for a two-sided printer. For a duplex printer, the `ps-spool-*' and `ps-print-*' commands will insert blank pages as needed between print jobs so that the next buffer printed will start on the right page. Also, if headers are turned on, the headers will be reversed on duplex printers so that the page numbers fall to the left on even-numbered pages. See also `ps-spool-tumble'. (custom-declare-variable 'ps-spool-duplex 'nil '(#$ . 39367) :type 'boolean :version "20" :group 'ps-print-headers) #@308 Specify how the page images on opposite sides of a sheet are oriented. If `ps-spool-tumble' is nil, produces output suitable for binding on the left or right. If `ps-spool-tumble' is non-nil, produces output suitable for binding at the top or bottom. It has effect only when `ps-spool-duplex' is non-nil. (custom-declare-variable 'ps-spool-tumble 'nil '(#$ . 39900) :type 'boolean :version "20" :group 'ps-print-headers) #@817 Font info database. Each element comprises: font family (the key), name, bold, italic, bold-italic, reference size, line height, space width, average character width. To get the info for another specific font (say Helvetica), do the following: - create a new buffer - generate the PostScript image to a file (C-u M-x ps-print-buffer) - open this file and delete the leading `%' (which is the PostScript comment character) from the line `% 3 cm 20 cm moveto 10/Courier ReportFontInfo showpage' to get the line `3 cm 20 cm moveto 10/Helvetica ReportFontInfo showpage' - add the values to `ps-font-info-database'. You can get all the fonts of YOUR printer using `ReportAllFontInfo'. Note also that ps-print DOESN'T download any font to your printer, instead it uses the fonts resident in your printer. (custom-declare-variable 'ps-font-info-database ''((Courier (fonts (normal . "Courier") (bold . "Courier-Bold") (italic . "Courier-Oblique") (bold-italic . "Courier-BoldOblique")) (size . 10.0) (line-height . 10.55) (space-width . 6.0) (avg-char-width . 6.0)) (Helvetica (fonts (normal . "Helvetica") (bold . "Helvetica-Bold") (italic . "Helvetica-Oblique") (bold-italic . "Helvetica-BoldOblique")) (size . 10.0) (line-height . 11.56) (space-width . 2.78) (avg-char-width . 5.09243)) (Times (fonts (normal . "Times-Roman") (bold . "Times-Bold") (italic . "Times-Italic") (bold-italic . "Times-BoldItalic")) (size . 10.0) (line-height . 11.0) (space-width . 2.5) (avg-char-width . 4.71432)) (Palatino (fonts (normal . "Palatino-Roman") (bold . "Palatino-Bold") (italic . "Palatino-Italic") (bold-italic . "Palatino-BoldItalic")) (size . 10.0) (line-height . 12.1) (space-width . 2.5) (avg-char-width . 5.08676)) (Helvetica-Narrow (fonts (normal . "Helvetica-Narrow") (bold . "Helvetica-Narrow-Bold") (italic . "Helvetica-Narrow-Oblique") (bold-italic . "Helvetica-Narrow-BoldOblique")) (size . 10.0) (line-height . 11.56) (space-width . 2.2796) (avg-char-width . 4.17579)) (NewCenturySchlbk (fonts (normal . "NewCenturySchlbk-Roman") (bold . "NewCenturySchlbk-Bold") (italic . "NewCenturySchlbk-Italic") (bold-italic . "NewCenturySchlbk-BoldItalic")) (size . 10.0) (line-height . 12.15) (space-width . 2.78) (avg-char-width . 5.31162)) (AvantGarde-Book (fonts (normal . "AvantGarde-Book") (italic . "AvantGarde-BookOblique")) (size . 10.0) (line-height . 11.77) (space-width . 2.77) (avg-char-width . 5.45189)) (AvantGarde-Demi (fonts (normal . "AvantGarde-Demi") (italic . "AvantGarde-DemiOblique")) (size . 10.0) (line-height . 12.72) (space-width . 2.8) (avg-char-width . 5.51351)) (Bookman-Demi (fonts (normal . "Bookman-Demi") (italic . "Bookman-DemiItalic")) (size . 10.0) (line-height . 11.77) (space-width . 3.4) (avg-char-width . 6.05946)) (Bookman-Light (fonts (normal . "Bookman-Light") (italic . "Bookman-LightItalic")) (size . 10.0) (line-height . 11.79) (space-width . 3.2) (avg-char-width . 5.67027)) (Symbol (fonts (normal . "Symbol")) (size . 10.0) (line-height . 13.03) (space-width . 2.5) (avg-char-width . 3.24324)) (Zapf-Dingbats (fonts (normal . "Zapf-Dingbats")) (size . 10.0) (line-height . 9.63) (space-width . 2.78) (avg-char-width . 2.78)) (ZapfChancery-MediumItalic (fonts (normal . "ZapfChancery-MediumItalic")) (size . 10.0) (line-height . 11.45) (space-width . 2.2) (avg-char-width . 4.10811)) (Zapf-Chancery-MediumItalic (fonts (normal . "ZapfChancery-MediumItalic")) (size . 10.0) (line-height . 11.45) (space-width . 2.2) (avg-char-width . 4.10811))) '(#$ . 40330) :type '(repeat (list :tag "Font Definition" (symbol :tag "Font Family") (cons :format "%v" (const :format #1="" fonts) (repeat :tag "Faces" (cons (choice :menu-tag "Font Weight/Slant" :tag "Font Weight/Slant" (const normal) (const bold) (const italic) (const bold-italic) (symbol :tag "Face")) (string :tag "Font Name")))) (cons :format "%v" (const :format #1# size) (number :tag "Reference Size")) (cons :format "%v" (const :format #1# line-height) (number :tag "Line Height")) (cons :format "%v" (const :format #1# space-width) (number :tag "Space Width")) (cons :format "%v" (const :format #1# avg-char-width) (number :tag "Average Character Width")))) :version "20" :group 'ps-print-font) #@65 Font family name for ordinary text, when generating PostScript. (custom-declare-variable 'ps-font-family ''Courier '(#$ . 44543) :type 'symbol :version "20" :group 'ps-print-font) #@139 Font size, in points, for ordinary text, when generating PostScript. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). (custom-declare-variable 'ps-font-size ''(7 . 8.5) '(#$ . 44730) :type '(choice :menu-tag "Ordinary Text Font Size" :tag "Ordinary Text Font Size" (number :tag "Text Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Text Size") (number :tag "Portrait Text Size"))) :version "20" :group 'ps-print-font) #@70 Font family name for text in the header, when generating PostScript. (custom-declare-variable 'ps-header-font-family ''Helvetica '(#$ . 45189) :type 'symbol :version "20" :group 'ps-print-font) #@144 Font size, in points, for text in the header, when generating PostScript. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). (custom-declare-variable 'ps-header-font-size ''(10 . 12) '(#$ . 45390) :type '(choice :menu-tag "Header Font Size" :tag "Header Font Size" (number :tag "Header Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Header Size") (number :tag "Portrait Header Size"))) :version "20" :group 'ps-print-font) #@143 Font size, in points, for the top line of text in header, in PostScript. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). (custom-declare-variable 'ps-header-title-font-size ''(12 . 14) '(#$ . 45854) :type '(choice :menu-tag "Header Title Font Size" :tag "Header Title Font Size" (number :tag "Header Title Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Header Title Size") (number :tag "Portrait Header Title Size"))) :version "20" :group 'ps-print-font) #@70 Font family name for text in the footer, when generating PostScript. (custom-declare-variable 'ps-footer-font-family ''Helvetica '(#$ . 46352) :type 'symbol :version "21.1" :group 'ps-print-font) #@144 Font size, in points, for text in the footer, when generating PostScript. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). (custom-declare-variable 'ps-footer-font-size ''(10 . 12) '(#$ . 46555) :type '(choice :menu-tag "Footer Font Size" :tag "Footer Font Size" (number :tag "Footer Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Footer Size") (number :tag "Portrait Footer Size"))) :version "21.1" :group 'ps-print-font) #@60 Specify color for line-number, when generating PostScript. (custom-declare-variable 'ps-line-number-color '"black" '(#$ . 47020) :type '(choice :menu-tag "Line Number Color" :tag "Line Number Color" (number :tag "Gray Scale" :value 0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0 0 0) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) :version "21.1" :group 'ps-print-font :group 'ps-print-miscellany) #@51 Font for line-number, when generating PostScript. (custom-declare-variable 'ps-line-number-font '"Times-Italic" '(#$ . 47473) :type 'string :version "20" :group 'ps-print-font :group 'ps-print-miscellany) #@137 Font size, in points, for line number, when generating PostScript. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). (custom-declare-variable 'ps-line-number-font-size '6 '(#$ . 47685) :type '(choice :menu-tag "Line Number Font Size" :tag "Line Number Font Size" (number :tag "Font Size") (cons :tag "Landscape/Portrait" (number :tag "Landscape Font Size") (number :tag "Portrait Font Size"))) :version "20" :group 'ps-print-font :group 'ps-print-miscellany) #@237 Specify how buffer's text color is printed. Valid values are: nil Do not print colors. t Print colors. black-white Print colors on black/white printer. See also `ps-black-white-faces'. Any other value is treated as t. (custom-declare-variable 'ps-print-color-p '(or (fboundp 'x-color-values) (fboundp 'color-instance-rgb-components)) '(#$ . 48170) :type '(choice :menu-tag "Print Color" :tag "Print Color" (const :tag "Do NOT Print Color" nil) (const :tag "Print Always Color" t) (const :tag "Print Black/White Color" black-white)) :version "20" :group 'ps-print-color) #@931 RGB values of the default foreground color. The `ps-default-fg' variable contains the default foreground color used by ps-print, that is, if there is a face in a text that doesn't have a foreground color, the `ps-default-fg' color should be used. Valid values are: t The foreground color of Emacs session will be used. frame-parameter The foreground-color frame parameter will be used. NUMBER It's a real value between 0.0 (black) and 1.0 (white) that indicate the gray color. COLOR-NAME It's a string which contains the color name. For example: "yellow". LIST It's a list of RGB values, that is a list of three real values of the form: (RED GREEN BLUE) Where RED, GREEN and BLUE are reals between 0.0 (no color) and 1.0 (full color). Any other value is ignored and black color will be used. This variable is used only when `ps-print-color-p' (which see) is neither nil nor black-white. (custom-declare-variable 'ps-default-fg 'nil '(#$ . 48765) :type '(choice :menu-tag "Default Foreground Gray/Color" :tag "Default Foreground Gray/Color" (const :tag "Session Foreground" t) (const :tag "Frame Foreground" frame-parameter) (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) :version "20" :group 'ps-print-color) #@967 RGB values of the default background color. The `ps-default-bg' variable contains the default background color used by ps-print, that is, if there is a face in a text that doesn't have a background color, the `ps-default-bg' color should be used. Valid values are: t The background color of Emacs session will be used. frame-parameter The background-color frame parameter will be used. NUMBER It's a real value between 0.0 (black) and 1.0 (white) that indicate the gray color. COLOR-NAME It's a string which contains the color name. For example: "yellow". LIST It's a list of RGB values, that is a list of three real values of the form: (RED GREEN BLUE) Where RED, GREEN and BLUE are reals between 0.0 (no color) and 1.0 (full color). Any other value is ignored and white color will be used. This variable is used only when `ps-print-color-p' (which see) is neither nil nor black-white. See also `ps-use-face-background'. (custom-declare-variable 'ps-default-bg 'nil '(#$ . 50166) :type '(choice :menu-tag "Default Background Gray/Color" :tag "Default Background Gray/Color" (const :tag "Session Background" t) (const :tag "Frame Background" frame-parameter) (number :tag "Gray Scale" :value 1.0) (string :tag "Color Name" :value "white") (list :tag "RGB Color" :value (1.0 1.0 1.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue"))) :version "20" :group 'ps-print-color) #@936 Specify foreground color list. This list is used to chose a text foreground color which is different than the background color. It'll be used the first foreground color in `ps-fg-list' which is different from the background color. If this list is nil, the default foreground color is used. See `ps-default-fg'. The list element valid values are: NUMBER It's a real value between 0.0 (black) and 1.0 (white) that indicate the gray color. COLOR-NAME It's a string which contains the color name. For example: "yellow". LIST It's a list of RGB values, that is a list of three real values of the form: (RED GREEN BLUE) Where RED, GREEN and BLUE are reals between 0.0 (no color) and 1.0 (full color). Any other value is ignored and black color will be used. This variable is used only when `ps-fg-validate-p' (which see) is non-nil and when `ps-print-color-p' (which see) is neither nil nor black-white. (custom-declare-variable 'ps-fg-list 'nil '(#$ . 51603) :type '(repeat (choice :menu-tag "Foreground Gray/Color" :tag "Foreground Gray/Color" (number :tag "Gray Scale" :value 0.0) (string :tag "Color Name" :value "black") (list :tag "RGB Color" :value (0.0 0.0 0.0) (number :tag "Red") (number :tag "Green") (number :tag "Blue")))) :version "22" :group 'ps-print-color) #@173 Non-nil means validate if foreground color is different than background. If text foreground and background colors are equals, no text will appear. See also `ps-fg-list'. (custom-declare-variable 'ps-fg-validate-p 't '(#$ . 52915) :type 'boolean :version "22" :group 'ps-print-color) #@174 Non-nil means automatically detect bold/italic/underline face attributes. If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces', and `ps-underlined-faces'. (custom-declare-variable 'ps-auto-font-detect 't '(#$ . 53207) :type 'boolean :version "20" :group 'ps-print-font) #@227 Specify list of face attributes to print colors on black/white printers. The list elements are the same as defined on `ps-extend-face' (which see). This variable is used only when `ps-print-color-p' is set to `black-white'. (custom-declare-variable 'ps-black-white-faces ''((font-lock-builtin-face "black" nil bold) (font-lock-comment-face "gray20" nil italic) (font-lock-constant-face "black" nil bold) (font-lock-function-name-face "black" nil bold) (font-lock-keyword-face "black" nil bold) (font-lock-string-face "black" nil italic) (font-lock-type-face "black" nil italic) (font-lock-variable-name-face "black" nil bold italic) (font-lock-warning-face "black" nil bold italic)) '(#$ . 53502) :version "21.1" :type '(repeat (list :tag "Face Specification" (face :tag "Face Symbol") (choice :menu-tag "Foreground Color" :tag "Foreground Color" (const :tag "Black" nil) (string :tag "Color Name")) (choice :menu-tag "Background Color" :tag "Background Color" (const :tag "None" nil) (string :tag "Color Name")) (repeat :inline t (choice :menu-tag "Attribute" (const bold) (const italic) (const underline) (const strikeout) (const overline) (const shadow) (const box) (const outline))))) :version "20" :group 'ps-print-face) #@108 A list of the (non-bold) faces that should be printed in bold font. This applies to generating PostScript. (custom-declare-variable 'ps-bold-faces '(unless ps-print-color-p '(font-lock-function-name-face font-lock-builtin-face font-lock-variable-name-face font-lock-keyword-face font-lock-warning-face)) '(#$ . 54737) :type '(repeat face) :version "20" :group 'ps-print-face) #@112 A list of the (non-italic) faces that should be printed in italic font. This applies to generating PostScript. (custom-declare-variable 'ps-italic-faces '(unless ps-print-color-p '(font-lock-variable-name-face font-lock-type-face font-lock-string-face font-lock-comment-face font-lock-warning-face)) '(#$ . 55120) :type '(repeat face) :version "20" :group 'ps-print-face) #@112 A list of the (non-underlined) faces that should be printed underlined. This applies to generating PostScript. (custom-declare-variable 'ps-underlined-faces '(unless ps-print-color-p '(font-lock-function-name-face font-lock-constant-face font-lock-warning-face)) '(#$ . 55499) :type '(repeat face) :version "20" :group 'ps-print-face) #@248 Specify if face background should be used. Valid values are: t always use face background color. nil never use face background color. (face...) list of faces whose background color will be used. Any other value will be treated as t. (custom-declare-variable 'ps-use-face-background 'nil '(#$ . 55841) :type '(choice :menu-tag "Use Face Background" :tag "Use Face Background" (const :tag "Always Use Face Background" t) (const :tag "Never Use Face Background" nil) (repeat :menu-tag "Face Background List" :tag "Face Background List" face)) :version "20" :group 'ps-print-face) #@760 The items to display (each on a line) on the left part of the page header. This applies to generating PostScript. The value should be a list of strings and symbols, each representing an entry in the PostScript array HeaderLinesLeft. Strings are inserted unchanged into the array; those representing PostScript string literals should be delimited with PostScript string delimiters '(' and ')'. For symbols with bound functions, the function is called and should return a string to be inserted into the array. For symbols with bound values, the value should be a string to be inserted into the array. In either case, function or variable, the string value has PostScript string delimiters added to it. If symbols are unbounded, they are silently ignored. (custom-declare-variable 'ps-left-header '(list 'ps-get-buffer-name 'ps-header-dirpart) '(#$ . 56439) :type '(repeat (choice :menu-tag "Left Header" :tag "Left Header" string symbol)) :version "20" :group 'ps-print-headers) #@718 The items to display (each on a line) on the right part of the page header. This applies to generating PostScript. See the variable `ps-left-header' for a description of the format of this variable. There are the following basic functions implemented: `ps-time-stamp-locale-default' Return the locale's "preferred" date as, for example, "06/18/01". `ps-time-stamp-hh:mm:ss' Return time as "17:28:31". `ps-time-stamp-mon-dd-yyyy' Return date as "Jun 18 2001". `ps-time-stamp-yyyy-mm-dd' Return date as "2001-06-18" (ISO date). `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'. You can also create your own time stamp function by using `format-time-string' (which see). (custom-declare-variable 'ps-right-header '(list "/pagenumberstring load" 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss) '(#$ . 57429) :type '(repeat (choice :menu-tag "Right Header" :tag "Right Header" string symbol)) :version "20" :group 'ps-print-headers) #@760 The items to display (each on a line) on the left part of the page footer. This applies to generating PostScript. The value should be a list of strings and symbols, each representing an entry in the PostScript array FooterLinesLeft. Strings are inserted unchanged into the array; those representing PostScript string literals should be delimited with PostScript string delimiters '(' and ')'. For symbols with bound functions, the function is called and should return a string to be inserted into the array. For symbols with bound values, the value should be a string to be inserted into the array. In either case, function or variable, the string value has PostScript string delimiters added to it. If symbols are unbounded, they are silently ignored. (custom-declare-variable 'ps-left-footer '(list 'ps-get-buffer-name 'ps-header-dirpart) '(#$ . 58420) :type '(repeat (choice :menu-tag "Left Footer" :tag "Left Footer" string symbol)) :version "21.1" :group 'ps-print-headers) #@718 The items to display (each on a line) on the right part of the page footer. This applies to generating PostScript. See the variable `ps-left-footer' for a description of the format of this variable. There are the following basic functions implemented: `ps-time-stamp-locale-default' Return the locale's "preferred" date as, for example, "06/18/01". `ps-time-stamp-hh:mm:ss' Return time as "17:28:31". `ps-time-stamp-mon-dd-yyyy' Return date as "Jun 18 2001". `ps-time-stamp-yyyy-mm-dd' Return date as "2001-06-18" (ISO date). `ps-time-stamp-iso8601' Alias for `ps-time-stamp-yyyy-mm-dd'. You can also create your own time stamp function by using `format-time-string' (which see). (custom-declare-variable 'ps-right-footer '(list "/pagenumberstring load" 'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss) '(#$ . 59412) :type '(repeat (choice :menu-tag "Right Footer" :tag "Right Footer" string symbol)) :version "21.1" :group 'ps-print-headers) #@56 Non-nil means report progress while formatting buffer. (custom-declare-variable 'ps-razzle-dazzle 't '(#$ . 60404) :type 'boolean :version "20" :group 'ps-print-miscellany) #@190 Contains the header line identifying the output as PostScript. By default, `ps-adobe-tag' contains the standard identifier. Some printers require slightly different versions of this line. (custom-declare-variable 'ps-adobe-tag '"%!PS-Adobe-3.0\n" '(#$ . 60584) :type 'string :version "20" :group 'ps-print-miscellany) #@455 Non-nil means build the reference face lists. ps-print sets this value to nil after it builds its internal reference lists of bold and italic faces. By setting its value back to t, you can force ps-print to rebuild the lists the next time you invoke one of the ...-with-faces commands. You should set this value back to t after you change the attributes of any face, or create new faces. Most users shouldn't have to worry about its setting, though. (custom-declare-variable 'ps-build-face-reference 't '(#$ . 60910) :type 'boolean :version "20" :group 'ps-print-face) #@270 Non-nil means always rebuild the reference face lists. If this variable is non-nil, ps-print will rebuild its internal reference lists of bold and italic faces *every* time one of the ...-with-faces commands is called. Most users shouldn't need to set this variable. (custom-declare-variable 'ps-always-build-face-reference 'nil '(#$ . 61490) :type 'boolean :version "20" :group 'ps-print-face) #@118 Non-nil means the very first page is skipped. It's like the very first character of buffer (or region) is ^L (\014). (custom-declare-variable 'ps-banner-page-when-duplexing 'nil '(#$ . 61894) :type 'boolean :version "20" :group 'ps-print-headers) #@153 Directory where it's located the PostScript prologue file used by ps-print. By default, this directory is the same as in the variable `data-directory'. (custom-declare-variable 'ps-postscript-code-directory '(or (if (featurep 'xemacs) (cond ((fboundp 'locate-data-directory) (funcall 'locate-data-directory "ps-print")) ((boundp 'data-directory) (symbol-value 'data-directory)) (t nil)) data-directory) (error "`ps-postscript-code-directory' isn't set properly")) '(#$ . 62148) :type 'directory :version "20" :group 'ps-print-miscellany) #@284 Specify line spacing, in points, for ordinary text. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). See also `ps-paragraph-spacing' and `ps-paragraph-regexp'. To get all lines with some spacing set both `ps-line-spacing' and `ps-paragraph-spacing' variables. (custom-declare-variable 'ps-line-spacing '0 '(#$ . 62693) :type '(choice :menu-tag "Line Spacing For Ordinary Text" :tag "Line Spacing For Ordinary Text" (number :tag "Line Spacing") (cons :tag "Landscape/Portrait" (number :tag "Landscape Line Spacing") (number :tag "Portrait Line Spacing"))) :version "21.1" :group 'ps-print-miscellany) #@284 Specify paragraph spacing, in points, for ordinary text. Either a float or a cons of floats (LANDSCAPE-SIZE . PORTRAIT-SIZE). See also `ps-line-spacing' and `ps-paragraph-regexp'. To get all lines with some spacing set both `ps-line-spacing' and `ps-paragraph-spacing' variables. (custom-declare-variable 'ps-paragraph-spacing '0 '(#$ . 63323) :type '(choice :menu-tag "Paragraph Spacing For Ordinary Text" :tag "Paragraph Spacing For Ordinary Text" (number :tag "Paragraph Spacing") (cons :tag "Landscape/Portrait" (number :tag "Landscape Paragraph Spacing") (number :tag "Portrait Paragraph Spacing"))) :version "21.1" :group 'ps-print-miscellany) #@95 Specify paragraph delimiter. It should be a regexp or nil. See also `ps-paragraph-spacing'. (custom-declare-variable 'ps-paragraph-regexp '"[ ]*$" '(#$ . 63982) :type '(choice :menu-tag "Paragraph Delimiter" (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp")) :version "21.1" :group 'ps-print-miscellany) #@643 Specify regexp which is start of a region to cut out when printing. As an example, variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' may be set to "^Local Variables:" and "^End:", respectively, in order to leave out some special printing instructions from the actual print. Special printing instructions may be appended to the end of the file just like any other buffer-local variables. See section "Local Variables in Files" on Emacs manual for more information. Variables `ps-begin-cut-regexp' and `ps-end-cut-regexp' control together what actually gets printed. Both variables may be set to nil in which case no cutting occurs. (custom-declare-variable 'ps-begin-cut-regexp 'nil '(#$ . 64311) :type '(choice (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp")) :version "21.1" :group 'ps-print-miscellany) #@118 Specify regexp which is end of the region to cut out when printing. See `ps-begin-cut-regexp' for more information. (custom-declare-variable 'ps-end-cut-regexp 'nil '(#$ . 65151) :type '(choice (const :tag "No Delimiter" nil) (regexp :tag "Delimiter Regexp")) :version "21.1" :group 'ps-print-miscellany) #@35 Latest `ps-selected-pages' value. (defvar ps-last-selected-pages nil (#$ . 65463)) #@43 Restore latest `ps-selected-pages' value. (defalias 'ps-restore-selected-pages #[nil "\211\207" [ps-last-selected-pages ps-selected-pages] 2 (#$ . 65552) nil]) #@34 Customization of ps-print group. (defalias 'ps-print-customize #[nil "\300\301!\207" [customize-group ps-print] 2 (#$ . 65720) nil]) #@441 Generate and print a PostScript image of the buffer. Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the user for a file name, and saves the PostScript image in that file instead of sending it to the printer. Noninteractively, the argument FILENAME is treated as follows: if it is nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. (defalias 'ps-print-buffer #[(&optional filename) "\301ed#\207" [filename ps-print-without-faces] 4 (#$ . 65860) (list (ps-print-preprint current-prefix-arg))]) #@256 Generate and print a PostScript image of the buffer. Like `ps-print-buffer', but includes font, color, and underline information in the generated image. This command works only if you are using a window system, so it has a way to determine color values. (defalias 'ps-print-buffer-with-faces #[(&optional filename) "\301ed#\207" [filename ps-print-with-faces] 4 (#$ . 66469) (list (ps-print-preprint current-prefix-arg))]) #@114 Generate and print a PostScript image of the region. Like `ps-print-buffer', but prints just the current region. (defalias 'ps-print-region #[(from to &optional filename) "\303 \n\304$\207" [from to filename ps-print-without-faces t] 5 (#$ . 66901) (ps-print-preprint-region current-prefix-arg)]) #@256 Generate and print a PostScript image of the region. Like `ps-print-region', but includes font, color, and underline information in the generated image. This command works only if you are using a window system, so it has a way to determine color values. (defalias 'ps-print-region-with-faces #[(from to &optional filename) "\303 \n\304$\207" [from to filename ps-print-with-faces t] 5 (#$ . 67206) (ps-print-preprint-region current-prefix-arg)]) #@243 Generate and spool a PostScript image of the buffer. Like `ps-print-buffer' except that the PostScript image is saved in a local buffer to be sent to the printer later. Use the command `ps-despool' to send the spooled images to the printer. (defalias 'ps-spool-buffer #[nil "\300ed\"\207" [ps-spool-without-faces] 3 (#$ . 67661) nil]) #@329 Generate and spool a PostScript image of the buffer. Like `ps-spool-buffer', but includes font, color, and underline information in the generated image. This command works only if you are using a window system, so it has a way to determine color values. Use the command `ps-despool' to send the spooled images to the printer. (defalias 'ps-spool-buffer-with-faces #[nil "\300ed\"\207" [ps-spool-with-faces] 3 (#$ . 68004) nil]) #@195 Generate a PostScript image of the region and spool locally. Like `ps-spool-buffer', but spools just the current region. Use the command `ps-despool' to send the spooled images to the printer. (defalias 'ps-spool-region #[(from to) "\302 \303#\207" [from to ps-spool-without-faces t] 4 (#$ . 68441) "r"]) #@337 Generate a PostScript image of the region and spool locally. Like `ps-spool-region', but includes font, color, and underline information in the generated image. This command works only if you are using a window system, so it has a way to determine color values. Use the command `ps-despool' to send the spooled images to the printer. (defalias 'ps-spool-region-with-faces #[(from to) "\302 \303#\207" [from to ps-spool-with-faces t] 4 (#$ . 68755) "r"]) #@440 Send the spooled PostScript to the printer. Interactively, when you use a prefix argument (\[universal-argument]), the command prompts the user for a file name, and saves the spooled PostScript image in that file instead of sending it to the printer. Noninteractively, the argument FILENAME is treated as follows: if it is nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. (defalias 'ps-despool #[(&optional filename) "\301!\207" [filename ps-do-despool] 2 (#$ . 69219) (list (ps-print-preprint current-prefix-arg))]) #@182 Display the correspondence between a line length and a font size. Done using the current ps-print setup. Try: pr -t file | awk '{printf "%3d %s ", length($0), $0}' | sort -r | head (defalias 'ps-line-lengths #[nil "\300 \207" [ps-line-lengths-internal] 1 (#$ . 69811) nil]) #@122 Display number of pages to print this buffer, for various font heights. The table depends on the current ps-print setup. (defalias 'ps-nb-pages-buffer #[(nb-lines) "\301!\207" [nb-lines ps-nb-pages] 2 (#$ . 70092) (byte-code "\300ed\"\207" [ps-count-lines-preprint] 3)]) #@121 Display number of pages to print the region, for various font heights. The table depends on the current ps-print setup. (defalias 'ps-nb-pages-region #[(nb-lines) "\301!\207" [nb-lines ps-nb-pages] 2 (#$ . 70371) (byte-code "\300\301 `\"\207" [ps-count-lines-preprint mark] 3)]) #@40 Used for `ps-print-quote' (which see). (defvar ps-prefix-quote nil (#$ . 70657)) #@49 Return the current PostScript-generation setup. (defalias 'ps-setup #[nil "\305\306\307\310\311\312 \313\260\314\315\316\n\"\315\317 \"\315\320\f\"\305\321\322\323\324\325\326\327\330\305\331\332\333\334\335\305\336\337\340\341\342\343\344\305\345\346\347\350\351\305\352\305\353\305\354\305\355\305\356\357\360\361\362\305\363\364\365\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \201K \201L \201M \201N \305\201O \201P \201Q \201R \305\201S \201T \201U \201V \201W \201X \201Y \201Z \201[ \201\\ \201] \201^ \201_ \201` \201a \201b \305\201c \201d \201e \305\201f \201g \305\201h \201i \201j \201k \201l \201m \257q\313#)\207" [ps-prefix-quote ps-print-version emacs-version ps-windows-system ps-lp-system nil mapconcat ps-print-quote "\n;;; (" "Emacs" ") ps-print version " "\n" ";; internal vars" ps-comment-string "emacs-version " "ps-windows-system " "ps-lp-system " (25 . ps-print-color-p) (25 . ps-lpr-command) (25 . ps-lpr-switches) (25 . ps-printer-name) (25 . ps-printer-name-option) (25 . ps-print-region-function) (25 . ps-manual-feed) (25 . ps-end-with-control-d) (23 . ps-paper-type) (23 . ps-warn-paper-type) (23 . ps-landscape-mode) (23 . ps-print-upside-down) (23 . ps-number-of-columns) (23 . ps-zebra-stripes) (23 . ps-zebra-stripe-height) (23 . ps-zebra-stripe-follow) (23 . ps-zebra-color) (23 . ps-line-number) (23 . ps-line-number-step) (23 . ps-line-number-start) (17 . ps-razzle-dazzle) (17 . ps-default-bg) (17 . ps-default-fg) (17 . ps-fg-validate-p) (17 . ps-fg-list) (23 . ps-use-face-background) (28 . ps-print-control-characters) (26 . ps-print-background-image) (25 . ps-print-background-text) (29 . ps-error-handler-message) (29 . ps-user-defined-prologue) (29 . ps-print-prologue-header) (29 . ps-postscript-code-directory) (29 . ps-adobe-tag) (30 . ps-left-margin) (30 . ps-right-margin) (30 . ps-inter-column) (30 . ps-bottom-margin) (30 . ps-top-margin) (30 . ps-print-only-one-header) (30 . ps-switch-header) (30 . ps-print-header) (30 . ps-header-lines) (30 . ps-header-offset) (30 . ps-header-line-pad) (30 . ps-print-header-frame) (30 . ps-header-frame-alist) (30 . ps-print-footer) (30 . ps-footer-lines) (30 . ps-footer-offset) (30 . ps-footer-line-pad) (30 . ps-print-footer-frame) (30 . ps-footer-frame-alist) (30 . ps-show-n-of-n) (30 . ps-spool-config) (30 . ps-spool-duplex) (30 . ps-spool-tumble) (30 . ps-banner-page-when-duplexing) (30 . ps-left-header) (30 . ps-right-header) (30 . ps-left-footer) (30 . ps-right-footer) (23 . ps-n-up-printing) (23 . ps-n-up-margin) (23 . ps-n-up-border-p) (23 . ps-n-up-filling) (26 . ps-multibyte-buffer) (26 . ps-font-family) (26 . ps-font-size) (26 . ps-header-font-family) (26 . ps-header-font-size) (26 . ps-header-title-font-size) (26 . ps-footer-font-family) (26 . ps-footer-font-size) (26 . ps-line-number-color) (26 . ps-line-number-font) (26 . ps-line-number-font-size) (26 . ps-line-spacing) (26 . ps-paragraph-spacing) (26 . ps-paragraph-regexp) (26 . ps-begin-cut-regexp) (26 . ps-end-cut-regexp) (23 . ps-even-or-odd-pages) (23 . ps-selected-pages) (23 . ps-last-selected-pages) (31 . ps-build-face-reference) (31 . ps-always-build-face-reference) (20 . ps-auto-font-detect) (20 . ps-bold-faces) (20 . ps-italic-faces) (20 . ps-underlined-faces) (20 . ps-black-white-faces) " )\n\n;; The following customized variables have long lists and are seldom modified:\n;; ps-page-dimensions-database\n;; ps-font-info-database\n\n;;; ps-print - end of settings\n"] 115 (#$ . 70744)]) #@701 Quote ELT for printing (used for showing settings). If ELT is nil, return an empty string. If ELT is string, return it. Otherwise, ELT should be a cons (LEN . SYM) where SYM is a variable symbol and LEN is the field length where SYM name will be inserted. The variable `ps-prefix-quote' is used to form the string, if `ps-prefix-quote' is nil, it's used "(setq " as prefix; otherwise, it's used " ". So, the string generated is: * If `ps-prefix-quote' is nil: "(setq SYM-NAME SYM-VALUE" |<------->| LEN * If `ps-prefix-quote' is non-nil: " SYM-NAME SYM-VALUE" |<------->| LEN If `ps-prefix-quote' is nil, it's set to t after generating string. (defalias 'ps-print-quote #[(elt) ";\203 \207:\203S @\250\203S A9\203S \306A!\203S @A\307\n!\211G \nJ \2038 \310\202< \311\312 \fV\203L \313 \fZ\314\"\202M \315\316 !R-\207\317\207" [elt col sym key len val boundp symbol-name " " t "(setq " make-string 32 " " ps-value-string "" ps-prefix-quote] 6 (#$ . 74310)]) #@67 Return a string representation of VAL. Used by `ps-print-quote'. (defalias 'ps-value-string #[(val) "\204 \301\207\302=\203 \303\2079\204 <\203 \304\305\"\207\304\306\"\207" [val "nil" t "t" format "'%S" "%S"] 3 (#$ . 75351)]) #@48 Return a comment string like ";; STR = VALUE". (defalias 'ps-comment-string #[(str value) "\302\303\304 !#\207" [str value format ";; %s = %s" ps-value-string] 5 (#$ . 75595)]) #@72 Return value from association list ALIST-SYM which car is `eq' to KEY. (defalias 'ps-value #[(alist-sym key) " J\236A\207" [key alist-sym] 2 (#$ . 75779)]) #@74 Return element from association list ALIST-SYM which car is `eq' to KEY. (defalias 'ps-get #[(alist-sym key) " J\236\207" [key alist-sym] 2 (#$ . 75942)]) #@170 Store element (KEY . VALUE) into association list ALIST-SYM. If KEY already exists in ALIST-SYM, modify cdr to VALUE. It can be retrieved with `(ps-get ALIST-SYM KEY)'. (defalias 'ps-put #[(alist-sym key value) " J\236\211\203 \n \241\210\202 B \n JBL\210\n)\207" [key alist-sym elt: value] 4 (#$ . 76105)]) #@68 Delete by side effect element KEY from association list ALIST-SYM. (defalias 'ps-del #[(alist-sym key) "J\304\211\2031 \n@@=\203( \203 \nA\241\210\202\" \nAL\210\304\211\202 \n\nA\211\204 *J\207" [alist-sym old a:list: key nil] 3 (#$ . 76426)]) #@67 Return the locale's "preferred" date as, for example, "06/18/01". (defalias 'ps-time-stamp-locale-default #[nil "\300\301!\207" [format-time-string "%x"] 2 (#$ . 76691)]) #@31 Return date as "Jun 18 2001". (defalias 'ps-time-stamp-mon-dd-yyyy #[nil "\300\301!\207" [format-time-string "%b %d %Y"] 2 (#$ . 76868)]) #@41 Return date as "2001-06-18" (ISO date). (defalias 'ps-time-stamp-yyyy-mm-dd #[nil "\300\301!\207" [format-time-string "%Y-%m-%d"] 2 (#$ . 77012)]) (defalias 'ps-time-stamp-iso8601 'ps-time-stamp-yyyy-mm-dd) #@28 Return time as "17:28:31". (defalias 'ps-time-stamp-hh:mm:ss #[nil "\300\301!\207" [format-time-string "%T"] 2 (#$ . 77225)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ps-print-color-scale default-boundp set-default 1.0] 3) (defalias 'ps-color-scale #[(color) "\301\302\303!\"\207" [color mapcar #[(value) " \245\207" [value ps-print-color-scale] 2] ps-color-values] 4]) (defalias 'ps-face-underlined-p #[(face) "\302!\206 >\207" [face ps-underlined-faces face-underline-p] 2]) #@244 If prologue FILENUMBER exists and is readable, return contents as string. Note: No major/minor-mode is activated and no local variables are evaluated for FILENUMBER, but proper EOL-conversion and character interpretation is done! (defalias 'ps-prologue-file #[(filenumber) "\304\305\306\307\" \"!\310\n!\203* \311\n!\203* \312\313!r q\210\314\216\315\n!\210\316 +\202. \317\320\n\")\207" [filenumber ps-postscript-code-directory filename #1=#:temp-buffer convert-standard-filename expand-file-name format "ps-prin%d.ps" file-exists-p file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string error "ps-print PostScript prologue `%s' file was not found"] 5 (#$ . 77755)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ps-mark-code-directory default-boundp set-default nil] 3) #@36 ps-print PostScript error handler. (defvar ps-print-prologue-0 "" (#$ . 78690)) #@31 ps-print PostScript prologue. (defvar ps-print-prologue-1 "" (#$ . 78776)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\307B\302\307!\204- \303\307\304\"\210\310B\302\310!\204< \303\310\304\"\210\311B\302\311!\204K \303\311\304\"\210\312B\302\312!\204Z \303\312\313\"\210\314B\302\314!\204i \303\314\313\"\210\315B\302\315!\204x \303\315\313\"\210\316B\302\316!\204\207 \303\316\313\"\210\317B\302\317!\204\226 \303\317\313\"\210\320B\302\320!\204\245 \303\320\313\"\210\321B\302\321!\204\264 \303\321\313\"\210\322B\302\322!\204\303 \303\322\323\"\210\324B\302\324!\204\322 \303\324\304\"\210\325B\302\325!\204\341 \303\325\304\"\210\326B\302\326!\204\360 \303\326\327\"\210\330B\302\330!\204\377 \303\330\304\"\210\331B\302\331!\204\303\331\304\"\210\332B\302\332!\204 \303\332\304\"\210\333B\302\333!\204,\303\333\304\"\210\334B\302\334!\204;\303\334\313\"\210\335B\302\335!\204J\303\335\313\"\210\336B\302\336!\204Y\303\336\313\"\210\337B\302\337!\204h\303\337\304\"\210\340B\302\340!\204w\303\340\304\"\210\341B\302\341!\204\206\303\341\304\"\210\342B\302\342!\204\225\303\342\304\"\210\343B\302\343!\204\244\303\343\304\"\210\344B\302\344!\204\263\303\344\304\"\210\345B\302\345!\204\302\303\345\304\"\210\346B\302\346!\204\321\303\346\313\"\210\347B\302\347!\204\340\303\347\304\"\210\304\207" [current-load-list ps-source-buffer default-boundp set-default nil ps-spool-buffer-name "*PostScript*" ps-spool-buffer ps-output-head ps-output-tail ps-page-postscript 0 ps-page-order ps-page-sheet ps-page-column ps-page-printed ps-page-n-up ps-lines-printed ps-showline-count 1 ps-first-page ps-last-page ps-print-page-p t ps-control-or-escape-regexp ps-n-up-on ps-background-pages ps-background-all-pages ps-background-text-count ps-background-image-count ps-current-font ps-default-foreground ps-default-background ps-default-color ps-current-color ps-current-bg ps-foreground-list ps-zebra-stripe-full-p ps-razchunk ps-color-p] 3) #@110 Vertical and horizontal space between the header frame and the text. This is in units of points (1/72 inch). (defvar ps-header-pad 0 (#$ . 80843)) #@110 Vertical and horizontal space between the footer frame and the text. This is in units of points (1/72 inch). (defvar ps-footer-pad 0 (#$ . 80997)) (defalias 'ps-page-dimensions-get-width '(macro . #[(dims) "\301\302E\207" [dims nth 0] 3])) (defalias 'ps-page-dimensions-get-height '(macro . #[(dims) "\301\302E\207" [dims nth 1] 3])) (defalias 'ps-page-dimensions-get-media '(macro . #[(dims) "\301\302E\207" [dims nth 2] 3])) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\311B\302\311!\204Z \303\311\304\"\210\312B\302\312!\204i \303\312\304\"\210\313B\302\313!\204x \303\313\304\"\210\314B\302\314!\204\207 \303\314\304\"\210\315B\302\315!\204\226 \303\315\304\"\210\316B\302\316!\204\245 \303\316\304\"\210\304\207" [current-load-list ps-landscape-page-height default-boundp set-default nil ps-print-width ps-print-height ps-height-remaining ps-width-remaining ps-font-size-internal ps-header-font-size-internal ps-header-title-font-size-internal ps-footer-font-size-internal ps-line-spacing-internal ps-paragraph-spacing-internal] 3) #@362 Alist of symbolic faces used for black/white PostScript printers. An element of this list has the same form as `ps-print-face-extension-alist' (which see). Don't change this list directly; instead, use `ps-extend-face' and `ps-extend-face-list'. See documentation for `ps-extend-face' for valid extension symbol. See also documentation for `ps-print-color-p'. (defvar ps-black-white-faces-alist nil (#$ . 82224)) #@573 Alist of symbolic faces *WITH* extension features (box, outline, etc). An element of this list has the following form: (FACE . [BITS FG BG]) FACE is a symbol denoting a face name BITS is a bit vector, where each bit correspond to a feature (bold, underline, etc) (see documentation for `ps-print-face-map-alist') FG foreground color (string or nil) BG background color (string or nil) Don't change this list directly; instead, use `ps-extend-face' and `ps-extend-face-list'. See documentation for `ps-extend-face' for valid extension symbol. (defvar ps-print-face-extension-alist nil (#$ . 82645)) #@296 Alist of symbolic faces *WITHOUT* extension features (box, outline, etc). An element of this list has the same form as an element of `ps-print-face-extension-alist'. Don't change this list directly; this list is used by `ps-face-attributes', `ps-map-face' and `ps-build-reference-face-lists'. (defvar ps-print-face-alist nil (#$ . 83280)) #@106 Alist of all features and the corresponding bit mask. Each symbol correspond to one bit in a bit vector. (defconst ps-print-face-map-alist '((bold . 1) (italic . 2) (underline . 4) (strikeout . 8) (overline . 16) (shadow . 32) (box . 64) (outline . 128)) (#$ . 83628)) #@389 Extend face in ALIST-SYM. If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged with face extension in ALIST-SYM; otherwise, overrides. If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used; otherwise, it should be an alist symbol. The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'. See `ps-extend-face' for documentation. (defalias 'ps-extend-face-list #[(face-extension-list &optional merge-p alist-sym) "\205 \303@ \n#\210A\211\204 \304\207" [face-extension-list merge-p alist-sym ps-extend-face nil] 5 (#$ . 83904)]) #@989 Extend face in ALIST-SYM. If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged with face extensions in ALIST-SYM; otherwise, overrides. If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used; otherwise, it should be an alist symbol. The elements of FACE-EXTENSION list have the form: (FACE-NAME FOREGROUND BACKGROUND EXTENSION...) FACE-NAME is a face name symbol. FOREGROUND and BACKGROUND may be nil or a string that denotes the foreground and background colors respectively. EXTENSION is one of the following symbols: bold - use bold font. italic - use italic font. underline - put a line under text. strikeout - like underline, but the line is in middle of text. overline - like underline, but the line is over the text. shadow - text will have a shadow. box - text will be surrounded by a box. outline - print characters as hollow outlines. If EXTENSION is any other symbol, it is ignored. (defalias 'ps-extend-face #[(face-extension &optional merge-p alist-sym) "\204 \306\307 8 A@ @\211 J\236A\211 \206 \310\311\312\211# \313 ! \311\203: \314\311H\"\202< I\210\203L \203R ;\203R \315 I\210\203` \n\203f \n;\203f \307\nI\210 \206s \fBJBL.\207" [alist-sym face-extension background foreground face-name ps-face ps-print-face-extension-alist 2 vector 0 nil ps-extension-bit logior 1 face-vector face-bit merge-p] 6 (#$ . 84503)]) (defalias 'ps-extension-bit #[(face-extension) "\303 AA A\211\203 \304 @\n\236A\206 \303\"\202 )\207" [face-bit face-extension ps-print-face-map-alist 0 logior] 4]) (defalias 'ps-font-lock-face-attributes #[nil "\306\307!\205\203 \307J\205\203 \306\310!\205\203 \310J\205\202 \211A@\211@\211\311N\204~ A@\312 8\313 8\314 8\315 8\316 \211 \203K \317 BB\203W \320 BB\203a \321\322 \" \203j \321\323 \"\f\203s \321\324 \"\325\n\326 DC\316#\210.*\202 )\207" [face-attributes face-attribute face face-spec underline-p italic-p boundp font-lock-mode font-lock-face-attributes saved-face 2 3 4 5 nil :foreground :background append (:weight bold) (:slant italic) (:underline t) custom-declare-face t bold-p background foreground] 7]) (defalias 'ps-message-log-max #[nil "\301 \302\230?\205 \303\300!\205 \207" [message-log-max buffer-name "*Messages*" boundp] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list ps-print-hook default-boundp set-default nil ps-print-begin-sheet-hook ps-print-begin-page-hook ps-print-begin-column-hook] 3) (defalias 'ps-print-without-faces #[(from to &optional filename region-p) "\304 \n#\210\305 !\207" [from to region-p filename ps-spool-without-faces ps-do-despool] 4]) (defalias 'ps-spool-without-faces #[(from to &optional region-p) "\304 \305\306!\210\307 \n #\210\310p\n \311$)\207" [message-log-max region-p from to ps-message-log-max run-hooks ps-print-hook ps-printing-region ps-generate ps-generate-postscript] 5]) (defalias 'ps-print-with-faces #[(from to &optional filename region-p) "\304 \n#\210\305 !\207" [from to region-p filename ps-spool-with-faces ps-do-despool] 4]) (defalias 'ps-spool-with-faces #[(from to &optional region-p) "\304 \305\306!\210\307 \n #\210\310p\n \311$)\207" [message-log-max region-p from to ps-message-log-max run-hooks ps-print-hook ps-printing-region ps-generate ps-generate-postscript-with-faces] 5]) (defalias 'ps-count-lines-preprint #[(from to) "\203 \204\f \303\304!\210\305 \306 \")C\207" [from to message-log-max error "The mark is not set now" ps-message-log-max count-lines] 3]) (defalias 'ps-count-lines #[(from to) "\302 \"\212 b\210i\303U\203 \304\202 \303)\\\207" [from to count-lines 0 1] 3]) #@386 Variable used to indicate the region that ps-print is printing. It is a cons, the car of which is the line number where the region begins, and its cdr is the total number of lines in the buffer. Formatting functions can use this information to print the original line number (and not the number of lines printed), and to indicate in the header that the printout is of a partial file. (defvar ps-printing-region nil (#$ . 88357)) #@46 Non-nil means ps-print is printing a region. (defvar ps-printing-region-p nil (#$ . 88793)) (defalias 'ps-printing-region #[(region-p from to) "\203 \305e\n ^\"\202 \306\305ed\"B\211\207" [region-p ps-printing-region-p from to ps-printing-region ps-count-lines 1] 4]) (defalias 'ps-font-alist #[(font-sym) "\301N\207" [font-sym fonts] 2]) (put 'ps-font-alist 'byte-optimizer 'byte-compile-inline-expand) #@71 Font family name for text of `font-type', when generating PostScript. (defalias 'ps-font #[(font-sym font-type) "\211\304N)\305 \236A \203 @@=\204 A\211\204 @A\206& \n*\207" [font-sym font-list normal-font font-type fonts normal] 3 (#$ . 89210)]) (defalias 'ps-fonts #[(font-sym) "\301\302\211\303N)\"\207" [font-sym mapcar cdr fonts] 5]) (put 'ps-fonts 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-font-number #[(font-sym font-type) "\302 \211\303N)\"\206 \304\207" [font-type font-sym ps-alist-position fonts 0] 5]) (put 'ps-font-number 'byte-optimizer 'byte-compile-inline-expand) #@287 The height of a line, for generating PostScript. This is the value that ps-print uses to determine the height, y-dimension, of the lines of text it has printed, and thus affects the point at which page-breaks are placed. The line-height is *not* the same as the point size of the font. (defalias 'ps-line-height #[(font-sym) "\301N\207" [font-sym line-height] 2 (#$ . 89832)]) (put 'ps-line-height 'byte-optimizer 'byte-compile-inline-expand) #@301 The height of a `title' line, for generating PostScript. This is the value that ps-print uses to determine the height, y-dimension, of the lines of text it has printed, and thus affects the point at which page-breaks are placed. The title-line-height is *not* the same as the point size of the font. (defalias 'ps-title-line-height #[(font-sym) "\301N\207" [font-sym title-line-height] 2 (#$ . 90283)]) (put 'ps-title-line-height 'byte-optimizer 'byte-compile-inline-expand) #@108 The width of a space character, for generating PostScript. This value is used in expanding tab characters. (defalias 'ps-space-width #[(font-sym) "\301N\207" [font-sym space-width] 2 (#$ . 90766)]) (put 'ps-space-width 'byte-optimizer 'byte-compile-inline-expand) #@237 The average width, in points, of a character, for generating PostScript. This is the value that ps-print uses to determine the length, x-dimension, of the text it has printed, and thus affects the point at which long lines wrap around. (defalias 'ps-avg-char-width #[(font-sym) "\301N\207" [font-sym avg-char-width] 2 (#$ . 91038)]) (put 'ps-avg-char-width 'byte-optimizer 'byte-compile-inline-expand) #@182 Display the correspondence between a line length and a font size. Done using the current ps-print setup. Try: pr -t file | awk '{printf "%3d %s ", length($0), $0}' | sort -r | head (defalias 'ps-line-lengths-internal #[nil "\206 \306\307! \206 \306\310!\n\206 \306\311!\312\313! \314\211 \315N) \316 \210 \317 \320 !\321\211 \" #\322 $\321\211 % &\321\211 ' (\321 ) !_\f\245\"\323 \"\245!# $_\f\245%\323 %\245!\211&) q\210db\210o\204\206 \324\325\326\327\"\324\261\210\330\261\210)#X\203\270 \331)!\245(\f(_ \245'\332\333)'#c\210)T\211)\202\216 \324c\210\334 \335\".\207" [ps-font-size-internal ps-header-font-size-internal ps-header-title-font-size-internal buf ifs font-sym ps-get-font-size ps-font-size ps-header-font-size ps-header-title-font-size get-buffer-create "*Line-lengths*" ps-font-for-text avg-char-width ps-get-page-dimensions ps-setup 5 nil 14 floor "\n" make-string 75 59 "\nnb char per line / font size\n" float format "%16d %s\n" display-buffer not-this-window icw ps-print-width print-width fs-min cw-min nb-cpl-max fs-max cw-max nb-cpl-min fs cw nb-cpl] 5 (#$ . 91448)]) #@164 Display correspondence between font size and the number of pages. The correspondence is based on having NB-LINES lines of text, and on the current ps-print setup. (defalias 'ps-nb-pages #[(nb-lines) "\206 \306\307! \206 \306\310!\n\206 \306\311! \206 \312\f\313\"\314\315! \" #\316\211 $\317N) %\320 \210& '\321 \322 (\323\211 ) *\323 +\324 ,\323\211 - .\323\211 / 0\323\211 1 2\323 3%\"\\(_\"Z#\245)\325')\245!*\326\3274!*\245!+%\"\\,_\"Z#\245-\325'-\245!.\326\3274!.\245!/+3 q\210db\210o\204\302 \330\331\332\333\"\330\261\210\334\3354\"\336\261\2103/X\203\3264\3273!\245!2'2\2451#1_%\2450\334\33730#c\2103T\2113\202\317 \330c\210\340 \341\".\207" [ps-font-size-internal ps-header-font-size-internal ps-header-title-font-size-internal ps-line-spacing-internal ps-line-spacing buf ps-get-font-size ps-font-size ps-header-font-size ps-header-title-font-size ps-get-size "line spacing" get-buffer-create "*Nb-Pages*" ps-font-for-text line-height ps-get-page-dimensions ps-setup 4 nil 14 floor ceiling float "\n" make-string 75 59 format "\nThere are %d lines.\n\n" "nb page / font size\n" "%7d %s\n" display-buffer not-this-window ils ifs font-sym ilh ps-print-height page-height fs-min lh-min nb-lpp-max nb-page-min fs-max lh-max nb-lpp-min nb-page-max fs lh nb-lpp nb-page nb-lines] 5 (#$ . 92595)]) (defalias 'ps-lookup '(macro . #[(key) "\301\302\303BBD\207" [key cdr assq (font-entry)] 4])) (defalias 'ps-size-scale '(macro . #[(key) "\301\302\303D\304BB\305BB\207" [key / * ps-lookup (font-size) (size)] 4])) (defalias 'ps-select-font #[(font-family sym font-size title-font-size) " \236A\211\204 \306\307\310\311 \"#\210\303\n\236A\312\f\313\211\n\236A#\210\312\f\314\211\n\236A _ \245#\210\312\f\315\211\n\236A _ \245#\210\312\f\316\211\n\236A _ \245#\210\312\f\317\316\n\236A_ \245#*\207" [font-family ps-font-info-database font-entry size sym font-size error "Don't have data to scale font %s. Known fonts families are %s" mapcar car put fonts space-width avg-char-width line-height title-line-height title-font-size] 7]) (defalias 'ps-get-page-dimensions #[nil " \236A\306\211\211 \204 \307\310\311\312 \"\"\210\202# \313W\203# \307\314 \"\210\315 \316 \211$\210\315 \317 $\210\315!\320\"\211$\210\f@\fA@#\203O \n \n$\321 %& S'_$ \245\211(\322X\203w \307\323 %&' (&\210\321\n)*#\211+\322X\203\220 \307\324*)+$\210,\203\300 -\317\211 .\325N)_/\321+0/\317\211 .\325N)\317\211 .\326N)1S_/&++\322X\203\356 \307\327*)0/\330/\317\211 .\325N)\317\211 .\326N)1S_/$+&\2102\2033\320\211 .\325N)_4\321+54\320\211 .\326N)6S_4%++\322X\203=\307\331*)54\3304\320\211 .\326N)6S_4#+&\2107\205|\316\211 .\326N)\211 8\\9_ :\332+:\":_Z\211+\322X\205{\307\333;9\316\211 .\326N)8+&*+\207" [ps-paper-type ps-page-dimensions-database page-height page-width page-dimensions ps-number-of-columns nil error "`ps-paper-type' must be one of:\n%s" mapcar car 1 "The number of columns %d should be positive" ps-select-font ps-font-for-text ps-font-for-header ps-font-for-footer - 0 "Bad horizontal layout:\npage-width == %s\nps-left-margin == %s\nps-right-margin == %s\nps-inter-column == %s\nps-number-of-columns == %s\n| lm | text | ic | text | ic | text | rm |\npage-width == lm + n * print-width + (n - 1) * ic + rm\n=> print-width == %d !" "Bad vertical layout:\nps-top-margin == %s\nps-bottom-margin == %s\npage-height == bm + print-height + tm\n=> print-height == %d !" title-line-height line-height "Bad vertical layout (header):\nps-top-margin == %s\nps-bottom-margin == %s\nps-header-offset == %s\nps-header-pad == %s\nheader-height == %s\npage-height == bm + print-height + tm - ho - hh\n=> print-height == %d !" + "Bad vertical layout (footer):\nps-top-margin == %s\nps-bottom-margin == %s\nps-footer-offset == %s\nps-footer-pad == %s\nfooter-height == %s\npage-height == bm + print-height + tm - fo - fh\n=> print-height == %d !" floor "Bad vertical layout (full zebra stripe follow):\nps-zebra-stripe-follow == %s\nps-zebra-stripe-height == %s\nfont-text-height == %s\nline-spacing == %s\npage-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th\n=> print-height == %d !" ps-font-family ps-font-size-internal ps-header-font-family ps-header-font-size-internal ps-header-title-font-size-internal ps-footer-font-family ps-footer-font-size-internal ps-landscape-mode ps-landscape-page-height ps-left-margin ps-right-margin ps-inter-column ps-print-width ps-bottom-margin ps-top-margin ps-print-height ps-print-header ps-header-line-pad font-sym ps-header-pad ps-header-offset ps-header-lines ps-print-footer ps-footer-line-pad ps-footer-pad ps-footer-offset ps-footer-lines ps-zebra-stripe-full-p ps-line-spacing-internal ps-zebra-stripe-height zebra ps-zebra-stripe-follow] 12]) (defalias 'ps-print-preprint-region #[(prefix-arg) "\301 \204 \302\303!\210`\304 \305!E\207" [prefix-arg ps-mark-active-p error "The mark is not set now" mark ps-print-preprint] 4]) (defalias 'ps-print-preprint #[(prefix-arg) "\205} \247\204 <\205} \305\306 \206 \307 !\310P\311\312 \"\313\n \314$ \315\f!\2035 \316 \210\317\211\202W \320\f!\204D \316 \210\321\211\202W \322\f!\203V \323\324\311\325\f\"!?\202W \314\203l \313\311\326\n\"\327\f!\314\211\305\f!%\202& \315\f!\203{ \330 \331\f!\"\202| \f+\207" [prefix-arg name prompt default-directory res file-name-nondirectory buffer-file-name buffer-name ".ps" format "Save PostScript to file (default %s): " read-file-name nil file-directory-p ding "It's a directory" file-writable-p "File is unwritable" file-exists-p "File exists" y-or-n-p "File `%s' exists; overwrite? " "%s; save PostScript to file: " file-name-directory expand-file-name file-name-as-directory] 7]) #@66 Vector used to map characters to PostScript string escape codes. (defvar ps-string-escape-codes (byte-code "\302\303\304\"\305\306X\203 \307\310\"I\210T\211\202 \311W\2031 \307\312\"I\210T\211\202 \313X\203F \307\314\"I\210T\211\2022 \315\316I\210 \317\320I\210 \321\322I\210 \323\324I\210 \325\326I\210 \327\330I\210 \331\332I\210 \333\334I\210 *\207" [char table make-vector 256 nil 0 31 format "\\%03o" 127 "%c" 255 "\\%o" 10 "\\n" 13 "\\r" 9 "\\t" 8 "\\b" 12 "\\f" 92 "\\\\" 40 "\\(" 41 "\\)"] 6) (#$ . 98469)) (defalias 'ps-output-string-prim #[(string) "\303c\210\212\304!c\210)\305\306w\210m\2044 g\307\310!\210\311 X\203* \312X\203* \n H\202. \313\314 \"c\210)\202\n db\210\315c\207" [string special ps-string-escape-codes "(" string-as-unibyte " -'*-[]-~" nil delete-char 1 0 255 format "\\%04X" ")"] 3]) (put 'ps-output-string-prim 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-init-output-queue #[nil "\302C\211\211\207" [ps-output-head ps-output-tail ""] 3]) (put 'ps-init-output-queue 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-selected-pages #[nil "@@@AA\211\205 \n W\205 \202 \207" [ps-selected-pages ps-first-page ps-last-page ps-page-postscript] 3]) (defalias 'ps-print-page-p #[nil "\203' \nX\203 X\202$ \203# \303 \210 X\205F \nX\202$ \306\205F \f\307=\2036 \310 \311\"\312U\202F \f\313=\203E \310 \311\"\311U\202F \314\211\207" [ps-first-page ps-page-postscript ps-last-page ps-selected-pages ps-even-or-odd-pages ps-print-page-p nil even-page logand 1 0 odd-page t] 3]) (put 'ps-print-page-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-print-sheet-p #[nil "\303=\203 \304 \305\"\306U\202 \307=\203 \304 \305\"\305U\202 \310\211\207" [ps-even-or-odd-pages ps-page-sheet ps-print-page-p even-sheet logand 1 0 odd-sheet t] 3]) (put 'ps-print-sheet-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-output #[(&rest args) "\205 \n\241\210 A\205 A\211\202 \207" [ps-print-page-p ps-output-tail args] 3]) (defalias 'ps-output-string #[(string) "\301\302\"\207" [string ps-output t] 3]) (defalias 'ps-output-prologue #[(args) "\301\302;\203\f C\202 \"\207" [args ps-output prologue] 3]) (defalias 'ps-flush-output #[nil "\212q\210db\210 \203~ @\211\306=\203X A\211@\307c\210\212\310 !c\210)\311\312w\210m\204N g \313\314!\210\315\fX\203D \f\316X\203D \fH\202H \317\320\f\"c\210)\202$ db\210\321c\210)\202v \n\322=\203s A\212\323\324!\210\314u\210\325\326 @\"\210)\202v \nc\210) A\211\204 )\327C\211\211\207" [ps-spool-buffer ps-output-head it string special ps-string-escape-codes t "(" string-as-unibyte " -'*-[]-~" nil delete-char 1 0 255 format "\\%04X" ")" prologue search-backward "\nBeginDoc" apply insert "" ps-output-tail] 4]) (defalias 'ps-insert-file #[(fname) "\302 \210\212q\210db\210\303 !)\207" [ps-spool-buffer fname ps-flush-output insert-file-contents] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ps-encode-header-string-function default-boundp set-default nil] 3) (defalias 'ps-generate-header-line #[(fonttag &optional content) "\305\306\307#\210 ;\203 \305 !\210\202 \310 !\203D \310\n!\203< \n \"\311\211 \2038 \f@\312 !\210\fA\211\204* *\202 \312 !\210\202 9\203{ \313 !\203{ \314\n!\203s \n J\"\311\211 \203o \f@\312 !\210\fA\211\204a *\202 \312 J!\210\202 \312\315!\210\305\316!\207" [fonttag content ps-encode-header-string-function l --dolist-tail-- ps-output " [" " " functionp nil ps-output-string boundp fboundp "" "]\n"] 5]) (defalias 'ps-generate-header #[(name fonttag0 fonttag1 contents) "\306\307\310#\210 \2033 \n\311V\2033 \312\313\f @\"\210 \nW\2032 A\211\2032 \313 @\"\210 T\211\202 )\306\314!\207" [name contents ps-header-lines count fonttag0 fonttag1 ps-output "/" "[\n" 0 1 ps-generate-header-line "]def\n"] 5]) (defalias 'ps-output-boolean #[(name bool) "\302\303\304 \203\f \305\202 \306#!\207" [name bool ps-output format "/%s %s def\n" "true" "false"] 5]) (defalias 'ps-output-frame-properties #[(name alist) "\302\303\304\305\306 \236A\307\"\305\310 \236A\311\"\312\313 \236A\206 \314!\305\315 \236A\316\"\305\317 \236A\320\"\321& \207" [name alist ps-output "/" " [" ps-format-color fore-color 0.0 back-color 0.9 ps-float-format border-width 0.4 border-color 0.0 shadow-color 0.0 "]def\n"] 11]) (defalias 'ps-background-pages #[(page-list func) "\203 \303\304\"\207 \nB\211\207" [page-list func ps-background-all-pages mapcar #[(pages) ":\203\n @\202 :\203 A\202 \211\250\2050 \250\2050 \n X\2050 \304\305\306\n #\"*\207" [pages end start func add-to-list ps-background-pages vector] 7]] 3]) (byte-code "\301B\302\303!\207" [current-load-list ps-boundingbox-re (lambda (#1=#:defconst-tmp-var) (defconst ps-boundingbox-re #1#)) "^%%BoundingBox:\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)\\s-+\\([0-9.]+\\)"] 2) (defalias 'ps-get-boundingbox #[nil "\212q\210\212\302 \303\304#\203. \305\306\307\224\307\225{!\306\310\224\310\225{!\306\311\224\311\225{!\306\312\224\312\225{!$\2024 \305\313\211\211\211$*\207" [ps-spool-buffer ps-boundingbox-re re-search-forward nil t vector string-to-number 1 2 3 4 0] 7]) (defalias 'ps-float-format #[(value &optional default) "\206 \211\204 \304\202 \n\247\203 \305 \n\306_\"\202 \305\307\n\")\207" [value default literal ps-float-format " " format 1.0 "%s "] 5]) (defalias 'ps-background-text #[nil "\301\302\"\207" [ps-print-background-text mapcar #[(text) "T\302\303\304\"!\210\305 @!\210\302\306\307\310 8\311\"\303\312\313 8\206 \314\"\307\315 8\316\"\307\317 8\320\"\307 A@\321\"\307\322 8\321\"\323&\210\324\325 \233\303\326\"\"\207" [ps-background-text-count text ps-output format "/ShowBackText-%d{\n" ps-output-string "\n" ps-float-format 4 200.0 "/%s " 3 "Times-Roman" 6 "PrintHeight PrintPageWidth atan" 5 0.85 "0" 2 "\nShowBackText}def\n" ps-background-pages 7 "ShowBackText-%d\n"] 10]] 3]) (defalias 'ps-background-image #[nil "\301\302\"\207" [ps-print-background-image mapcar #[(image) "\305@!\306 !\205~ \nT\307\310\311\n\"\312\3138\314\"\312\3158\316\"\312\3178\320\"\312A@\321\"\312\3228\323\"\324&\210\325 !\210\326 \212\fq\210\212\327\330\331\332#\203p \333\310\334\312 \322H \335HZ\336\245 \335H\\[!\312 \315H \337HZ\340\245 \337H\\[!#\332\"\210+\307\341!\210\342\343\233\310\344\n\"\")\207" [image image-file ps-background-image-count box ps-spool-buffer expand-file-name file-readable-p ps-output format "/ShowBackImage-%d{\n--back-- " ps-float-format 5 0.0 3 1.0 4 1.0 "PrintPageWidth 2 div" 2 "PrintHeight 2 div BottomMargin add" "\nBeginBackImage\n" ps-insert-file ps-get-boundingbox re-search-backward "^--back--" nil t replace-match "%s %s" 0 2.0 1 2.0 "\nEndBackImage}def\n" ps-background-pages 6 "ShowBackImage-%d\n"] 9]] 3]) (defalias 'ps-background #[(page-number) "\302\303\304 \"\210\205 \305\306!)\207" [has-local-background ps-background-pages nil mapc #[(range) "\303H X\205\" \304HX\205\" \n\203 \305\306H!\207\307\305\310\306H\"\207" [range page-number has-local-background 0 1 ps-output 2 t "/printLocalBackground{\n"] 4] ps-output "}def\n"] 3]) (defalias 'ps-remove-duplicates #[(list) "\303 \203 @\n\235\204 @\nB A\211\204 \n\237*\207" [list tail new nil] 3]) (defalias 'ps-alist-position #[(item list) "\305\306\211\203$ @@\f=\211\203 \306\211\202 \nT A\211\204\n \205) \n+\207" [list found index tail item 0 nil] 4]) #@675 Alist which is the page matrix database used for N-up printing. Each element has the following form: (PAGE (MAX LANDSCAPE LINES COLUMNS COL-MISSING) ...) Where: PAGE is the page size used (see `ps-paper-type'). MAX is the maximum elements of this page matrix. LANDSCAPE specifies if page matrix is landscaped, has the following valid values: nil the sheet is in portrait mode. t the sheet is in landscape mode. pag the sheet is in portrait mode and page is in landscape mode. LINES is the number of lines of page matrix. COLUMNS is the number of columns of page matrix. COL-MISSING is the number of columns missing to fill the sheet. (defconst ps-n-up-database '((a4 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 t 3 4 2) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (a3 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (letter (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 5 8 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (legal (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 nil 3 2 1) (9 nil 3 3 0) (10 t 2 5 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (70 t 5 14 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (letter-small (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 t 3 4 1) (15 t 3 5 0) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (28 t 4 7 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 5 8 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 6 10 0) (64 nil 8 8 0) (72 ni 9 8 1) (81 nil 9 9 0) (84 t 7 12 0) (90 nil 10 9 1) (100 nil 10 10 0)) (tabloid (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 t 6 14 0) (90 nil 10 9 1) (100 nil 10 10 0)) (ledger (1 nil 1 1 0) (2 pag 1 2 0) (4 nil 2 2 0) (6 pag 2 3 1) (8 pag 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 pag 6 14 0) (90 nil 10 9 1) (100 nil 10 10 0)) (statement (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 nil 3 2 1) (9 nil 3 3 0) (10 t 2 5 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (21 t 3 7 0) (25 nil 5 5 0) (30 nil 6 5 1) (36 nil 6 6 0) (40 t 4 10 0) (42 nil 7 6 1) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 5 12 0) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (executive (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (20 nil 5 4 1) (25 nil 5 5 0) (28 t 4 7 0) (30 nil 6 5 1) (36 nil 6 6 0) (42 nil 7 6 1) (45 t 5 9 0) (49 nil 7 7 0) (56 nil 8 7 1) (60 t 6 10 0) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (84 t 7 12 0) (90 nil 10 9 1) (100 nil 10 10 0)) (a4small (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (78 t 6 13 0) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (b4 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 1) (81 nil 9 9 0) (90 nil 10 9 1) (100 nil 10 10 0)) (b5 (1 nil 1 1 0) (2 t 1 2 0) (4 nil 2 2 0) (6 t 2 3 1) (8 t 2 4 0) (9 nil 3 3 0) (12 nil 4 3 1) (16 nil 4 4 0) (18 t 3 6 0) (20 nil 5 4 1) (25 nil 5 5 0) (30 nil 6 5 1) (32 t 4 8 0) (36 nil 6 6 0) (42 nil 7 6 1) (49 nil 7 7 0) (50 t 5 10 0) (56 nil 8 7 1) (64 nil 8 8 0) (72 nil 9 8 0) (81 nil 9 9 0) (90 nil 10 9 1) (98 t 7 14 0) (100 nil 10 10 0))) (#$ . 105929)) (defalias 'ps-n-up-landscape '(macro . #[(mat) "\301\302E\207" [mat nth 1] 3])) (defalias 'ps-n-up-lines '(macro . #[(mat) "\301\302E\207" [mat nth 2] 3])) (defalias 'ps-n-up-columns '(macro . #[(mat) "\301\302E\207" [mat nth 3] 3])) (defalias 'ps-n-up-missing '(macro . #[(mat) "\301\302E\207" [mat nth 4] 3])) (defalias 'ps-n-up-printing #[nil "\305^\306] \n\236A\211\203 \211 @@)V\203 A\202 @\206& \307)\207" [ps-n-up-printing ps-paper-type ps-n-up-database the-list x 100 1 (1 nil 1 1 0)] 3]) #@529 Alist for n-up printing initializations. Each element has the following form: (KIND XCOL YCOL XLIN YLIN REPEAT END XSTART YSTART) Where: KIND is a valid value of `ps-n-up-filling'. XCOL YCOL are the relative position for the next column. XLIN YLIN are the relative position for the beginning of next line. REPEAT is the number of repetions for external loop. END is the number of repetions for internal loop and also the number of pages in a row. XSTART YSTART are the relative position for the first page in a sheet. (defconst ps-n-up-filling-database '((left-top "PageWidth" "0" "N-Up-End 1 sub PageWidth mul neg" "LandscapePageHeight neg" "N-Up-Lines" "N-Up-Columns" "0" "0") (left-bottom "PageWidth" "0" "N-Up-End 1 sub PageWidth mul neg" "LandscapePageHeight" "N-Up-Lines" "N-Up-Columns" "0" "N-Up-Repeat 1 sub LandscapePageHeight mul neg") (right-top "PageWidth neg" "0" "N-Up-End 1 sub PageWidth mul" "LandscapePageHeight neg" "N-Up-Lines" "N-Up-Columns" "N-Up-End 1 sub PageWidth mul" "0") (right-bottom "PageWidth neg" "0" "N-Up-End 1 sub PageWidth mul" "LandscapePageHeight" "N-Up-Lines" "N-Up-Columns" "N-Up-End 1 sub PageWidth mul" "N-Up-Repeat 1 sub LandscapePageHeight mul neg") (top-left "0" "LandscapePageHeight neg" "PageWidth" "N-Up-End 1 sub LandscapePageHeight mul" "N-Up-Columns" "N-Up-Lines" "0" "0") (bottom-left "0" "LandscapePageHeight" "PageWidth" "N-Up-End 1 sub LandscapePageHeight mul neg" "N-Up-Columns" "N-Up-Lines" "0" "N-Up-End 1 sub LandscapePageHeight mul neg") (top-right "0" "LandscapePageHeight neg" "PageWidth neg" "N-Up-End 1 sub LandscapePageHeight mul" "N-Up-Columns" "N-Up-Lines" "N-Up-Repeat 1 sub PageWidth mul" "0") (bottom-right "0" "LandscapePageHeight" "PageWidth neg" "N-Up-End 1 sub LandscapePageHeight mul neg" "N-Up-Columns" "N-Up-Lines" "N-Up-Repeat 1 sub PageWidth mul" "N-Up-End 1 sub LandscapePageHeight mul neg")) (#$ . 111194)) (defalias 'ps-n-up-filling #[nil " \236\206 \302 \236A\207" [ps-n-up-filling ps-n-up-filling-database left-top] 2]) (defalias 'ps-n-up-xcolumn '(macro . #[(init) "\301\302E\207" [init nth 0] 3])) (defalias 'ps-n-up-ycolumn '(macro . #[(init) "\301\302E\207" [init nth 1] 3])) (defalias 'ps-n-up-xline '(macro . #[(init) "\301\302E\207" [init nth 2] 3])) (defalias 'ps-n-up-yline '(macro . #[(init) "\301\302E\207" [init nth 3] 3])) (defalias 'ps-n-up-repeat '(macro . #[(init) "\301\302E\207" [init nth 4] 3])) (defalias 'ps-n-up-end '(macro . #[(init) "\301\302E\207" [init nth 5] 3])) (defalias 'ps-n-up-xstart '(macro . #[(init) "\301\302E\207" [init nth 6] 3])) (defalias 'ps-n-up-ystart '(macro . #[(init) "\301\302E\207" [init nth 7] 3])) #@34 Alist for error handler message. (defconst ps-error-handler-alist '((none . 0) (paper . 1) (system . 2) (paper-and-system . 3)) (#$ . 113852)) #@38 Alist for zebra stripe continuation. (defconst ps-zebra-stripe-alist '((follow . 1) (full . 2) (full-follow . 3)) (#$ . 114001)) (defalias 'ps-begin-file #[nil "\306\211\306\211\307\211@A\236AB\203 C?\202 C\310 \311 D E F GH\2035 F?F\312I\313\314 \315J\316\317 \320\321\322!\323B\203O \324\202P \325\326\327\330\331\332\333 K\334\335K\211 K\336N)\")\337\340\341\"\337\340\342\"\337\343\341\"\337\343\342\"F\"!\344#\345\346 \347\350\351G8\352\353\354G@!\"\352\353\354GA@!\"\355L\203\246 F\203\242 \356\202\247 \357\202\247 \360&\210\361M!\210\312\362\351G8\363\364\352\365\366NO\"A\206\304 \367\"P\370\346 \371& \210\361Q!\210\312\372!\210\373\374B\206\344 EA@\375=\"\210\373\376R\"\210\312\352\377S\"\352\201\211 T\"\352\201\212 UV\\S_VZ\"\352\201\213 U\"\352\201\214 W\"\352\201\215 X\"\352\201\216 Y\"\352\201\217 V\"\352\201\220 Z\"\352\201\221 [\"\352\201\222 \\\"\352\201\223 ]\"\352\201\224 ^\"\352\201\225 _\"\352\201\226 `\"&\210\373\201\227 a\"\210\373\201\230 b\201\231 =\203zL\202|b\"\210\373\201\232 c\"\210\373\201\233 d\"\210\373\201\234 e\"\210\201\235 \201\236 f\"\210\373\201\237 g\"\210\373\201\240 h\"\210\201\235 \201\241 i\"\210\333\211 K\201j N) j\312\352\201\242 k\"\352\201\243 l\"\352\201\244 j\"\352\201\245 jk\\ m\354Wm\201\246 _\\m\245!)\"$\210)\373\201\247 n\"\210\373\201\250 o\"\210\373\201\251 p\"\210\373\201\252 q\250?\"\210\312\352\201\253 rs\236A\206*\306\"\352\201\254 q\250\203:q\202<t\"\352\201\255 u\"\201\256 \201\257 v\201\260 \"\352\201\261 t\"\201\262 \201\257 w\201\263 \"\201\264 & \210\312\201\265 \201\257 x\201\266 \"\201\264 #\210\312\201\267 y\201\270 =\203\216\201\271 \202\221\201\272 \201\273 \201\274 \352\201\275 \"%\210\373\201\276 EA@\201\277 =\"\210\373\201\300 z\"\210\312\352\201\301 \351E8\"\352\201\302 \201\303 E8\"\352\201\304 \201\305 E8\"\352\201\306 {\"\201\307 B\203\356\201\310 D8\202\364\201\305 D8\201\311 B\203\201\305 D8\202 \201\310 D8\201\312 D@\201\313 DA@\201\314 \351D8\201\315 \201\303 D8\201\316 \201\317 D8\201\320 \201\321 D8\201\322 &\210\201\323 \210\201\324 \210 \237\f\237\312\360|\201\325 #\210\201\326 \312 \"\210\312\201\327 \201\330 \201\331 \201\332 \201\333 \327\330\331\332\333 K\334\335K\211 K\336N)\")\337\340\341\"\337\340\342\"\337\343\341\"\337\343\342\"F\"!\201\333 #\352\201\334 }\337\340\342\"#\352\201\335 ~\337\340\341\"#\352\201\336 \201\337 \201\340 !#\352\201\341 \200\337\343\341\"#\201\342 & \210\333\211 K\336N)\306 \201 \202\202\203 \312\352\201\343 \201\203\337\333\202@@\"$!\210\202A\202\201T\201\202\333*\204\205\236A \206\312\352\201\344 \201\345 \206\236A\201\346 \206\236A\245\"!\210)y\201\347 =\204g\312\201\350 \201\351 L!\201\352 \201\351 F!\201\353 \201\354 L!\201\355 \201\354 F!\201\356 \201\354 L!\201\357 \201\354 F!\201\360 & \210,\312\201\361 \201\351 \207!\201\362 \201\354 \207!\201\363 %\210\210\205\212\312\201\364 !\207" [ps-page-order ps-page-printed ps-background-text-count ps-background-image-count ps-background-pages ps-background-all-pages 0 nil ps-n-up-printing ps-n-up-filling ps-output "%%Title: " buffer-name "\n%%Creator: ps-print v" "\n%%For: " user-full-name "\n%%CreationDate: " format-time-string "%T %b %d %Y" "\n%%Orientation: " "Landscape" "Portrait" "\n%%DocumentNeededResources: font Times-Roman Times-Italic\n%%+ font " mapconcat identity ps-remove-duplicates append ps-font-for-text mapcar cdr fonts ps-font ps-font-for-header normal bold ps-font-for-footer "\n%%+ font " "\n%%DocumentSuppliedResources: procset PSPrintUserDefinedPrologue-" user-login-name " 0 0" "\n%%DocumentMedia: " 2 format " %d" round " 0 () ()\n%%PageOrder: Ascend\n%%Pages: (atend)\n%%Requirements:" " duplex(tumble)\n" " duplex\n" "\n" ps-insert-string "%%EndComments\n%%BeginDefaults\n%%PageMedia: " "\n%%EndDefaults\n\n%%BeginProlog\n\n" "/languagelevel where{pop}{/languagelevel 1 def}ifelse\n" "/ErrorMessage %s def\n\n" assoc 1 "\n%%BeginResource: procset PSPrintUserDefinedPrologue-" " 0 0\n\n" "\n%%EndResource\n\n" ps-output-boolean "LandscapeMode " pag "UpsideDown " "/NumberOfColumns %d def\n" ps-paper-type ps-page-dimensions-database ps-landscape-mode ps-spool-tumble n-up-filling n-up tumble dimensions ps-n-up-on ps-adobe-tag ps-print-version font-sym ps-spool-duplex ps-print-prologue-header ps-error-handler-message ps-error-handler-alist ps-print-prologue-0 ps-user-defined-prologue ps-print-upside-down ps-number-of-columns ps-landscape-page-height ps-print-width ps-inter-column ps-print-height ps-left-margin ps-right-margin ps-bottom-margin ps-top-margin ps-header-offset ps-header-pad ps-footer-offset ps-footer-pad ps-footer-lines ps-show-n-of-n ps-switch-header ps-print-only-one-header ps-print-header ps-print-header-frame ps-header-frame-alist ps-print-footer ps-print-footer-frame ps-footer-frame-alist line-height ps-line-spacing-internal ps-paragraph-spacing-internal height ps-warn-paper-type ps-zebra-stripes ps-line-number ps-line-number-step ps-zebra-stripe-follow ps-zebra-stripe-alist ps-zebra-stripe-height ps-line-number-start ps-line-number-color ps-zebra-color ps-default-background ps-spool-config ps-n-up-border-p ps-n-up-margin ps-print-prologue-1 ps-header-title-font-size-internal ps-header-font-size-internal ps-line-number-font ps-footer-font-size-internal i font ps-font-size-internal ps-font-family ps-font-info-database font-entry ps-manual-feed ps-banner-page-when-duplexing "/LandscapePageHeight %s def\n" "/PrintPageWidth %s def\n" "/PrintWidth %s def\n" "/PrintHeight %s def\n" "/LeftMargin %s def\n" "/RightMargin %s def\n" "/InterColumn %s def\n" "/BottomMargin %s def\n" "/TopMargin %s def\n" "/HeaderOffset %s def\n" "/HeaderPad %s def\n" "/FooterOffset %s def\n" "/FooterPad %s def\n" "/FooterLines %s def\n" "ShowNofN " "SwitchHeader " duplex "PrintOnlyOneHeader" "PrintHeader " "PrintHeaderFrame " ps-output-frame-properties "HeaderFrameProperties" "PrintFooter " "PrintFooterFrame " "FooterFrameProperties" "/LineSpacing %s def\n" "/ParagraphSpacing %s def\n" "/LineHeight %s def\n" "/LinesPerColumn %d def\n" 0.45 "WarnPaperSize " "Zebra " "PrintLineNumber " "SyncLineZebra " "/ZebraFollow %d def\n" "/PrintLineStep %d def\n" "/PrintLineStart %d def\n" "/LineNumberColor " ps-format-color 0.0 "def\n/ZebraHeight %d def\n" "/ZebraColor " 0.95 "def\n" "/BackgroundColor " 1.0 "/UseSetpagedevice " setpagedevice "/setpagedevice where{pop languagelevel 2 eq}{false}ifelse" "false" " def\n\n/PageWidth " "PrintPageWidth LeftMargin add RightMargin add def\n\n" "/N-Up %d def\n" "N-Up-Landscape" t "N-Up-Border " "/N-Up-Lines %d def\n" "/N-Up-Columns %d def\n" 3 "/N-Up-Missing %d def\n" 4 "/N-Up-Margin %s def\n" "/N-Up-Repeat " 5 " def\n/N-Up-End " " def\n/N-Up-XColumn " " def\n/N-Up-YColumn " " def\n/N-Up-XLine " " def\n/N-Up-YLine " " def\n/N-Up-XStart " 6 " def\n/N-Up-YStart " 7 " def\n" ps-background-text ps-background-image "\n/printGlobalBackground{\n" mapc "}def\n/printLocalBackground{\n}def\n" "\n%%EndProlog\n\n%%BeginSetup\n" "\n%%IncludeResource: font Times-Roman" "\n%%IncludeResource: font Times-Italic" "\n%%IncludeResource: font " "\n/h0 %s(%s)cvn DefFont\n" "/h1 %s(%s)cvn DefFont\n" "/L0 %s(%s)cvn DefFont\n" ps-get-font-size ps-line-number-font-size "/H0 %s(%s)cvn DefFont\n" "\n\n% ---- These lines must be kept together because...\n\n/h0 F\n/HeaderTitleLineHeight FontHeight def\n\n/h1 F\n/HeaderLineHeight FontHeight def\n/HeaderDescent Descent def\n\n/H0 F\n/FooterLineHeight FontHeight def\n/FooterDescent Descent def\n\n% ---- ...because `F' has a side-effect on `FontHeight' and `Descent'\n\n" "/f%d %s(%s)cvn DefFont\n" "/SpaceWidthRatio %f def\n" space-width size lpr-switches "\n%%BeginFeature: *Duplex " ps-boolean-capitalized " *Tumble " "\nUseSetpagedevice\n{BMark/Duplex " ps-boolean-constant "/Tumble " " EMark setpagedevice}\n{statusdict begin " " setduplexmode " " settumble end}ifelse\n%%EndFeature\n" "\n%%BeginFeature: *ManualFeed " "\nBMark /ManualFeed " " EMark setpagedevice\n%%EndFeature\n\nBeginDoc\n%%EndSetup\n" "\n%%Page: banner 0\nsave showpage restore\n"] 25]) (defalias 'ps-format-color #[(color &optional default) ";\203 \304!\202\f \211\203- <\203- \305\306\n @\307_ A@\310_\311 8\312_$\313Q\2029 \314 \247\2037 \2028 !)\207" [color the-color ps-color-format default ps-color-scale "[" format 1.0 1.0 2 1.0 "] " ps-float-format] 8]) (defalias 'ps-insert-string #[(prologue) "\302!\203 \202\f \211;\205 \303 !)\207" [prologue str functionp ps-output] 3]) (defalias 'ps-boolean-capitalized #[(bool) "\203 \301\207\302\207" [bool "True" "False"] 1]) (defalias 'ps-boolean-constant #[(bool) "\203 \301\207\302\207" [bool "true" "false"] 1]) (defalias 'ps-header-dirpart #[nil "\301 \211\203 \302 \303!\230\203 \304\305!!\202 \202 \306)\207" [fname buffer-file-name buffer-name file-name-nondirectory abbreviate-file-name file-name-directory ""] 4]) (defalias 'ps-get-buffer-name #[nil "\301 \302\230\203 \303\207\301 \304\230\203 \305\207\205 \306\301 \307 \205 \310Q\207" [ps-printing-region-p buffer-name "ps-print.el" "Hey, Cool! It's ps-print.el!!!" "sokoban.el" "Super! C'est sokoban.el!" "Subset of: " buffer-modified-p " (unsaved)"] 3]) (defalias 'ps-get-size #[(size mess &optional arg) "\247\203 \202) :\203( @\247\203( A\247\203( \203# @\202) A\202) \305\211\306W\203B \307\310 \f\203? \311\312\f\"\202@ \313$\210\n)\207" [size ps-landscape-mode siz mess arg -1 0 error "Invalid %s `%S'%s" format " for `%S'" ""] 8]) (defalias 'ps-get-font-size #[(font-sym) "\301J\302#\207" [font-sym ps-get-size "font size"] 4]) (defalias 'ps-rgb-color #[(color unspecified default) "\203? <\203? G\306U\203? \307\310\n\2038 \2038 @ A\311 !\2053 \312 X\2053 \313X\211\204 \n+\203? \207\311!\203V \314X\203V \315X\203V \211\211E\207;\203e \f\230\204e \316!\207 \211\211E\207" [color e ok cl unspecified default 3 t nil floatp 0.0 1.0 0.0 1.0 ps-color-scale] 4]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ps-basic-plot-string-function default-boundp set-default ps-basic-plot-string] 3) (defalias 'ps-begin-job #[(genfunc) " \232\204 \306\307!\306\310! \311\211 ?\203] ?@?A?\f\250\2036 \f\307V\203 \f\211B B\202 \f:\203 \f@\250\203 \fA\250\203 \f@\307V\203 \f@\fAX\203 \f B\202 \312 \313\"\211?@\311\211AB*C<\204v \314CD\250\203\206 D\307X\203\206 \310DE\310VF\310GD\250\203\232 D\202\234 H^]G\212Iq\210db\210\315\316\311\314#\203\265 \307\224d|\210)J\317>K\307\211LM\307\211NO\307P\314QR@S\320T\321\"U\320V\322\"W\323\324!X\323\325!Y\323\326!Z\323\327![\\\330=\203\331\332!\202\\\333=\203\331\334!\202\\\335=\203\336\202\337]^\205$\340 \211_\2033\341\342\343!@!\2024\344`\345^\346\235\204Ea\347=\203I\311\202fb\350=\203W\351\311\352\"\202fb\314=\203d\353\354!\202fb\355\356#c\345^\357\235\204za\347=\203~\311\202\233d\350=\203\214\351\311\360\"\202\233d\314=\203\231\361\354!\202\233d\362\363#e\364\365\366^\367\235?\205\255fe\370D\"\"g^\371\235?\205\277e\211hi\372j\311k\373 \210l<\204\327\374\375!\210_\205\347ce\232\205\347\374\376!\207" [ps-mark-code-directory ps-postscript-code-directory ps-print-prologue-0 ps-print-prologue-1 page new ps-prologue-file 0 1 nil sort #[(one other) "@ @W\207" [one other] 2] t re-search-backward "^%%Trailer$" (full full-follow) ps-get-size "line spacing" "paragraph spacing" ps-get-font-size ps-font-size ps-header-font-size ps-header-title-font-size ps-footer-font-size 8-bit string-as-unibyte "[ - -\377]" control-8-bit "[ - -\237]" control "[ - ]" "[ \n\f]" ps-color-device float ps-color-values "white" 1.0 ps-rgb-color (nil back-white) ps-generate-postscript frame-parameter ps-frame-parameter background-color ps-face-background-name default "unspecified-bg" 1.0 (nil back-white) foreground-color ps-face-foreground-name "unspecified-fg" 0.0 mapcar #[(arg) "\301\302\303#\207" [arg ps-rgb-color "unspecified-fg" 0.0] 4] append (nil back-white) "black" (nil back-white) ps-basic-plot-string ps-get-page-dimensions error "`ps-lpr-switches' value should be a list." "`ps-default-fg' and `ps-default-bg' have the same color.\nText won't appear on page. Please, check these variables." ps-selected-pages ps-last-selected-pages ps-first-page ps-last-page ps-use-face-background ps-line-number-step ps-n-up-printing ps-n-up-on ps-line-number-start ps-zebra-stripe-height ps-spool-buffer ps-zebra-stripe-follow ps-zebra-stripe-full-p ps-page-postscript ps-page-sheet ps-page-n-up ps-page-column ps-lines-printed ps-print-page-p ps-printing-region ps-showline-count ps-line-spacing ps-line-spacing-internal ps-paragraph-spacing ps-paragraph-spacing-internal ps-font-size-internal ps-header-font-size-internal ps-header-title-font-size-internal ps-footer-font-size-internal ps-print-control-characters ps-control-or-escape-regexp ps-print-color-p ps-color-p ps-print-color-scale genfunc ps-default-bg ps-default-background ps-default-fg ps-default-foreground ps-fg-list ps-foreground-list ps-default-color ps-current-color ps-basic-plot-string-function ps-encode-header-string-function ps-lpr-switches] 7]) (defalias 'ps-page-number #[nil "\203\n S\n\245T\207 \207" [ps-print-only-one-header ps-page-column ps-number-of-columns] 2]) (defalias 'ps-end-page #[nil "\300\301!\207" [ps-output "EndPage\nEndDSCPage\n"] 2]) (put 'ps-end-page 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-next-page #[nil "\300\301!\210\302 \210\303 \207" [ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page] 2]) (put 'ps-next-page 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-end-sheet #[nil "\205 \302V\205 \303\304!\207" [ps-print-page-p ps-page-sheet 0 ps-output "EndSheet\n"] 2]) (defalias 'ps-header-sheet #[nil "\306 \210T \307=\203 \310\311\"\312U\202% \313=\203$ \310\311\"\311U\202% \314\211\205G T\315\f\203; \316\317 $\202@ \316\320 #\321\316\322\"#\207" [ps-page-sheet ps-even-or-odd-pages ps-print-page-p ps-page-order ps-n-up-on ps-page-postscript ps-end-sheet even-sheet logand 1 0 odd-sheet t ps-output format "\n%%%%Page: (%d \\(%d\\)) %d\n" "\n%%%%Page: %d %d\n" "/Lines 0 def\n/PageCount 0 def\n" "%d BeginSheet\nBeginDSCPage\n" ps-n-up-printing] 6]) (defalias 'ps-header-page #[nil "\306\307 \"!\203\262 \nT \2033 \n\fX\203 \nX\2020 \203/ \305 \210 \nX\205T \n\fX\2020 \310\205T \311=\203C \312\n\313\"\314U\202T \315=\203S \312\n\313\"\313U\202T \316\211\203\272 \317=\203k \312\313\"\314U\202} \320=\203| \312\313\"\313U\202} \316\306\307 \"!\203\224 \321 \210\322\323!\210\202\234 \324\325!\210\322\326!\210\327\n!\210 T \203\272 T \202\272 \324\325!\210\322\330!\210T\211\207" [ps-page-column ps-number-of-columns ps-page-postscript ps-first-page ps-last-page ps-selected-pages zerop mod nil even-page logand 1 0 odd-page t even-sheet odd-sheet ps-header-sheet run-hooks ps-print-begin-sheet-hook ps-output "BeginDSCPage\n" ps-print-begin-page-hook ps-background ps-print-begin-column-hook ps-even-or-odd-pages ps-print-page-p ps-page-sheet ps-page-n-up ps-n-up-printing ps-page-printed] 4]) (defalias 'ps-begin-page #[nil "\n\306 \210\307\310\311\f\"\310\312\313 \"\"\210 \203/ \314\315\316\317$\210\314\320\316\317 $\210\307\310\321 \"!\210 \203L \314\322\323\211 $\210\314\324\323\211 $\210\307\310\325!\"!\210\307\326\"!\327\"\210\330#!\210\331$!\210\332%!\207" [ps-print-width ps-width-remaining ps-print-height ps-height-remaining ps-showline-count ps-print-header ps-header-page ps-output format "/LineNumber %d def\n" "/PageNumber %d def\n" ps-page-number ps-generate-header "HeaderLinesLeft" "/h0" "/h1" "HeaderLinesRight" "%d SetHeaderLines\n" "FooterLinesLeft" "/H0" "FooterLinesRight" "%d SetFooterLines\n" number-to-string " BeginPage\n" ps-set-font ps-set-bg ps-set-color ps-left-header ps-right-header ps-header-lines ps-print-footer ps-left-footer ps-right-footer ps-footer-lines ps-lines-printed ps-current-font ps-current-bg ps-current-color] 5]) (defalias 'ps-skip-newline #[(limit) "T T`\nW\205 \303u\207" [ps-showline-count ps-lines-printed limit 1] 2]) (put 'ps-skip-newline 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-next-line #[nil "T T\n\205 \306\n!\307\211 \310N) \203 \202 \\ W\2035 \311\312!\210\313 \210\314 \202K Z\311 \203I \315\202J \316!*\207" [ps-showline-count ps-lines-printed ps-paragraph-regexp paragraph-p font-sym ps-paragraph-spacing-internal looking-at ps-font-for-text line-height ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page "PHL\n" "LHL\n" ps-line-spacing-internal lh ps-height-remaining ps-print-width ps-width-remaining] 3]) (put 'ps-next-line 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-continue-line #[nil "T\306\211\307N)\n\\\f W\203 \310\311!\210\312 \210\313 \202( \f Z\310\314!)\207" [ps-lines-printed font-sym ps-line-spacing-internal lh ps-height-remaining ps-print-width ps-font-for-text line-height ps-output "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page "SL\n" ps-width-remaining] 3]) (defalias 'ps-find-wrappoint #[(from to char-width) "\306 \245!\n Z \f W\203 \n\f _B\202 \\B*\207" [ps-width-remaining char-width to from todo avail truncate] 3]) (defalias 'ps-basic-plot-str #[(from to string) "\306 \307\211\310N)#\211@\f O \311 !\210\312\313!\210 +\207" [from to font-sym wrappoint string str ps-find-wrappoint ps-font-for-text avg-char-width ps-output-string ps-output " S\n"] 6]) (defalias 'ps-basic-plot-string #[(from to &optional bg-color) "\305 \306\211\307N)#\211@\310 \" \311\f!\210\312\313!\210 +\207" [from to font-sym wrappoint string ps-find-wrappoint ps-font-for-text avg-char-width buffer-substring-no-properties ps-output-string ps-output " S\n"] 6]) (defalias 'ps-basic-plot-whitespace #[(from to &optional bg-color) "\304 \305\211\306N)#\211@\307\310\311 Z\"!\210 *\207" [from to font-sym wrappoint ps-find-wrappoint ps-font-for-text space-width ps-output format "%d W\n"] 6]) (defalias 'ps-plot #[(plotfunc from to &optional bg-color) " W\203) \n #\211 @ \fA \f \fZ W\203% \306 \210+\202 \205n deZ `eZ \307\245\211 \310^ ZV\205m \311\312\313W\203e \313_\245\202l \313\245\245\",\207" [from to plotfunc bg-color wrappoint plotted-to ps-continue-line 8 1000 message "Formatting...%3d%%" 100 plotted-width ps-width-remaining ps-razzle-dazzle q-todo q-done chunkfrac chunksize ps-razchunk] 6]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ps-last-font default-boundp set-default nil] 3) (defalias 'ps-set-font #[(font) "\303\304\211\"\305\303\306\n\"!\207" [font ps-current-font ps-last-font format "f%d" ps-output "/%s F\n"] 4]) (defalias 'ps-set-bg #[(color) "\211\203 \303\304\n@A@\3058$\306\"\207\303\307!\207" [color ps-current-bg ps-color-format ps-output format 2 " true BG\n" "false BG\n"] 7]) (defalias 'ps-set-color #[(color) "\206 \304\305 \n@\nA@\306\n8$\307\"\207" [color ps-default-foreground ps-current-color ps-color-format ps-output format 2 " FG\n"] 7]) (defalias 'ps-plot-string #[(string) "\301\302\303G$\207" [string ps-plot ps-basic-plot-str 0] 5]) (byte-code "\301\302\303\304#\210\305B\306\305!\204 \307\305\310\"\210\301\207" [current-load-list put ps-plot-string byte-optimizer byte-compile-inline-expand ps-current-effect default-boundp set-default 0] 4) #@156 Translation table for PostScript printing. The default value is a table that translates non-Latin-1 Latin characters to the equivalent Latin-1 characters. (defvar ps-print-translation-table (byte-code "\302\303\304\"\305\301!\203 \306 !\203 \307\310 \"\210)\207" [tbl ucs-mule-8859-to-mule-unicode make-char-table translation-table nil boundp char-table-p map-char-table #[(k v) "\205 \303!\304=\205 U?\205 \n I\207" [v k tbl char-charset latin-iso8859-1] 3]] 3) (#$ . 133724)) (defalias 'ps-plot-region #[(from to font &optional fg-color bg-color effects) " \232\204\n \306!\210\n\206 \203; $\206 %& ' ('\203: \f(\232\203: '@'A\211'\204& *\f)\232\204F \307\f!\210)$*\232\204T \310$!\210+\250\204d \311\312!\210\313,\202x +,U\204x \311\314+!\315\"\210+,\212-b\210-.W\205\363/\203\260 0\203\260 \316/!\203\260 \313\225b\210\3170.\320#\203\255 g\321U\203\255 \322u\210`-\3171.\323#\203\340\313\224\211 2f 3-2W\203\325 \3244-2$$\2103\325U\203\326 5\327u\2105i\\-\317\330.\323#\203\376 \324\331-5i\\$$\210)\202\3313\321U\203\220\316\332!\2035. 67T78T8`6W\203'\322u\210)\311\333!\210\334 \210\335 \210\202\3317T78T89\205H\3169! :\336\211 ;\337N):\203[<\202]=\\ >?>W\203t\311\333!\210\334 \210\335 \202\213@A?>Z?\311:\203\211\340\202\212\341!*\210\202\3313\342U\203\3242Sf\321\232\203\250?BU\204\331g\321\232\203\307. 67T78T8`6W\203\306\322u\210)\311\333!\210\334 \210\335 \210\202\331\3433!\210`-*\202} \3244-.$$\210.\211-\202 )\207" [font ps-current-font fg-color ps-default-foreground fg ps-fg-validate-p ps-set-font ps-set-color ps-set-bg ps-output "0 EF\n" 0 number-to-string " EF\n" looking-at re-search-forward noerror 10 1 t ps-plot 9 line-beginning-position -1 "[ ]+" ps-basic-plot-whitespace "\f[^\n]" "EndPage\nEndDSCPage\n" ps-flush-output ps-begin-page ps-font-for-text line-height "PHL\n" "LHL\n" 12 ps-control-character bg-color ps-default-background ps-foreground-list el bg ps-current-color ps-current-bg effects ps-current-effect from to ps-begin-cut-regexp ps-end-cut-regexp ps-control-or-escape-regexp match-point match ps-basic-plot-string-function linestart limit ps-showline-count ps-lines-printed ps-paragraph-regexp paragraph-p font-sym ps-paragraph-spacing-internal ps-line-spacing-internal lh ps-height-remaining ps-print-width ps-width-remaining ps-print-height] 6]) #@54 Vector used to map characters to a printable string. (defvar ps-string-control-codes (byte-code "\302\303\304\"\305\306X\203 \307\310\311\\\"I\210T\211\202 \312W\2033 \307\313\"I\210T\211\202 \314I\210T\211\315X\203L \307\316\"I\210\2028 *\207" [char table make-vector 256 nil 0 31 format "^%c" 64 127 "%c" "^?" 255 "\\%o"] 7) (#$ . 136150)) (defalias 'ps-control-character #[(char) " H`S\nG \f\\ \306\211 \307N) \310 #\211 @ W\203) \311 \210\f_Z\312\n!\210\313\314!.\207" [ps-string-control-codes char str from len to ps-font-for-text avg-char-width ps-find-wrappoint ps-continue-line ps-output-string ps-output " S\n" font-sym char-width wrappoint ps-width-remaining] 5]) (defalias 'ps-face-foreground-color-p #[(attr) "\301>\207" [attr (foreground-color :foreground)] 2]) (put 'ps-face-foreground-color-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-face-background-color-p #[(attr) "\301>\207" [attr (background-color :background)] 2]) (put 'ps-face-background-color-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-face-color-p #[(attr) "\301>\207" [attr (foreground-color :foreground background-color :background)] 2]) (put 'ps-face-color-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'ps-face-extract-color #[(face-attrs) "A\211<\203 @\202 )\207" [face-attrs color] 2]) #@232 Return face attribute vector. If FACE is not in `ps-print-face-extension-alist' or in `ps-print-face-alist', insert it on `ps-print-face-alist' and return the attribute vector. If FACE is not a valid face name, use default face. (defalias 'ps-face-attributes #[(face) "\203 9\203 \236A\206v \306\307\310\211#\207 9\203K \n\236\206I \236\206I \311 !\2031 \2022 \312 \313\f! \f\312=\203C \f \236\204G B *A\207 @\211 \314>)\203^ \306\307\315 !\310#\207 @\211 \316>)\203q \306\307\310\315 !#\207\306\307\310\211#\207" [ps-black-white-faces-alist face ps-print-face-extension-alist ps-print-face-alist the-face new-face vector 0 nil facep default ps-screen-to-bit-face (foreground-color :foreground) ps-face-extract-color (background-color :background) attr] 6 (#$ . 137522)]) (defalias 'ps-face-background #[(face background) "\305=\204T \204\f \306\207 9\203 >\202Q <\203P @\211\307>)\204T \306 \203K @>\204= @\211\307>)\203D \306\305\202( A\211\204, )\202Q \306\205U \f\207" [ps-use-face-background face attr ok background t nil (foreground-color :foreground background-color :background)] 3]) (defalias 'ps-face-attribute-list #[(face-or-list) "<\204 \306!\207@\211\307>)\203 \310\311\312!\313#\207@\211\314>)\203- \310\311\313\312!#\207\311\313\211\211\211 \203e @A\306\n!\315 \311H\" \204W \316H\f\2048 \317\n \320H\"\2028 \310 \f#-\207" [face-or-list attr face face-attr background foreground ps-face-attributes (foreground-color :foreground) vector 0 ps-face-extract-color nil (background-color :background) logior 1 ps-face-background 2 effects] 6]) (byte-code "\301B\302\303\304\305\306\307$!\207" [current-load-list ps-font-type (lambda (#1=#:defconst-tmp-var) (defconst ps-font-type #1#)) vector nil bold italic bold-italic] 6) (defalias 'ps-plot-with-face #[(from to face) "\204 \306 \n\307#\210\202{ \310=\204{ \311!\211\307H \312H \313 \314H\" \2036 \2036 \315 !\2028 \205H \205H \315! \306 \n\316\317\f\320\"H\206Y \321 \211 \322N)\"\206m \307*\323\f\324\"&\210.\nb\207" [face from to face-bit effect foreground ps-plot-region 0 emacs--invisible--face ps-face-attribute-list 1 ps-face-background 2 ps-color-scale ps-font-for-text logand 3 ps-alist-position fonts lsh -2 background ps-color-p ps-default-color fg-color bg-color ps-font-type font-type font-sym] 10]) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp face-list defalias list-faces] 3) (defalias 'ps-build-reference-face-lists #[nil "\306 \210\307 \203 \310\311\312 \"\210\202! \310\313\n\"\210\310\314 \"\210\310\315\f\"\210\307\211\207" [ps-print-face-alist ps-auto-font-detect ps-bold-faces ps-italic-faces ps-underlined-faces ps-build-face-reference ps-font-lock-face-attributes nil mapc ps-map-face face-list ps-set-face-bold ps-set-face-italic ps-set-face-underline] 3]) (defalias 'ps-set-face-bold #[(face) "\301\302\"\207" [face ps-set-face-attribute 1] 3]) (defalias 'ps-set-face-italic #[(face) "\301\302\"\207" [face ps-set-face-attribute 2] 3]) (defalias 'ps-set-face-underline #[(face) "\301\302\"\207" [face ps-set-face-attribute 4] 3]) (defalias 'ps-set-face-attribute #[(face effect) "\303!A\211\304\305 \304H\n\"I)\207" [face face-bit effect ps-map-face 0 logior] 6]) (defalias 'ps-map-face #[(face) "\305!\211@\n\236A\211\203; A \306\307 \306H\f\306H\"I\210 \310H\204* \310\f\310HI\210 \311H\2047 \311\f\311HI\210)\202? \nB *\207" [face face-map ps-print-face-alist ps-face-bit face-bit ps-screen-to-bit-face 0 logior 1 2] 7]) (defalias 'ps-screen-to-bit-face #[(face) "\301\302\303!\203 \304\202 \305\306!\203 \307\202 \305\310!\203# \311\202$ \305\312!\203. \313\202/ \305\314!\2039 \315\202: \305\316!\203D \317\202E \305&\320!\321!#B\207" [face vector logior ps-face-bold-p 1 0 ps-face-italic-p 2 ps-face-underlined-p 4 ps-face-strikeout-p 8 ps-face-overline-p 16 ps-face-box-p 64 ps-face-foreground-name ps-face-background-name] 10]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias ps-jitify jit-lock-fontify-now ps-lazify lazy-lock-fontify-region] 3) (defalias 'ps-print-ensure-fontified #[(start end) "\302\303!\203 \303J\203 \304 \"\207\302\305!\205 \305J\205 \306 \"\207" [start end boundp jit-lock-mode ps-jitify lazy-lock-mode ps-lazify] 3]) (defalias 'ps-generate-postscript-with-faces #[(from to) "\306 \204\n \n\203 \307\310!\210\311 \210\312\f\313=\203 \314 \312\303#\210\214}\210\315\"\210\316\")\207" [ps-current-effect ps-always-build-face-reference ps-build-face-reference ps-black-white-faces-alist ps-print-color-p ps-black-white-faces 0 message "Collecting face information..." ps-build-reference-face-lists nil black-white ps-extend-face-list ps-print-ensure-fontified ps-generate-postscript-with-faces1 from to] 4]) (defalias 'ps-generate-postscript #[(from to) "\302 \303#\207" [from to ps-plot-region 0] 4]) (defalias 'ps-generate #[(buffer from to genfunc) "\212 ^ ]\306\214 }\210 \203 \307\310\311\211\"\210 \312 ! \313C\211 !\314\211\211 \" # $\315\216 q\210\316\314!\210\317 \211$d\314\223\210eb\210\320\321%!!\204V \306\" q\210\212\306\314 & '\322(!\210\"\203q \323 \210\324 \210\325 \"\210\326 \210+\327 \210( \"\210\330\331!\210\332 \210\333\"!\210\306#, \205\232 \307\334!-\207" [to from inhibit-read-only ps-razzle-dazzle ps-razchunk buffer t message "Formatting...%3d%%" 0 get-buffer-create "" nil ((byte-code "\303!\203 \204 \nq\210\304!d|\210\303\207" [safe-marker completed-safely ps-spool-buffer markerp marker-position] 2)) set-buffer-multibyte make-marker looking-at regexp-quote ps-begin-job ps-begin-file ps-mule-initialize ps-mule-begin-job ps-selected-pages ps-begin-page ps-output "EndPage\nEndDSCPage\n" ps-mule-end-job ps-end-job "Formatting...done" ps-source-buffer ps-spool-buffer-name ps-spool-buffer ps-output-head ps-output-tail needs-begin-file completed-safely safe-marker ps-adobe-tag ps-even-or-odd-pages ps-print-page-p genfunc] 5]) (defalias 'ps-end-job #[(needs-begin-file) "\306\307 \210\212\310 \n\" A\311 !\"q\210\312 #db\210!\313V\2034 \314\315\312\306#\2034 \316\317\320!\"\306\"\210eb\210\321\322\312\306#\203K \316\317\323 \f#\306\"\210\2027 -$\203o \310%\324\"\325U\203o \313\326 \210\327\330\331\332&!\333$\210\327\334!\210)\335 \210\327\336\332'\203\205 (\203\205 %T\202\207 %!\337#\210)\203\224 \327\340!\210\307 \210)\312\211*\207" [ps-print-page-p ps-page-printed ps-n-up-printing ps-printing-region total-pages total-lines t ps-flush-output mod ps-page-number nil 0 re-search-backward "^[0-9]+ BeginSheet$" replace-match format "%d BeginSheet" re-search-forward "^/Lines 0 def\n/PageCount 0 def$" "/Lines %d def\n/PageCount %d def" 2 1 ps-header-sheet ps-output "/PrintHeader false def\n/ColumnIndex 0 def\n" "/PrintLineNumber false def\n" number-to-string " BeginPage\n" "EndPage\nEndDSCPage\n" ps-end-sheet "\n%%Trailer\n%%Pages: " "\n\nEndDoc\n\n%%EOF\n" "" pages-per-sheet ps-spool-buffer case-fold-search ps-spool-duplex ps-page-order ps-lines-printed needs-begin-file ps-banner-page-when-duplexing ps-end-with-control-d ps-selected-pages] 5]) (defalias 'ps-do-despool #[(filename) "\306\302!\203 \302J\204 \307\310!\207\2039 \212 \203 \307\311!\210\nq\210\312!\313\314ed#\210) \2035 \307\315\"\210)\202\235 \203A \307\316!\210\212\nq\210\313\f\206S \306\317!\205S \317J \320 \f;\205l \321\f\231\205l ;\205i \fPC\" \f;\204u \322\323 \206| \324ed \322\325\326!\205\210 \327\322\330\331\332\333 \"!!&\210, \203\235 \307\334!\210\335\n!\207" [filename ps-razzle-dazzle ps-spool-buffer coding-system-for-write ps-printer-name ps-lpr-switches boundp message "No spooled PostScript to print" "Saving..." expand-file-name raw-text-unix write-region "Wrote %s" "Printing..." printer-name append "" nil apply call-process-region fboundp start-process 0 ps-flatten-list ps-string-list mapcar ps-eval-switch "Printing...done" kill-buffer ps-printer-name-option ps-print-region-function ps-lpr-command] 13]) (defalias 'ps-string-list #[(arg) "\305 \305\211\2032 @\211;\203 \nB\202+ \n<\203+ \306\n!\211 \203* \fB) A\211\204\n *\237)\207" [lstr arg elm --dolist-tail-- s nil ps-string-list] 3]) (defalias 'ps-eval-switch #[(arg) ";\203 \207\301!\203 \2079\203 J\207:\203$ \302@A\"\207\303\207" [arg functionp apply nil] 3]) (defalias 'ps-flatten-list #[(&rest list) "\301!\207" [list ps-flatten-list-1] 2]) (defalias 'ps-flatten-list-1 #[(list) "\204 \301\207:\203 \302\303@!\303A!\"\207C\207" [list nil append ps-flatten-list-1] 4]) (defalias 'ps-kill-emacs-check #[nil "\302\303 !\211\203 \304!\203 \305!\203 \306\307!\203 \310 \210\303 !\211\205= \304!\205= \305!\205= \311\312!?\205= \313\314!)\207" [ps-buffer ps-spool-buffer-name nil get-buffer buffer-name buffer-modified-p y-or-n-p "Unprinted PostScript waiting; print now? " ps-despool yes-or-no-p "Unprinted PostScript waiting; exit anyway? " error "Unprinted PostScript"] 2]) (byte-code "\301\302!\203 \302\300\303\"\210\202 \203 \304\305!\210\202 \303\301\207" [kill-emacs-hook fboundp add-hook ps-kill-emacs-check message "Won't override existing `kill-emacs-hook'"] 3) #@1768 Specifies the multi-byte buffer handling. Valid values are: nil This is the value to use the default settings; by default, this only works to print buffers with only ASCII and Latin characters. But this default setting can be changed by setting the variable `ps-mule-font-info-database-default' differently. The initial value of this variable is `ps-mule-font-info-database-latin' (see documentation). `non-latin-printer' This is the value to use when you have a Japanese or Korean PostScript printer and want to print buffer with ASCII, Latin-1, Japanese (JISX0208 and JISX0201-Kana) and Korean characters. At present, it was not tested with the Korean characters printing. If you have a korean PostScript printer, please, test it. `bdf-font' This is the value to use when you want to print buffer with BDF fonts. BDF fonts include both latin and non-latin fonts. BDF (Bitmap Distribution Format) is a format used for distributing X's font source file. BDF fonts are included in `intlfonts-1.2' which is a collection of X11 fonts for all characters supported by Emacs. In order to use this value, be sure to have installed `intlfonts-1.2' and set the variable `bdf-directory-list' appropriately (see ps-bdf.el for documentation of this variable). `bdf-font-except-latin' This is like `bdf-font' except that it uses PostScript default fonts to print ASCII and Latin-1 characters. This is convenient when you want or need to use both latin and non-latin characters on the same buffer. See `ps-font-family', `ps-header-font-family' and `ps-font-info-database'. Any other value is treated as nil. (defvar ps-multibyte-buffer nil (#$ . 146726)) (custom-autoload 'ps-multibyte-buffer "ps-mule" t) #@66 Initialize global data for printing multi-byte characters. (fn) (autoload 'ps-mule-initialize "ps-mule" '(#$ . 148597) nil nil) #@151 Start printing job for multi-byte chars between FROM and TO. It checks if all multi-byte characters in the region are printable or not. (fn FROM TO) (autoload 'ps-mule-begin-job "ps-mule" '(#$ . 148733) nil nil) #@49 Finish printing job for multi-byte chars. (fn) (autoload 'ps-mule-end-job "ps-mule" '(#$ . 148952) nil nil) (provide 'ps-print)
Close
