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 : printing.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/printing.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 "`printing.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@138 printing.el, v 6.9.3 <2007/12/09 vinicius> Please send all bug fixes and enhancements to Vinicius Jose Latorre <viniciusjl@ig.com.br> (defconst pr-version "6.9.3" (#$ . 608)) (byte-code "\303\304!\210\303\305!\210\306\231\203 \307\310!\210\311 B\312\n\205' \313\314!\205' \315\316\313\314!\"!\210\317\320!\2044 \321\320\322\"\210\317\323!\204? \321\323\324\"\210\303\207" [ps-print-version current-load-list ps-windows-system require lpr ps-print "6.6.4" error "`printing' requires `ps-print' package version 6.6.4 or later" pr-cygwin-system (lambda (#1=#:defconst-tmp-var) (defconst pr-cygwin-system #1#)) getenv "OSTYPE" string-match "cygwin" fboundp subst-char-in-string defalias #[(fromchar tochar string &optional inplace) "G \203\n \202 \306! S\211\307V\203( \n H\f=\203 \n I\210\202 \n*\207" [string inplace newstr i fromchar tochar copy-sequence 0] 3 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.\nUnless optional argument INPLACE is non-nil, return a new string."] make-temp-file #[(prefix &optional dir-flag suffix) "\302 \303\304\216\305\306!\210\303\307\310\217\204 +\207" [file umask default-file-modes nil ((set-default-file-modes umask)) set-default-file-modes 448 (byte-code "\305\306 \"! \203 \n P\f\203 \307\n!\210\202% \310\311\312\n\312\313\312\314&\210\312\207" [prefix temporary-file-directory file suffix dir-flag make-temp-name expand-file-name make-directory write-region "" nil silent excl] 8) ((file-already-exists t))] 3 "Create a temporary file.\nThe returned file name (created by appending some random characters at the end\nof PREFIX, and expanding against `temporary-file-directory' if necessary),\nis guaranteed to point to a newly created empty file.\nYou can then use `write-region' to write new data into the file.\n\nIf DIR-FLAG is non-nil, create a new empty directory instead of a file.\n\nIf SUFFIX is non-nil, add that at the end of the file name."]] 5) #@94 Non-nil means that menu binding was not done. Used by `pr-menu-bind' and `pr-update-menus'. (defvar pr-menu-print-item "print" (#$ . 2551)) #@78 Non-nil means `pr-ps-printer-alist' was modified and we need to update menu. (defvar pr-ps-printer-menu-modified t (#$ . 2698)) #@79 Non-nil means `pr-txt-printer-alist' was modified and we need to update menu. (defvar pr-txt-printer-menu-modified t (#$ . 2832)) #@78 Non-nil means `pr-ps-utility-alist' was modified and we need to update menu. (defvar pr-ps-utility-menu-modified t (#$ . 2968)) (byte-code "\303B\304\305!\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\325B\326\325\327\330#\210\331\325!\204@ \332\325\333\"\210 \334W\203N \306\335\336\"\210\202S \306\335\337\"\210\n\203_ \306\340\341\"\210\202d \306\340\342\"\210\340B\331\340!\204s \332\340\333\"\210\343B\331\343!\204\202 \332\343\333\"\210\306\344\345\"\210\306\346\347\"\210\306\350\351\"\210\306\352\353\"\210\306\354\355\"\210\356B\331\356!\204\252 \332\356\333\"\210\306\357\360\"\210\306\361\362\"\210\306\363\364\"\210\306\365\366\"\210\306\367\370\"\210\306\371\372\"\207" [current-load-list emacs-major-version ps-windows-system pr-even-or-odd-alist (lambda (#1=#:defconst-tmp-var) (defconst pr-even-or-odd-alist #1#)) ((nil . "Print All Pages") (even-page . "Print Even Pages") (odd-page . "Print Odd Pages") (even-sheet . "Print Even Sheets") (odd-sheet . "Print Odd Sheets")) defalias pr-set-keymap-parents set-keymap-parent pr-set-keymap-name ignore pr-read-string read-string pr-keep-region-active #[nil "\301\211\207" [deactivate-mark nil] 2] pr-region-active-p #[nil "\205 \205 \n\207" [pr-auto-region transient-mark-mode mark-active] 1] pr-menu-char-height #[nil "\300 \207" [frame-char-height] 1] pr-menu-char-width #[nil "\300 \207" [frame-char-width] 1] pr-menu-bar put variable-documentation "Specify Printing menu-bar entry." default-boundp set-default nil 21 pr-global-menubar #[(pr-menu-spec) "\303\304!\210\305\306\307 $\210 \205 \310\311\312 #\210\311\313\314\315\316\307!#\211\207" [pr-menu-spec pr-menu-print-item pr-menu-bar require easymenu easy-menu-change ("tools") "Printing" easy-menu-remove-item nil ("tools") vector menu-bar tools pr-get-symbol] 5] #[(pr-menu-spec) "\306\307!\210\310U\203 \311\202 \312\n\203N \313 \314\315\f\"\316$\210\317\320 \211 \203: @\321 #\210A\211\204' *\320\322\323\324 A@!\324\315!#\211\202V \313 \314\315\f\"#)\207" [emacs-major-version menu-file pr-menu-print-item global-map pr-menu-spec item require easymenu 21 ("menu-bar" "files") ("menu-bar" "file") easy-menu-add-item easy-menu-create-menu "Print" "print-buffer" ("print-buffer" "print-region" "ps-print-buffer-faces" "ps-print-region-faces" "ps-print-buffer" "ps-print-region") nil easy-menu-remove-item vector menu-bar pr-get-symbol --dolist-tail-- pr-menu-bar] 7] pr-menu-position #[(entry index horizontal) "\304 A\211@\206\n \305A\206 \305\306 \n\" _ZD\307 )D\207" [pos entry index pr-menu-char-height mouse-pixel-position 0 pr-menu-index selected-frame] 6] #[(entry index horizontal) "\306 A\211@\206\n \307 \n_ZA\206 \307\310 \f\" _ZD\311 )D\207" [pos horizontal pr-menu-char-width entry index pr-menu-char-height mouse-pixel-position 0 pr-menu-index selected-frame] 6] pr-menu-state pr-menu-lookup #[(path) "\303 \203 \304\n\305\306 <\203 \202 C\"\"\202 \n\"\207" [global-map path pr-menu-bar lookup-key vconcat mapcar pr-get-symbol] 7] pr-menu-lock #[(entry index horizontal state path) "\205J \203 \n =\204 \301\f #\n\306! \307 \"\211 \203F \310\311!\" \312!\203@ \210\202E \313!\210)*\314\211\207" [pr-menu-lock pr-menu-position state pr-menu-state entry index pr-menu-lookup x-popup-menu lookup-key vconcat fboundp eval nil horizontal path menu result command] 5] pr-update-mode-line force-mode-line-update pr-do-update-menus #[(&optional force) "\306\307\310\311\312 \311\313\314& \210\306\n\315\316\317\320 \317\321\314& \210 \306 \322\323\324\304 \325\326\327& \210)\306 \322\323\330\303 \325\326\327& \210\331 \"\207" [pr-ps-printer-alist force pr-txt-printer-alist pr-ps-utility-menu-modified save-var pr-ps-utility-alist pr-menu-alist pr-ps-name pr-menu-set-ps-title "PostScript Printers" pr-ps-printer-menu-modified postscript 2 pr-txt-name pr-menu-set-txt-title "Text Printers" pr-txt-printer-menu-modified text pr-ps-utility pr-menu-set-utility-title ("PostScript Print" "File" "PostScript Utility") "PostScript Utility" nil 1 ("PostScript Preview" "File" "PostScript Utility") pr-even-or-odd-pages ps-even-or-odd-pages] 10] pr-menu-get-item #[(name-list) "<\204 C\205, \306!\307 @! A\237\310\f\311 \312\307 \"\"\" \n AA\236,\207" [name-list reversed name path global-map pr-menu-bar reverse pr-get-symbol lookup-key vconcat mapcar menu] 7] pr-temp-menu pr-menu-alist #[(alist var-sym fun menu-path modified-sym force name entry index) "\205n \204 \nJ\205n \306 B\307\306\310\311#\210\312\306!\204\" \313\306\314\"\210\315\306\314\311\316\f &$\210\317!\211 \203j \320\233\211 A \240\210\203a @<\203a A\241\210 J\"\210*)\n\314L\207" [alist force modified-sym current-load-list name var-sym pr-temp-menu put variable-documentation "" default-boundp set-default nil easy-menu-do-define pr-menu-create pr-menu-get-item 3 fun entry index menu-path item binding key-binding] 12] pr-menu-set-item-name #[(item name) "\205 AA \240\207" [item name] 2] pr-menu-set-ps-title #[(value &optional item entry index) "\304\206 \305\306!\307\310 \"\"\210\311 !\210\n\205 \312 \n\313\314\315%\207" [item value index entry pr-menu-set-item-name pr-menu-get-item "PostScript Printers" format "PostScript Printer: %s" pr-ps-set-printer pr-menu-lock 12 toggle nil] 6] pr-menu-set-txt-title #[(value &optional item entry index) "\304\206 \305\306!\307\310 \"\"\210\311 !\210\n\205 \312 \n\313\314\315%\207" [item value index entry pr-menu-set-item-name pr-menu-get-item "Text Printers" format "Text Printer: %s" pr-txt-set-printer pr-menu-lock 12 toggle nil] 6] pr-menu-set-utility-title #[(value &optional item entry index) "\305!\n\203 \306\n \"\210\202 \306\307\310! \"\210\306\307\311! \"\210)\312!\210 \205. \313\f \314\315\316%\207" [value name item index entry symbol-name pr-menu-set-item-name pr-menu-get-item ("PostScript Print" "File" "PostScript Utility") ("PostScript Preview" "File" "PostScript Utility") pr-ps-set-utility pr-menu-lock 5 nil ("PostScript Print" "File")] 6] pr-even-or-odd-pages #[(value &optional no-lock) "\304\305\306! \236A\"\210 \206 \307\310\311\312\313\314%\207" [value pr-even-or-odd-alist ps-even-or-odd-pages no-lock pr-menu-set-item-name pr-menu-get-item "Print All Pages" pr-menu-lock postscript-options 8 12 toggle nil] 6]] 4) #@72 Replace unix-style directory separator character with dos/windows one. (defalias 'pr-dosify-file-name #[(path) "\302=\203\f \303\304\305 #\207 \207" [pr-path-style path windows subst-char-in-string 47 92] 4 (#$ . 9396) "sPath: "]) #@72 Replace dos/windows-style directory separator character with unix one. (defalias 'pr-unixify-file-name #[(path) "\302=\203\f \303\304\305 #\207 \207" [pr-path-style path windows subst-char-in-string 92 47] 4 (#$ . 9634) "sPath: "]) #@201 Ensure the proper directory separator depending on the OS. That is, if Emacs is running on DOS/Windows, ensure dos/windows-style directory separator; otherwise, ensure unix-style directory separator. (defalias 'pr-standard-file-name #[(path) "\204 \203 \303\304\305\n#\207\303\305\304\n#\207" [pr-cygwin-system ps-windows-system path subst-char-in-string 47 92] 4 (#$ . 9874)]) #@68 Set the value of custom variables for printer & utility selection. (defalias 'pr-alist-custom-set #[(symbol value) " L\210\302\303!\205 \304\305!\207" [symbol value featurep printing pr-update-menus t] 2 (#$ . 10262)]) #@28 Update utility menu entry. (defalias 'pr-ps-utility-custom-set #[(symbol value) " L\210\302\303!\205 \304 !\207" [symbol value featurep printing pr-menu-set-utility-title] 2 (#$ . 10489)]) #@42 Update `PostScript Printer:' menu entry. (defalias 'pr-ps-name-custom-set #[(symbol value) " L\210\302\303!\205 \304 !\207" [symbol value featurep printing pr-menu-set-ps-title] 2 (#$ . 10686)]) #@36 Update `Text Printer:' menu entry. (defalias 'pr-txt-name-custom-set #[(symbol value) " L\210\302\303!\205 \304 !\207" [symbol value featurep printing pr-menu-set-txt-title] 2 (#$ . 10889)]) (custom-declare-group 'printing nil "Printing Utilities group." :tag "Printing Utilities" :link '(emacs-library-link :tag "Source Lisp File" "printing.el") :prefix "pr-" :version "22.1" :group 'wp :group 'postscript) #@136 Specify which path style to use for external commands. Valid values are: windows Windows 9x/NT style (\) unix Unix style (/) (custom-declare-variable 'pr-path-style '(if (and (not pr-cygwin-system) ps-windows-system) 'windows 'unix) '(#$ . 11306) :type '(choice :tag "Path style" (const :tag "Windows 9x/NT Style (\\)" :value windows) (const :tag "Unix Style (/)" :value unix)) :group 'printing) #@1775 Specify an alist for command paths. It's used to find commands used for printing package, like gv, gs, gsview.exe, mpage, print.exe, etc. See also `pr-command' function. Each element has the form: (ENTRY DIRECTORY...) Where: ENTRY It's a symbol, used to identify this entry. There must exist at least one of the following entries: unix this entry is used when Emacs is running on GNU or Unix system. cygwin this entry is used when Emacs is running on Windows 95/98/NT/2000 with Cygwin. windows this entry is used when Emacs is running on Windows 95/98/NT/2000. DIRECTORY It should be a string or a symbol. If it's a symbol, it should exist an equal entry in `pr-path-alist'. If it's a string, it's considered a directory specification. The directory specification may contain: $var environment variable expansion ~/ tilde expansion ./ current directory ../ previous directory For example, let's say the home directory is /home/my and the current directory is /home/my/dir, so: THE ENTRY IS EXPANDED TO ~/entry /home/my/entry ./entry /home/my/dir/entry ../entry /home/my/entry $HOME/entry /home/my/entry $HOME/~/other/../my/entry /home/my/entry SPECIAL SYMBOL: If the symbol `PATH' is used in the directory list and there isn't a `PATH' entry in `pr-path-alist' or the `PATH' entry has a null directory list, the PATH environment variable is used. Examples: * On GNU or Unix system: '((unix "." "~/bin" ghostview mpage PATH) (ghostview "$HOME/bin/gsview-dir") (mpage "$HOME/bin/mpage-dir") ) * On Windows system: '((windows "c:/applications/executables" PATH ghostview mpage) (ghostview "c:/gs/gsview-dir") (mpage "c:/mpage-dir") ) (custom-declare-variable 'pr-path-alist ''((unix PATH) (cygwin PATH) (windows PATH)) '(#$ . 11720) :type '(repeat (cons :tag #1="" (symbol :tag "Identifier ") (repeat :tag "Directory List" (choice :menu-tag "Directory" :tag "Directory" (string :value #1#) (symbol :value symbol))))) :group 'printing) #@365 Specify a printer for printing a text file. The printer name symbol should be defined on `pr-txt-printer-alist' (see it for documentation). This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update text printer menu. (custom-declare-variable 'pr-txt-name ''default '(#$ . 13805) :type 'symbol :set 'pr-txt-name-custom-set :group 'printing) #@3352 Specify an alist of all text printers (text printer database). The alist element has the form: (SYMBOL COMMAND SWITCHES NAME) Where: SYMBOL It's a symbol to identify a text printer. It's for `pr-txt-name' variable setting and for menu selection. Examples: 'prt_06a 'my_printer COMMAND Name of the program for printing a text file. On MS-DOS and MS-Windows systems, if the value is an empty string, then Emacs will write directly to the printer port given by NAME (see text below), that is, the NAME should be something like "PRN" or "LPT1:". If NAME is something like "\\\\host\\share-name" then COMMAND shouldn't be an empty string. The programs `print' and `nprint' (the standard print programs on Windows NT and Novell Netware respectively) are handled specially, using NAME as the destination for output; any other program is treated like `lpr' except that an explicit filename is given as the last argument. If COMMAND is nil, it's used the default printing program: `print' for Windows system, `lp' for lp system and `lpr' for all other systems. See also `pr-path-alist'. Examples: "print" "lpr" "lp" SWITCHES List of sexp's to pass as extra options for text printer program. It is recommended to set NAME (see text below) instead of including an explicit switch on this list. Example: . for lpr '("-#3" "-l") nil NAME A string that specifies a text printer name. On Unix-like systems, a string value should be a name understood by lpr's -P option (or lp's -d option). On MS-DOS and MS-Windows systems, it is the name of a printer device or port. Typical non-default settings would be "LPT1:" to "LPT3:" for parallel printers, or "COM1" to "COM4" or "AUX" for serial printers, or "\\\\hostname\\printer" (or "/D:\\\\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. If you want to discard the printed output, set this to "NUL". Examples: . for print.exe "/D:\\\\host\\share-name" "LPT1:" "PRN" . for lpr or lp "share-name" This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update text printer menu. Examples: * On GNU or Unix system: '((prt_06a "lpr" nil "prt_06a") (prt_07c nil nil "prt_07c") ) * On Windows system: '((prt_06a "print" nil "/D:\\\\printers\\prt_06a") (prt_07c nil nil "/D:\\\\printers\\prt_07c") (PRN "" nil "PRN") (standard "redpr.exe" nil "") ) Useful links: * Information about the print command (print.exe) `http://www.computerhope.com/printhlp.htm' * RedMon - Redirection Port Monitor (redpr.exe) `http://www.cs.wisc.edu/~ghost/redmon/index.htm' * Redirection Port Monitor (redpr.exe on-line help) `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm' * UNIX man pages: lpr (or type `man lpr') `http://bama.ua.edu/cgi-bin/man-cgi?lpr' `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr' * UNIX man pages: lp (or type `man lp') `http://bama.ua.edu/cgi-bin/man-cgi?lp' `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp' (custom-declare-variable 'pr-txt-printer-alist '(list (list 'default lpr-command nil (cond ((boundp 'printer-name) printer-name) (ps-windows-system "PRN") (t nil)))) '(#$ . 14300) :type '(repeat (list :tag "Text Printer" (symbol :tag "Printer Symbol Name") (string :tag "Printer Command") (repeat :tag "Printer Switches" (sexp :tag "Switch" :value "")) (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "None" nil) string))) :set 'pr-alist-custom-set :group 'printing) #@377 Specify a printer for printing a PostScript file. This printer name symbol should be defined on `pr-ps-printer-alist' (see it for documentation). This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update PostScript printer menu. (custom-declare-variable 'pr-ps-name ''default '(#$ . 18142) :type 'symbol :set 'pr-ps-name-custom-set :group 'printing) #@6759 Specify an alist for all PostScript printers (PostScript printer database). The alist element has the form: (SYMBOL COMMAND SWITCHES PRINTER-SWITCH NAME DEFAULT...) Where: SYMBOL It's a symbol to identify a PostScript printer. It's for `pr-ps-name' variable setting and for menu selection. Examples: 'prt_06a 'my_printer COMMAND Name of the 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 given by NAME (see text below), that is, the NAME should be something like "PRN" or "LPT1:". If NAME is something like "\\\\host\\share-name" then COMMAND shouldn't be an empty string. The programs `print' and `nprint' (the standard print programs on Windows NT and Novell Netware respectively) are handled specially, using NAME as the destination for output; any other program is treated like `lpr' except that an explicit filename is given as the last argument. If COMMAND is nil, it's used the default printing program: `print' for Windows system, `lp' for lp system and `lpr' for all other systems. See also `pr-path-alist'. Examples: "print" "lpr" "lp" "cp" "gsprint" SWITCHES List of sexp's to pass as extra options for PostScript printer program. It is recommended to set NAME (see text below) instead of including an explicit switch on this list. Example: . for lpr '("-#3" "-l") nil . for gsprint.exe '("-all" "-twoup") PRINTER-SWITCH A string that specifies PostScript printer name switch. If it's necessary to have a space between PRINTER-SWITCH and NAME, it should be inserted at the end of PRINTER-SWITCH string. If PRINTER-SWITCH is nil, it's used the default printer name switch: `/D:' for Windows system, `-d' for lp system and `-P' for all other systems. Examples: . for lpr "-P " . for lp "-d " . for print.exe "/D:" . for gsprint.exe "-printer " NAME A string that specifies a PostScript printer name. On Unix-like systems, a string value should be a name understood by lpr's -P option (or lp's -d option). On MS-DOS and MS-Windows systems, it is the name of a printer device or port. Typical non-default settings would be "LPT1:" to "LPT3:" for parallel printers, or "COM1" to "COM4" or "AUX" for serial printers, or "\\\\hostname\\printer" (or "/D:\\\\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. If you want to discard the printed output, set this to "NUL". Examples: . for cp.exe "\\\\host\\share-name" . for print.exe or gsprint.exe "/D:\\\\host\\share-name" "\\\\host\\share-name" "LPT1:" "PRN" . for lpr or lp "share-name" DEFAULT It's a way to set default values when this entry is selected. It's a cons like: (VARIABLE . VALUE) Which associates VARIABLE with VALUE. When this entry is selected, it's executed the following command: (set VARIABLE (eval VALUE)) Note that VALUE can be any valid lisp expression. So, don't forget to quote symbols and constant lists. If VARIABLE is the special keyword `inherits-from:', VALUE must be a symbol name setting defined in `pr-setting-database' from which the current setting inherits the context. Take care with circular inheritance. Examples: '(ps-landscape-mode . nil) '(ps-spool-duplex . t) '(pr-gs-device . (my-gs-device t)) This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update PostScript printer menu. Examples: * On GNU or Unix system: '((lps_06b "lpr" nil "-P" "lps_06b") (lps_07c "lpr" nil nil "lps_07c") (lps_08c nil nil nil "lps_08c") ) * On Windows system: '((lps_06a "print" nil "/D:" "\\\\printers\\lps_06a") (lps_06b "print" nil nil "\\\\printers\\lps_06b") (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c") (lps_08c nil nil nil "\\\\printers\\lps_08c") (b/w1 "gsprint" ("-all" "-twoup") "-printer " "b/w-pr-name") (b/w2 "gsprint" ("-all" "-twoup") nil "-printer \\\\printers\\lps_06a") (LPT1 "" nil "" "LPT1:") (PRN "" nil "" "PRN") (standard "redpr.exe" nil "" "") ) gsprint: You can use gsprint instead of ghostscript to print monochrome PostScript files in Windows. The gsprint utility documentation says that it is more efficient than ghostscript to print monochrome PostScript. To print non-monochrome PostScript file, the efficiency of ghostscript is similar to gsprint. Also the gsprint utility comes together with gsview distribution. As an example of gsprint declaration: (setq pr-ps-printer-alist '((A "gsprint" ("-all" "-twoup") "-printer " "lps_015") (B "gsprint" ("-all" "-twoup") nil "-printer lps_015") ;; some other printer declaration )) The example above declares that printer A prints all pages (-all) and two pages per sheet (-twoup). The printer B declaration does the same as the printer A declaration, the only difference is the printer name selection. There are other command line options like: -mono Render in monochrome as 1bit/pixel (only black and white). -grey Render in greyscale as 8bits/pixel. -color Render in color as 24bits/pixel. The default is `-mono'. So, printer A and B in the example above are using implicitly the `-mono' option. Note that in `-mono' no gray tone or color is printed, this includes the zebra stripes, that is, in `-mono' the zebra stripes are not printed. Useful links: * GSPRINT - Ghostscript print to Windows printer `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm' * Introduction to Ghostscript `http://www.cs.wisc.edu/~ghost/doc/intro.htm' * How to use Ghostscript `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm' * Information about the print command (print.exe) `http://www.computerhope.com/printhlp.htm' * RedMon - Redirection Port Monitor (redpr.exe) `http://www.cs.wisc.edu/~ghost/redmon/index.htm' * Redirection Port Monitor (redpr.exe on-line help) `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm' * UNIX man pages: lpr (or type `man lpr') `http://bama.ua.edu/cgi-bin/man-cgi?lpr' `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr' * UNIX man pages: lp (or type `man lp') `http://bama.ua.edu/cgi-bin/man-cgi?lp' `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp' * GNU utilities for Win32 (cp.exe) `http://unxutils.sourceforge.net/' (custom-declare-variable 'pr-ps-printer-alist '(list (list 'default lpr-command nil (cond (ps-windows-system nil) (ps-lp-system "-d") (t "-P")) (or (getenv "PRINTER") (getenv "LPDEST") ps-printer-name))) '(#$ . 18647) :type '(repeat (list :tag "PostScript Printer" (symbol :tag "Printer Symbol Name") (string :tag "Printer Command") (repeat :tag "Printer Switches" (sexp :tag "Switch" :value #1="")) (choice :menu-tag "Printer Name Switch" :tag "Printer Name Switch" (const :tag "None" nil) string) (choice :menu-tag "Printer Name" :tag "Printer Name" (const :tag "None" nil) string) (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) :set 'pr-alist-custom-set :group 'printing) #@107 Specify a directory for temporary files during printing. See also `pr-ps-temp-file' and `pr-file-modes'. (custom-declare-variable 'pr-temp-dir '(pr-dosify-file-name (if (boundp 'temporary-file-directory) (symbol-value 'temporary-file-directory) (file-name-as-directory (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") (cond (ps-windows-system "c:/temp") (t "/tmp")))))) '(#$ . 26916) :type '(directory :tag "Temporary Directory") :group 'printing) #@93 Specify PostScript temporary file name prefix. See also `pr-temp-dir' and `pr-file-modes'. (custom-declare-variable 'pr-ps-temp-file '"prspool-" '(#$ . 27375) :type '(file :tag "PostScript Temporary File Name") :group 'printing) #@162 Specify the file permission bits for newly created files. It should be an integer; only the low 9 bits are used. See also `pr-temp-dir' and `pr-ps-temp-file'. (custom-declare-variable 'pr-file-modes '384 '(#$ . 27612) :type '(integer :tag "File Permission Bits") :group 'printing) #@778 Specify path and name of the gsview/gv utility. See also `pr-path-alist'. Useful links: * GNU gv manual `http://www.gnu.org/software/gv/manual/gv.html' * GSview Help `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm' * GSview Help - Common Problems `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm#Common_Problems' * GSview Readme (compilation & installation) `http://www.cs.wisc.edu/~ghost/gsview/Readme.htm' * GSview (main site) `http://www.cs.wisc.edu/~ghost/gsview/index.htm' * Ghostscript, Ghostview and GSview `http://www.cs.wisc.edu/~ghost/' * Ghostview `http://www.cs.wisc.edu/~ghost/gv/index.htm' * gv 3.5, June 1997 `http://www.cs.wisc.edu/~ghost/gv/gv_doc/gv.html' * MacGSView (MacOS) `http://www.cs.wisc.edu/~ghost/macos/index.htm' (custom-declare-variable 'pr-gv-command '(if ps-windows-system "gsview32.exe" "gv") '(#$ . 27902) :type '(string :tag "Ghostview Utility") :group 'printing) #@396 Specify path and name of the ghostscript utility. See also `pr-path-alist'. Useful links: * Ghostscript, Ghostview and GSview `http://www.cs.wisc.edu/~ghost/' * Introduction to Ghostscript `http://www.cs.wisc.edu/~ghost/doc/intro.htm' * How to use Ghostscript `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm' * Printer compatibility `http://www.cs.wisc.edu/~ghost/doc/printer.htm' (custom-declare-variable 'pr-gs-command '(if ps-windows-system "gswin32.exe" "gs") '(#$ . 28843) :type '(string :tag "Ghostscript Utility") :group 'printing) #@1021 Specify ghostscript switches. See the documentation on GS for more info. It's a list of strings, where each string is one or more ghostscript switches. A note on the gs switches: -q quiet -dNOPAUSE don't wait for user intervention -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts the directories needed for gs -c quit it's added at the end to terminate gs To see ghostscript documentation for more information: * On GNU or Unix system: - for full documentation, type: man gs - for brief documentation, type: gs -h * On Windows system: - for full documentation, see in a browser the file c:/gstools/gs5.50/index.html, that is, the file index.html which is located in the same directory as gswin32.exe. - for brief documentation, type: gswin32.exe -h Useful links: * Introduction to Ghostscript `http://www.cs.wisc.edu/~ghost/doc/intro.htm' * How to use Ghostscript `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm' * Printer compatibility `http://www.cs.wisc.edu/~ghost/doc/printer.htm' (custom-declare-variable 'pr-gs-switches '(if ps-windows-system '("-q -dNOPAUSE -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts") '("-q -dNOPAUSE -I/usr/share/ghostscript/5.10")) '(#$ . 29404) :type '(repeat (string :tag "Ghostscript Switch")) :group 'printing) #@217 Specify the ghostscript device switch value (-sDEVICE=). A note on the gs switches: -sDEVICE=djet500 the printer - works with HP DeskJet 540 See `pr-gs-switches' for documentation. See also `pr-ps-printer-alist'. (custom-declare-variable 'pr-gs-device '(if ps-windows-system "mswinpr2" "uniprint") '(#$ . 30679) :type '(string :tag "Ghostscript Device") :group 'printing) #@178 Specify ghostscript resolution switch value (-r). A note on the gs switches: -r300 resolution 300x300 See `pr-gs-switches' for documentation. See also `pr-ps-printer-alist'. (custom-declare-variable 'pr-gs-resolution '300 '(#$ . 31061) :type '(integer :tag "Ghostscript Resolution") :group 'printing) #@256 Non-nil means print using ghostscript. This is useful if you don't have a PostScript printer, so you could use the ghostscript to print a PostScript file. In GNU or Unix system, if ghostscript is set as a PostScript filter, this variable should be nil. (custom-declare-variable 'pr-print-using-ghostscript 'nil '(#$ . 31372) :type 'boolean :group 'printing) #@43 Non-nil means print with face attributes. (custom-declare-variable 'pr-faces-p 'nil '(#$ . 31738) :type 'boolean :group 'printing) #@43 Non-nil means spool printing in a buffer. (custom-declare-variable 'pr-spool-p 'nil '(#$ . 31875) :type 'boolean :group 'printing) #@63 Non-nil means print PostScript file in landscape orientation. (custom-declare-variable 'pr-file-landscape 'nil '(#$ . 32012) :type 'boolean :group 'printing) #@53 Non-nil means print PostScript file in duplex mode. (custom-declare-variable 'pr-file-duplex 'nil '(#$ . 32176) :type 'boolean :group 'printing) #@215 Non-nil means print PostScript file in tumble mode. If tumble is off, produces a printing suitable for binding on the left or right. If tumble is on, produces a printing suitable for binding at the top or bottom. (custom-declare-variable 'pr-file-tumble 'nil '(#$ . 32328) :type 'boolean :group 'printing) #@300 Non-nil means region is automagically detected. Note that this will only work if you're using transient mark mode. When this variable is non-nil, the `*-buffer*' commands will behave like `*-region*' commands, that is, `*-buffer*' commands will print only the region marked instead of all buffer. (custom-declare-variable 'pr-auto-region 't '(#$ . 32642) :type 'boolean :group 'printing) #@338 Non-nil means major-mode specific printing is prefered over normal printing. That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands will behave like `*-mode*' commands; otherwise, `*-buffer*' commands will print the current buffer and `*-region*' commands will print the current region. (custom-declare-variable 'pr-auto-mode 't '(#$ . 33039) :type 'boolean :group 'printing) #@3314 Specify an alist for a major-mode and printing functions. To customize a major mode printing, just declare the customization in `pr-mode-alist' and invoke some of `*-mode*' commands. An example for major mode usage is when you're using gnus (or mh, or rmail, etc.) and you're in the *Summary* buffer, if you forget to switch to the *Article* buffer before printing, you'll get a nicely formatted list of article subjects shows up at the printer. With major mode printing you don't need to switch from gnus *Summary* buffer first. The elements have the following form: (MAJOR-MODE LPR-PRINT PS-PRINT HEADER-LINES LEFT-HEADER RIGHT-HEADER KILL-LOCAL-VARIABLE DEFAULT...) Where: MAJOR-MODE It's the major mode symbol. LPR-PRINT It's a symbol function for text printing. It's invoked with one argument: (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...). Usually LPR-PRINT function prepares the environment or buffer and then call the function `pr-mode-lpr' which it's used to process the buffer and send it to text printer. The `pr-mode-lpr' definition is: (pr-mode-lpr HEADER-LIST &optional FROM TO) Where HEADER-LIST is like the argument passed to LPR-PRINT. FROM and TO are the beginning and end markers, respectively, for a region. If FROM is nil, it's used (point-min); if TO is nil, it's used (point-max). PS-PRINT It's a symbol function for PostScript printing. It's invoked with 3 arguments: n-up printing, file name and the list: (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...). Usually PS-PRINT function prepares the environment or buffer and then call the function `pr-mode-print' which it's used to process the buffer and send it to PostScript printer. The `pr-mode-print' definition is: (pr-mode-print N-UP FILENAME HEADER-LIST &optional FROM TO) Where N-UP, FILENAME and HEADER-LIST are like the arguments passed to PS-PRINT. FROM and TO are the beginning and end markers, respectively, for a region. If TO is nil, it's used (point-max). HEADER-LINES It's the number of header lines; if is nil, it uses `ps-header-lines' value. LEFT-HEADER It's the left header part, it's a list of string, variable symbol or function symbol (with no argument); if is nil, it uses `ps-left-header' value. RIGHT-HEADER It's the right header part, it's a list of string, variable symbol or function symbol (with no argument); if is nil, it uses `ps-right-header' value. KILL-LOCAL-VARIABLE Non-nil means to kill all buffer local variable declared in DEFAULT (see below). DEFAULT It's a way to set default values when this entry is selected. It's a cons like: (VARIABLE-SYM . VALUE) Which associates VARIABLE-SYM with VALUE. When this entry is selected, it's executed the following command: (set (make-local-variable VARIABLE-SYM) (eval VALUE)) Note that VALUE can be any valid lisp expression. So, don't forget to quote symbols and constant lists. If VARIABLE is the special keyword `inherits-from:', VALUE must be a symbol name setting defined in `pr-setting-database' from which the current setting inherits the context. Take care with circular inheritance. Examples: '(ps-landscape-mode . nil) '(ps-spool-duplex . t) '(pr-gs-device . (my-gs-device t)) (custom-declare-variable 'pr-mode-alist ''((mh-folder-mode pr-mh-lpr-1 pr-mh-print-1 2 (ps-article-author ps-article-subject) ("/pagenumberstring load" pr-article-date) nil) (mh-letter-mode pr-mh-lpr-2 pr-mh-print-2 2 (ps-article-author ps-article-subject) ("/pagenumberstring load" pr-article-date) nil) (rmail-summary-mode pr-rmail-lpr pr-rmail-print 3 (ps-article-subject ps-article-author buffer-name) nil nil) (rmail-mode pr-rmail-lpr pr-rmail-print 3 (ps-article-subject ps-article-author buffer-name) nil nil) (gnus-summary-mode pr-gnus-lpr pr-gnus-print 3 (ps-article-subject ps-article-author gnus-newsgroup-name) nil nil) (gnus-article-mode pr-gnus-lpr pr-gnus-print 3 (ps-article-subject ps-article-author gnus-newsgroup-name) nil nil) (Info-mode pr-mode-lpr pr-mode-print 2 (ps-info-node ps-info-file) nil nil) (vm-mode pr-vm-lpr pr-vm-print 3 (ps-article-subject ps-article-author buffer-name) nil nil)) '(#$ . 33473) :type '(repeat (list :tag #1="" (symbol :tag "Major Mode") (function :tag "Text Printing Function") (function :tag "PS Printing Function") (choice :menu-tag "Number of Header Lines" :tag "Number of Header Lines" (integer :tag "Number") (const :tag "Default Number" nil)) (repeat :tag "Left Header List" (choice :menu-tag "Left Header" :tag "Left Header" string symbol)) (repeat :tag "Right Header List" (choice :menu-tag "Right Header" :tag "Right Header" string symbol)) (boolean :tag "Kill Local Variable At End") (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) :group 'printing) #@456 Specify PostScript utility symbol. This utility symbol should be defined on `pr-ps-utility-alist' (see it for documentation). This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update PostScript utility menu. NOTE: Don't forget to download and install the utilities declared on `pr-ps-utility-alist'. (custom-declare-variable 'pr-ps-utility ''mpage '(#$ . 39134) :type '(symbol :tag "PS File Utility") :set 'pr-ps-utility-custom-set :group 'printing) #@4194 Specify an alist for PostScript utility processing (PS utility database). The alist element has the form: (SYMBOL UTILITY MUST-SWITCHES PAPERSIZE N-UP LANDSCAPE DUPLEX TUMBLE OUTPUT SWITCHES DEFAULT...) Where: SYMBOL It's a symbol to identify a PostScript utility. It's for `pr-ps-utility' variable setting and for menu selection. Examples: 'mpage 'psnup UTILITY Name of utility for processing a PostScript file. See also `pr-path-alist'. Examples: . for GNU or Unix system: "mpage" "psnup -q" . for Windows system: "c:/psutils/psnup -q" MUST-SWITCHES List of sexp's to pass as options to the PostScript utility program. These options are necessary to process the utility program and must be placed before any other switches. Example: . for psnup: '("-q") PAPERSIZE It's a format string to specify paper size switch. Example: . for mpage "-b%s" N-UP It's a format string to specify n-up switch. Example: . for psnup "-%d" LANDSCAPE It's a string to specify landscape switch. If the utility doesn't have landscape switch, set to nil. Example: . for psnup "-l" DUPLEX It's a string to specify duplex switch. If the utility doesn't have duplex switch, set to nil. Example: . for psnup nil TUMBLE It's a string to specify tumble switch. If the utility doesn't have tumble switch, set to nil. Example: . for psnup nil OUTPUT It's a string to specify how to generate an output file. Some utilities accept an output file option, but some others need output redirection or some other way to specify an output file. Example: . for psnup " " ; psnup ... input output . for mpage ">" ; mpage ... input > output SWITCHES List of sexp's to pass as extra options to the PostScript utility program. Example: . for psnup '("-q") nil DEFAULT It's a way to set default values when this entry is selected. It's a cons like: (VARIABLE . VALUE) Which associates VARIABLE with VALUE. When this entry is selected, it's executed the following command: (set VARIABLE (eval VALUE)) Note that VALUE can be any valid lisp expression. So, don't forget to quote symbols and constant lists. If VARIABLE is the special keyword `inherits-from:', VALUE must be a symbol name setting defined in `pr-setting-database' from which the current setting inherits the context. Take care with circular inheritance. Examples: '(pr-file-landscape . nil) '(pr-file-duplex . t) '(pr-gs-device . (my-gs-device t)) This variable should be modified by customization engine. If this variable is modified by other means (for example, a lisp function), use `pr-update-menus' function (see it for documentation) to update PostScript utility menu. NOTE: Don't forget to download and install the utilities declared on `pr-ps-utility-alist'. Examples: * On GNU or Unix system: '((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil) (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil (pr-file-duplex . nil) (pr-file-tumble . nil)) ) * On Windows system: '((psnup "c:/psutils/psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil (pr-file-duplex . nil) (pr-file-tumble . nil)) ) Useful links: * mpage download (GNU or Unix) `http://www.mesa.nl/pub/mpage/' * mpage documentation (GNU or Unix - or type `man mpage') `http://www.cs.umd.edu/faq/guides/manual_unix/node48.html' `http://www.rt.com/man/mpage.1.html' * psnup (Windows, GNU or Unix) `http://www.knackered.org/angus/psutils/' `http://gershwin.ens.fr/vdaniel/Doc-Locale/Outils-Gnu-Linux/PsUtils/' * psnup (PsUtils for Windows) `http://gnuwin32.sourceforge.net/packages/psutils.htm' * psnup documentation (GNU or Unix - or type `man psnup') `http://linux.about.com/library/cmd/blcmdl1_psnup.htm' `http://amath.colorado.edu/computing/software/man/psnup.html' * GNU Enscript (Windows, GNU or Unix) `http://people.ssh.com/mtr/genscript/' * GNU Enscript documentation (Windows, GNU or Unix) `http://people.ssh.com/mtr/genscript/enscript.man.html' (on GNU or Unix, type `man enscript') (custom-declare-variable 'pr-ps-utility-alist ''((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil) (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil (inherits-from: . no-duplex))) '(#$ . 39747) :type '(repeat (list :tag "PS File Utility" (symbol :tag "Utility Symbol") (string :tag "Utility Name") (repeat :tag "Must Utility Switches" (sexp :tag "Switch" :value #1="")) (choice :menu-tag "Paper Size" :tag "Paper Size" (const :tag "No Paper Size" nil) (string :tag "Paper Size Format")) (choice :menu-tag "N-Up" :tag "N-Up" (const :tag "No N-Up" nil) (string :tag "N-Up Format")) (choice :menu-tag "Landscape" :tag "Landscape" (const :tag "No Landscape" nil) (string :tag "Landscape Switch")) (choice :menu-tag "Duplex" :tag "Duplex" (const :tag "No Duplex" nil) (string :tag "Duplex Switch")) (choice :menu-tag "Tumble" :tag "Tumble" (const :tag "No Tumble" nil) (string :tag "Tumble Switch")) (string :tag "Output Separator") (repeat :tag "Utility Switches" (sexp :tag "Switch" :value #1#)) (repeat :tag "Default Value List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (const :tag "inherits-from:" inherits-from:) (variable :tag "Other")) (sexp :tag "Value"))))) :set 'pr-alist-custom-set :group 'printing) #@120 Non-nil means menu is locked while selecting toggle options. See also `pr-menu-char-height' and `pr-menu-char-width'. (custom-declare-variable 'pr-menu-lock 't '(#$ . 45437) :type 'boolean :group 'printing) #@228 Specify menu char height in pixels. This variable is used to guess which vertical position should be locked the menu, so don't forget to adjust it if menu position is not ok. See also `pr-menu-lock' and `pr-menu-char-width'. (custom-declare-variable 'pr-menu-char-height '(pr-menu-char-height) '(#$ . 45652) :type 'integer :group 'printing) #@230 Specify menu char width in pixels. This variable is used to guess which horizontal position should be locked the menu, so don't forget to adjust it if menu position is not ok. See also `pr-menu-lock' and `pr-menu-char-height'. (custom-declare-variable 'pr-menu-char-width '(pr-menu-char-width) '(#$ . 46002) :type 'integer :group 'printing) #@2286 Specify an alist for settings in general. The elements have the following form: (SYMBOL INHERITS LOCAL KILL-LOCAL SETTING...) Where: SYMBOL It's a symbol to identify the setting group. INHERITS Specify the inheritance for SYMBOL group. It's a symbol name setting from which the current setting inherits the context. If INHERITS is nil, means that there is no inheritance. This is a simple inheritance mechanism. Let's see an example to illustrate the inheritance mechanism: (setq pr-setting-database '((no-duplex ; setting symbol name nil ; inherits nil nil ; local kill-local (pr-file-duplex . nil) ; settings (pr-file-tumble . nil) ) (no-duplex-and-landscape ; setting symbol name no-duplex ; inherits nil nil ; local kill-local (pr-file-landscape . nil) ; settings ))) The example above has two setting groups: no-duplex and no-duplex-and-landscape. When setting no-duplex is activated through `inherits-from:' (see `pr-ps-utility', `pr-mode-alist' and `pr-ps-printer-alist'), the variables pr-file-duplex and pr-file-tumble are both set to nil. Now when setting no-duplex-and-landscape is activated through `inherits-from:', the variable pr-file-landscape is set to nil and also the settings for no-duplex are done, because no-duplex-and-landscape inherits settings from no-duplex. Take care with circular inheritance. It's an error if circular inheritance happens. LOCAL Non-nil means that all settings for SYMBOL group will be declared local buffer. KILL-LOCAL Non-nil means that all settings for SYMBOL group will be killed at end. It has effect only when LOCAL is non-nil. SETTING It's a cons like: (VARIABLE . VALUE) Which associates VARIABLE with VALUE. When this entry is selected, it's executed the following command: * If LOCAL is non-nil: (set (make-local-variable VARIABLE) (eval VALUE)) * If LOCAL is nil: (set VARIABLE (eval VALUE)) Note that VALUE can be any valid lisp expression. So, don't forget to quote symbols and constant lists. This setting is ignored if VARIABLE is equal to keyword `inherits-from:'. Examples: '(ps-landscape-mode . nil) '(ps-spool-duplex . t) '(pr-gs-device . (my-gs-device t)) (custom-declare-variable 'pr-setting-database ''((no-duplex nil nil nil (pr-file-duplex) (pr-file-tumble))) '(#$ . 46353) :type '(repeat (list :tag #1="" (symbol :tag "Setting Name") (choice :menu-tag "Inheritance" :tag "Inheritance" (const :tag "No Inheritance" nil) (symbol :tag "Inherits From")) (boolean :tag "Local Buffer Setting") (boolean :tag "Kill Local Variable At End") (repeat :tag "Setting List" :inline t (cons :tag #1# (choice :menu-tag "Variable" :tag "Variable" (const :tag "Landscape" ps-landscape-mode) (const :tag "Print Header" ps-print-header) (const :tag "Print Header Frame" ps-print-header-frame) (const :tag "Line Number" ps-line-number) (const :tag "Zebra Stripes" ps-zebra-stripes) (const :tag "Duplex" ps-spool-duplex) (const :tag "Tumble" ps-spool-tumble) (const :tag "Upside-Down" ps-print-upside-down) (const :tag "PS File Landscape" pr-file-landscape) (const :tag "PS File Duplex" pr-file-duplex) (const :tag "PS File Tumble" pr-file-tumble) (const :tag "Auto Region" pr-auto-region) (const :tag "Auto Mode" pr-auto-mode) (const :tag "Ghostscript Device" pr-gs-device) (const :tag "Ghostscript Resolution" pr-gs-resolution) (variable :tag "Other")) (sexp :tag "Value"))))) :group 'printing) #@1603 Specify a list of Printing menu visible entries. Valid values with the corresponding menu parts are: +------------------------------+ | Printing Interface | +------------------------------+ `postscript' | PostScript Preview >| | PostScript Print >| | PostScript Printer: name >| +------------------------------+ `text' | Printify >| | Print >| | Text Printer: name >| +------------------------------+ `postscript-options' |[ ] Landscape | |[ ] Print Header | |[ ] Print Header Frame | |[ ] Line Number | |[ ] Zebra Stripes | |[ ] Duplex | |[ ] Tumble | |[ ] Upside-Down | | Print All Pages >| +------------------------------+ `postscript-process' |[ ] Spool Buffer | |[ ] Print with faces | |[ ] Print via Ghostscript | +------------------------------+ `printing' |[ ] Auto Region | |[ ] Auto Mode | |[ ] Menu Lock | +------------------------------+ `help' | Customize >| | Show Settings >| | Help | +------------------------------+ Any other value is ignored. (custom-declare-variable 'pr-visible-entry-list ''(postscript text postscript-options postscript-process printing help) '(#$ . 49870) :type '(repeat :tag "Menu Visible Part" (choice :menu-tag "Menu Part" :tag "Menu Part" (const postscript) (const text) (const postscript-options) (const postscript-process) (const printing) (const help))) :group 'printing) #@197 Non-nil means delete temporary files. Set `pr-delete-temp-file' to nil, if the following message (or a similar) happens when printing: Error: could not open "c:\temp\prspool.ps" for reading. (custom-declare-variable 'pr-delete-temp-file 't '(#$ . 51836) :type 'boolean :group 'printing) #@391 Non-nil means list directory when processing a directory. That is, any subdirectories (and the superdirectory) of the directory (given as argument of functions below) are also printed (as dired-mode listings). It's used by `pr-ps-directory-preview', `pr-ps-directory-using-ghostscript', `pr-ps-directory-print', `pr-ps-directory-ps-print', `pr-printify-directory' and `pr-txt-directory'. (custom-declare-variable 'pr-list-directory 'nil '(#$ . 52135) :type 'boolean :group 'printing) #@94 Specify the name of the buffer interface for printing package. It's used by `pr-interface'. (custom-declare-variable 'pr-buffer-name '"*Printing Interface*" '(#$ . 52627) :type 'string :group 'printing) #@193 Specify a regexp list for buffer names to be ignored in interface buffer. NOTE: Case is important for matching, that is, `case-fold-search' is always nil. It's used by `pr-interface'. (custom-declare-variable 'pr-buffer-name-ignore '(list (regexp-quote pr-buffer-name) "^ .*$") '(#$ . 52838) :type '(repeat (regexp :tag "Buffer Name Regexp")) :group 'printing) #@101 Non-nil means to be verbose when editing a field in interface buffer. It's used by `pr-interface'. (custom-declare-variable 'pr-buffer-verbose 't '(#$ . 53214) :type 'boolean :group 'printing) #@71 Name of program for printing a text file. See `pr-txt-printer-alist'. (defvar pr-txt-command nil (#$ . 53414)) #@98 List of sexp's to pass as extra options to the text printer program. See `pr-txt-printer-alist'. (defvar pr-txt-switches nil (#$ . 53531)) #@56 Specify text printer name. See `pr-txt-printer-alist'. (defvar pr-txt-printer nil (#$ . 53676)) #@76 Name of program for printing a PostScript file. See `pr-ps-printer-alist'. (defvar pr-ps-command nil (#$ . 53778)) #@103 List of sexp's to pass as extra options to the PostScript printer program. See `pr-ps-printer-alist'. (defvar pr-ps-switches nil (#$ . 53900)) #@68 Specify PostScript printer name switch. See `pr-ps-printer-alist'. (defvar pr-ps-printer-switch nil (#$ . 54049)) #@61 Specify PostScript printer name. See `pr-ps-printer-alist'. (defvar pr-ps-printer nil (#$ . 54169)) #@47 Set temporally file modes to `pr-file-modes'. (defalias 'pr-save-file-modes '(macro . #[(&rest body) "\301\302\303\304\305\"BBB\207" [body let ((pr--default-file-modes (default-file-modes))) (set-default-file-modes pr-file-modes) append ((set-default-file-modes pr--default-file-modes))] 6 (#$ . 54275)])) (defalias 'pr-visible-p #[(key) " >\207" [key pr-visible-entry-list] 2]) (put 'pr-visible-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'pr-mode-alist-p #[nil " \236A\207" [major-mode pr-mode-alist] 2]) (put 'pr-mode-alist-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'pr-auto-mode-p #[nil "\205 \n\236A\207" [pr-auto-mode major-mode pr-mode-alist] 2]) (put 'pr-auto-mode-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'pr-using-ghostscript-p #[nil "\205 ?\207" [pr-print-using-ghostscript pr-spool-p] 1]) (byte-code "\303\304\305\306#\210\307\310\311\312!\203 \312\202 \313\"\210\314B\315\316\317\320\321\322\323 \324!BB\"\325\326\327\330\331 \332!\333\n\334BB\335\n\336BB\337\n\340BB\341\n\342BB\343\320\321\344\345\346\347 \350!BBBB\"\325\320\321\351\352\316\353 \354!BBBB\"\325\355\356\357\360\325\320\321\361\362\363\364\365\366\331 \367!\370\"BBBBBB\"\320\321\371\372\363\364\365\373\331 \374!\375\"BBBBBB\"\320\321\376\377\363\364\365\201@ \331 \201A !\201B \"BBBBBB\"\257 \320\321\201C \201D \316\201E \346\201F \201G !BBBBBB\"\257\"BBB\201H \327\201I \331 \201J !\201K \201L \337\n\201M BB\341\n\201N BB\343\320\321\344\201O \346\201P \201Q !BBBB\"\325\320\321\351\352\316\353 \354!BBBB\"\325\201R \201S \201T \201U \325\320\321\361\362\363\364\365\366\331 \367!\201V \"BBBBBB\"\320\321\371\372\363\364\365\373\331 \374!\201W \"BBBBBB\"\320\321\376\377\363\364\365\201@ \331 \201A !\201X \"BBBBBB\"\257 \320\321\201C \201Y \316\201E \346\201Z \201G !BBBBBB\"\257\"BBB\320\321\201[ \352\316\201\\ \327\201] \201^ !BBBBBB\"\325\201_ \327\201` \331 \201a !\201b \"BBB\201c \327\201d \331 \201e !\201f \"BBB\320\321\201g \352\316\201h \327\201i \201j !BBBBBB\"\325\201k \201l \201m \201n \201o \201p \201q \201r \201s \327\201t \331 \201u !\201v \"BBB\325\320\321\201w \201x \363\364\365\201E \327\201y \201z !BBBBBBBB\"\320\321\201{ \201| \363\364\365\201} \327\201~ \201 !BBBBBBBB\"\320\321\201\200 \201\201 \363\364\365\201\202 \327\201\203 \201\204 !BBBBBBBB\"*\201\205 BBBBBBBBBBBBBBBBBBBBBBB!\207" [current-load-list pr-:help pr-:active put pr-using-ghostscript-p byte-optimizer byte-compile-inline-expand defalias pr-get-symbol fboundp easy-menu-intern #[(s) ";\203 \301!\207\207" [s intern] 2] pr-menu-spec (lambda (#1=#:defconst-tmp-var) (defconst pr-menu-spec #1#)) :active #[(text) "\301D\207" [text :help] 2] apply vector "Printing Interface" pr-interface "Use buffer interface instead of menu interface" "--" "PostScript Preview" :included (pr-visible-p 'postscript) append "Preview PostScript instead of sending to printer" "Directory" ((not pr-spool-p) ["1-up" (pr-ps-directory-preview 1 nil nil t) t] ["2-up" (pr-ps-directory-preview 2 nil nil t) t] ["4-up" (pr-ps-directory-preview 4 nil nil t) t] ["Other..." (pr-ps-directory-preview nil nil nil t) :keys "\\[pr-ps-buffer-preview]"]) "Buffer" ((not pr-spool-p) ["1-up" (pr-ps-buffer-preview 1 t) t] ["2-up" (pr-ps-buffer-preview 2 t) t] ["4-up" (pr-ps-buffer-preview 4 t) t] ["Other..." (pr-ps-buffer-preview nil t) :keys "\\[pr-ps-buffer-preview]"]) "Region" ((and (not pr-spool-p) (ps-mark-active-p)) ["1-up" (pr-ps-region-preview 1 t) t] ["2-up" (pr-ps-region-preview 2 t) t] ["4-up" (pr-ps-region-preview 4 t) t] ["Other..." (pr-ps-region-preview nil t) :keys "\\[pr-ps-region-preview]"]) "Mode" ((and (not pr-spool-p) (pr-mode-alist-p)) ["1-up" (pr-ps-mode-preview 1 t) t] ["2-up" (pr-ps-mode-preview 2 t) t] ["4-up" (pr-ps-mode-preview 4 t) t] ["Other..." (pr-ps-mode-preview nil t) :keys "\\[pr-ps-mode-preview]"]) "File" "No Preprocessing..." (call-interactively 'pr-ps-file-preview) :keys "\\[pr-ps-file-preview]" "Preview PostScript file" "PostScript Utility" pr-update-menus pr-ps-utility-alist "Select PostScript utility" ["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist] ["2-up..." (pr-ps-file-up-preview 2 t t) pr-ps-utility-alist] ["4-up..." (pr-ps-file-up-preview 4 t t) pr-ps-utility-alist] ["Other..." (pr-ps-file-up-preview nil t t) :keys "\\[pr-ps-file-up-preview]" :active pr-ps-utility-alist] "Landscape" pr-toggle-file-landscape-menu :style toggle :selected pr-file-landscape "Toggle landscape for PostScript file" (:active pr-ps-utility-alist) "Duplex" pr-toggle-file-duplex-menu pr-file-duplex "Toggle duplex for PostScript file" (:active pr-ps-utility-alist) "Tumble" pr-toggle-file-tumble-menu pr-file-tumble "Toggle tumble for PostScript file" (:active (and pr-file-duplex pr-ps-utility-alist)) "Despool..." (call-interactively 'pr-despool-preview) pr-spool-p "\\[pr-despool-preview]" "Despool PostScript buffer to printer or file (C-u)" "PostScript Print" (pr-visible-p 'postscript) "Send PostScript to printer or file (C-u)" ("Directory" ["1-up" (pr-ps-directory-ps-print 1 nil nil t) t] ["2-up" (pr-ps-directory-ps-print 2 nil nil t) t] ["4-up" (pr-ps-directory-ps-print 4 nil nil t) t] ["Other..." (pr-ps-directory-ps-print nil nil nil t) :keys "\\[pr-ps-buffer-ps-print]"]) ("Buffer" ["1-up" (pr-ps-buffer-ps-print 1 t) t] ["2-up" (pr-ps-buffer-ps-print 2 t) t] ["4-up" (pr-ps-buffer-ps-print 4 t) t] ["Other..." (pr-ps-buffer-ps-print nil t) :keys "\\[pr-ps-buffer-ps-print]"]) ((ps-mark-active-p) ["1-up" (pr-ps-region-ps-print 1 t) t] ["2-up" (pr-ps-region-ps-print 2 t) t] ["4-up" (pr-ps-region-ps-print 4 t) t] ["Other..." (pr-ps-region-ps-print nil t) :keys "\\[pr-ps-region-ps-print]"]) ((pr-mode-alist-p) ["1-up" (pr-ps-mode-ps-print 1 t) t] ["2-up" (pr-ps-mode-ps-print 2 t) t] ["4-up" (pr-ps-mode-ps-print 4 t) t] ["Other..." (pr-ps-mode-ps-print nil t) :keys "\\[pr-ps-mode-ps-print]"]) (call-interactively 'pr-ps-file-ps-print) "\\[pr-ps-file-ps-print]" "Send PostScript file to printer" ["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist] ["2-up..." (pr-ps-file-up-ps-print 2 t t) pr-ps-utility-alist] ["4-up..." (pr-ps-file-up-ps-print 4 t t) pr-ps-utility-alist] ["Other..." (pr-ps-file-up-ps-print nil t t) :keys "\\[pr-ps-file-up-ps-print]" :active pr-ps-utility-alist] (:active pr-ps-utility-alist) (:active pr-ps-utility-alist) (:active (and pr-file-duplex pr-ps-utility-alist)) (call-interactively 'pr-despool-ps-print) "\\[pr-despool-ps-print]" "PostScript Printers" pr-ps-printer-alist (pr-visible-p 'postscript) "Select PostScript printer" "Printify" (pr-visible-p 'text) "Replace non-printing chars with printable representations." (["Directory" pr-printify-directory t] ["Buffer" pr-printify-buffer t] ["Region" pr-printify-region (ps-mark-active-p)]) "Print" (pr-visible-p 'text) "Send text to printer" (["Directory" pr-txt-directory t] ["Buffer" pr-txt-buffer t] ["Region" pr-txt-region (ps-mark-active-p)] ["Mode" pr-txt-mode (pr-mode-alist-p)]) "Text Printers" pr-txt-printer-alist (pr-visible-p 'text) "Select text printer" ["Landscape" pr-toggle-landscape-menu :style toggle :selected ps-landscape-mode :included (pr-visible-p 'postscript-options)] ["Print Header" pr-toggle-header-menu :style toggle :selected ps-print-header :included (pr-visible-p 'postscript-options)] ["Print Header Frame" pr-toggle-header-frame-menu :style toggle :selected ps-print-header-frame :active ps-print-header :included (pr-visible-p 'postscript-options)] ["Line Number" pr-toggle-line-menu :style toggle :selected ps-line-number :included (pr-visible-p 'postscript-options)] ["Zebra Stripes" pr-toggle-zebra-menu :style toggle :selected ps-zebra-stripes :included (pr-visible-p 'postscript-options)] ["Duplex" pr-toggle-duplex-menu :style toggle :selected ps-spool-duplex :included (pr-visible-p 'postscript-options)] ["Tumble" pr-toggle-tumble-menu :style toggle :selected ps-spool-tumble :active ps-spool-duplex :included (pr-visible-p 'postscript-options)] ["Upside-Down" pr-toggle-upside-down-menu :style toggle :selected ps-print-upside-down :included (pr-visible-p 'postscript-options)] "Print All Pages" (pr-visible-p 'postscript-options) "Select odd/even pages/sheets to print" (["All Pages" (pr-even-or-odd-pages nil) :style radio :selected (eq ps-even-or-odd-pages nil)] ["Even Pages" (pr-even-or-odd-pages 'even-page) :style radio :selected (eq ps-even-or-odd-pages 'even-page)] ["Odd Pages" (pr-even-or-odd-pages 'odd-page) :style radio :selected (eq ps-even-or-odd-pages 'odd-page)] ["Even Sheets" (pr-even-or-odd-pages 'even-sheet) :style radio :selected (eq ps-even-or-odd-pages 'even-sheet)] ["Odd Sheets" (pr-even-or-odd-pages 'odd-sheet) :style radio :selected (eq ps-even-or-odd-pages 'odd-sheet)]) "Spool Buffer" pr-toggle-spool-menu (pr-visible-p 'postscript-process) "Toggle PostScript spooling" "Print with faces" pr-toggle-faces-menu pr-faces-p (pr-visible-p 'postscript-process) "Toggle PostScript printing with faces" "Print via Ghostscript" pr-toggle-ghostscript-menu pr-print-using-ghostscript (pr-visible-p 'postscript-process) "Toggle PostScript generation using ghostscript" ("--" ["Auto Region" pr-toggle-region-menu :style toggle :selected pr-auto-region :included (pr-visible-p 'printing)] ["Auto Mode" pr-toggle-mode-menu :style toggle :selected pr-auto-mode :included (pr-visible-p 'printing)] ["Menu Lock" pr-toggle-lock-menu :style toggle :selected pr-menu-lock :included (pr-visible-p 'printing)] "--" ("Customize" :included (pr-visible-p 'help) ["printing" pr-customize t] ["ps-print" ps-print-customize t] ["lpr" lpr-customize t]) ("Show Settings" :included (pr-visible-p 'help) ["printing" pr-show-pr-setup t] ["ps-print" pr-show-ps-setup t] ["lpr" pr-show-lpr-setup t]) ["Help" pr-help :active t :included (pr-visible-p 'help)])] 36) #@236 Install `printing' menu in the menubar. On Emacs 20, it replaces the Tools/Print menu by Tools/Printing menu. On Emacs 21 and 22, it replaces the File/Print* menu entries by File/Print menu. Calls `pr-update-menus' to adjust menus. (defalias 'pr-menu-bind #[nil "\301!\210\302\303!\207" [pr-menu-spec pr-global-menubar pr-update-menus t] 2 (#$ . 64073) nil]) (byte-code "\301\302\303!\304\"\210\302\303\305D!\306\"\210\302\303\307D!\306\"\210\302\303\310D!\311\"\210\302\303\310\305E!\311\"\210)\301\207" [pr-print-key print global-set-key vector pr-ps-fast-fire meta pr-ps-mode-using-ghostscript shift control pr-txt-fast-fire] 5) #@24 Printing help message. (defconst pr-help-message (concat "printing.el version " pr-version " ps-print.el version " ps-print-version "\n\n\nMenu Layout\n-----------\n\nThe `printing' menu (Tools/Printing or File/Print) has the following layout:\n\n +-----------------------------+\nA 0 | Printing Interface |\n +-----------------------------+ +-A---------+ +-B------+\nI 1 | PostScript Preview >|-------|Directory >|-----|1-up |\n 2 | PostScript Print >|---- A |Buffer >|-- B |2-up |\n 3 | PostScript Printer: name >|---- C |Region >|-- B |4-up |\n +-----------------------------+ |Mode >|-- B |Other...|\nII 4 | Printify >|-----\\ |File >|--\\ +--------+\n 5 | Print >|---\\ | |Despool... | |\n 6 | Text Printer: name >|-\\ | | +-----------+ |\n +-----------------------------+ | | | +---------+ +------------+\nIII 7 |[ ]Landscape | | | \\-|Directory| | No Prep... | Ia\n 8 |[ ]Print Header | | | |Buffer | +------------+ Ib\n 9 |[ ]Print Header Frame | | | |Region | | name >|- C\n 10 |[ ]Line Number | | | +---------+ +------------+\n 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic\n 12 |[ ]Duplex | | \\---|Directory| | 2-up... |\n 13 |[ ]Tumble | \\--\\ |Buffer | | 4-up... |\n 14 |[ ]Upside-Down | | |Region | | Other... |\n 15 | Print All Pages >|--\\ | |Mode | +------------+\n +-----------------------------+ | | +---------+ |[ ]Landscape| Id\nIV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie\n 17 |[ ]Print with faces | | \\--|( )name A| |[ ]Tumble | If\n 18 |[ ]Print via Ghostscript | | |( )name B| +------------+\n +-----------------------------+ | |... |\nV 19 |[ ]Auto Region | | |(*)name |\n 20 |[ ]Auto Mode | | |... |\n 21 |[ ]Menu Lock | | +---------+ +--------------+\n +-----------------------------+ \\------------------|(*)All Pages |\nVI 22 | Customize >|--- D +-D------+ |( )Even Pages |\n 23 | Show Settings >|-------|printing| |( )Odd Pages |\n 24 | Help | |ps-print| |( )Even Sheets|\n +-----------------------------+ |lpr | |( )Odd Sheets |\n +--------+ +--------------+\n\nSee `pr-visible-entry-list' for hiding some parts of the menu.\n\nThe menu has the following sections:\n\nA. Interface:\n\n 0. You can use a buffer interface instead of menus. It looks like the\n customization buffer. Basically, it has the same options found in the\n menu and some extra options, all this on a buffer.\n\nI. PostScript printing:\n\n 1. You can generate a PostScript file (if you type C-u before activating\n menu) or PostScript temporary file for a directory, a buffer, a region\n or a major mode, choosing 1-up, 2-up, 4-up or any other n-up printing;\n after file generation, ghostview is activated using the file generated\n as argument. This option is disabled if spooling is on (option 16).\n Also, if you already have a PostScript file you can preview it.\n Instead of previewing each buffer, region or major mode at once, you\n can save temporarily the PostScript code generated in a buffer and\n preview it later. The option `Despool...' despools the PostScript\n spooling buffer in a temporary file and uses ghostview to preview it.\n If you type C-u before choosing this option, the PostScript code\n generated is saved in a file instead of saving in a temporary file. To\n spool the PostScript code generated you need to turn on the option 16.\n The option `Despool...' is enabled if spooling is on (option 16).\n\n NOTE 1: It's possible to customize a major mode printing, just declare\n the customization in `pr-mode-alist' and invoke some of\n `*-mode*' commands or select Mode option in Printing menu. An\n example for major mode usage is when you're using gnus (or mh,\n or rmail, etc.) and you're in the *Summary* buffer, if you\n forget to switch to the *Article* buffer before printing,\n you'll get a nicely formatted list of article subjects shows\n up at the printer. With major mode printing you don't need to\n switch from gnus *Summary* buffer first.\n\n NOTE 2: There are the following options for PostScript file processing:\n Ia. Print the file *No Preprocessing*, that is, send it\n directly to PostScript printer.\n Ib. PostScript utility processing selection.\n See `pr-ps-utility-alist' and `pr-setting-database' for\n documentation.\n Ic. Do n-up processing before printing.\n Id. Toggle on/off landscape for PostScript file processing.\n Ie. Toggle on/off duplex for PostScript file processing.\n If. Toggle on/off tumble for PostScript file processing.\n\n NOTE 3: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'.\n\n 2. Operate the same way as option 1, but it sends directly the PostScript\n code (or put in a file, if you've typed C-u) or it uses ghostscript to\n print the PostScript file generated. It depends on option 18, if it's\n turned on, it uses ghostscript; otherwise, it sends directly to\n printer. If spooling is on (option 16), the PostScript code is saved\n temporarily in a buffer instead of printing it or saving it in a file.\n Also, if you already have a PostScript file you can print it.\n Instead of printing each buffer, region or major mode at once, you can\n save temporarily the PostScript code generated in a buffer and print it\n later. The option `Despool...' despools the PostScript spooling buffer\n directly on a printer. If you type C-u before choosing this option,\n the PostScript code generated is saved in a file instead of sending it to\n the printer. To spool the PostScript code generated you need to turn on\n option 16. This option is enabled if spooling is on (option 16).\n See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.\n\n 3. You can select a new PostScript printer to send PostScript code\n generated. For selection it's used all PostScript printers defined\n in `pr-ps-printer-alist' variable (see it for documentation).\n See also `pr-setting-database'.\n\nII. Text printing:\n\n 4. If you have control characters (character code from \\000 to \\037) in a\n buffer and you want to print them in a text printer, select this\n option. All control characters in your buffer or region will be\n replaced by a printable representation. The printable representations\n use ^ (for ASCII control characters) or hex. The characters tab,\n linefeed, space, return and formfeed are not affected.\n You don't need to select this option if you use any option of section\n I, the PostScript engine treats control characters properly.\n\n 5. If you want to print a directory, buffer, region or major mode in a\n text printer, select this option. See also the NOTE 1 on option 1.\n\n 6. You can select a new text printer to send text generated. For\n selection it's used all text printers defined in `pr-txt-printer-alist'\n variable (see it for documentation).\n See also `pr-setting-database'.\n\nIII. PostScript page toggle options:\n\n 7. If you want a PostScript landscape printing, turn on this option.\n\n 8. If you want to have a header in each page in your PostScript code,\n turn on this option.\n\n 9. If you want to draw a gaudy frame around the header, turn on this\n option. This option is enabled if print header is on (option 8).\n\n 10. If you want that the line number is printed in your PostScript code,\n turn on this option.\n\n 11. If you want background zebra stripes in your PostScript code, turn on\n this option.\n\n 12. If you want a duplex printing and your PostScript printer has this\n feature, turn on this option.\n\n 13. If you turned on duplex printing, you can choose if you want to have a\n printing suitable for binding on the left or right (tumble off), or to\n have a printing suitable for binding at top or bottom (tumble on).\n This option is enabled if duplex is on (option 12).\n\n 14. If you want a PostScript upside-down printing, turn on this option.\n\n 15. With this option, you can choose if you want to print all pages, odd\n pages, even pages, odd sheets or even sheets.\n See also `ps-even-or-odd-pages'.\n\nIV. PostScript processing toggle options:\n\n 16. If you want to spool the PostScript code generated, turn on this\n option. To spool the PostScript code generated use option 2. You can\n despool later by choosing option 1 or 2, sub-option `Despool...'.\n\n 17. If you use colors in your buffers and want to see these colors on your\n PostScript code generated, turn on this option. If you have a\n black/white PostScript printer, these colors are displayed in gray\n scale by PostScript printer interpreter.\n\n 18. If you don't have a PostScript printer to send PostScript files, turn\n on this option. When this option is on, the ghostscript is used to\n print PostScript files. In GNU or Unix system, if ghostscript is set\n as a PostScript filter, you don't need to turn on this option.\n\nV. Printing customization:\n\n 19. If you want that region is automagically detected, turn on this\n option. Note that this will only work if you're using transient mark\n mode. When this option is on, the `*-buffer*' commands will behave\n like `*-region*' commands, that is, `*-buffer*' commands will print\n only the region marked instead of all buffer.\n\n 20. Turn this option on if you want that when current major-mode is\n declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands\n behave like `*-mode*' commands.\n\n 21. If you want that Printing menu stays open while you are setting\n toggle options, turn on this option. The variables\n `pr-menu-char-height' and `pr-menu-char-width' are used to guess the\n menu position, so don't forget to adjust these variables if menu\n position is not ok.\n\nVI. Customization:\n\n 22. Besides all options in section III, IV and V, you can customize much\n more PostScript options in `ps-print' option. Or you can customize\n some `lpr' options for text printing. Or customize `printing'\n options.\n\n 23. Show current settings for `printing', `ps-print' or `lpr'.\n\n 24. Quick help for printing menu layout.\n") (#$ . 64721)) #@41 Printing buffer interface help message. (defconst pr-interface-help-message (concat "printing.el version " pr-version " ps-print.el version " ps-print-version "\n\n\nThe printing interface buffer has the same functionality as the printing menu.\nThe major difference is that the states (like sending PostScript generated to a\nfile, n-up printing, etc.) are set and saved between priting buffer\nactivation. Also, the landscape, duplex and tumble values are the same for\nPostScript file and directory/buffer/region/mode processing; using menu, there\nare different value sets for PostScript file and directory/buffer/region/mode\nprocessing.\n\nThe printing interface buffer has the following sections:\n\n1. Print:\n\n Here you can choose to print/preview a buffer, a directory or a PostScript\n file:\n\n 1a. Buffer:\n\n * Buffer List:\n Select a buffer from the current buffer list.\n\n * Region:\n If it's on, this means that the selected buffer has an active region,\n so you can turn on/off, as you wish.\n If it's off when a buffer is selected, this means that the selected\n buffer has no active region, so it'll not be possible to turn it on.\n If you want to process the region, let this option on.\n If you want to process the whole buffer, let this option off.\n\n * Mode:\n If it's on, this means that the selected buffer major mode is declared\n for major mode processing, so you can turn on/off, as you wish.\n If it's off when a buffer is selected, this means that the selected\n buffer major mode isn't declared for major mode processing, so it'll\n not be possible to turn it on.\n If you want the major mode processing, let this option on.\n If you don't want the major mode processing, let this option off.\n\n NOTE 1: It's possible to customize a major mode printing, just declare\n the customization in `pr-mode-alist' and invoke some of\n `*-mode*' commands or select Mode option in Printing menu. An\n example for major mode usage is when you're using gnus (or mh,\n or rmail, etc.) and you're in the *Summary* buffer, if you\n forget to switch to the *Article* buffer before printing,\n you'll get a nicely formatted list of article subjects shows\n up at the printer. With major mode printing you don't need to\n switch from gnus *Summary* buffer first.\n\n 1b. Directory:\n\n * Directory:\n Specify a valid directory path.\n\n * File Regexp:\n Specify a file name regexp. All file names in the directory that\n match with regexp will be printed/previewed. An empty file name\n regexp means to print/preview all files in the directory.\n\n * List Directory Entry:\n If it's turned on, list directory entries besides file entries.\n\n 1c. PostScript file:\n\n * PostScript File:\n Specify an existent PostScript file to print/preview.\n\n * PostScript Utility:\n Select a PostScript utility.\n See `pr-ps-utility-alist' and `pr-setting-database' for documentation.\n\n NOTE 2: Don't forget to download and install the utilities declared on\n `pr-ps-utility-alist'.\n\n * No Preprocessing:\n If it's turned on, don't use the PostScript utility to preprocess the\n PostScript file before printing/previewing.\n\n2. PostScript printer:\n\n * PostScript Printer:\n You can select a new PostScript printer to send PostScript code\n generated. For selection it's used all PostScript printers defined\n in `pr-ps-printer-alist' variable (see it for documentation).\n See also `pr-setting-database'.\n\n * Despool:\n If spooling is on, you can turn it on/off, as you wish.\n If spooling is off, it'll not be possible to turn it on.\n If it's turned on, specify to despools the PostScript spooling buffer in\n a temporary file or in the selected PostScript file when\n printing/previewing.\n\n * Preview:\n Preview the PostScript generated.\n\n * Print:\n Print the PostScript generated.\n\n * Quit:\n Quit from printing interface buffer.\n\n * Send to Printer/Temporary File:\n If it's turned on, the PostScript generated is sent directly to\n PostScript printer or, for previewing, to a temporary file.\n\n * Send to File:\n Specify a file name to send the PostScript generated.\n\n * N-Up:\n Specify n-up printing.\n\n3. Text printer:\n\n * Text Printer:\n Select a new text printer to send text generated. For selection it's used\n all text printers defined in `pr-txt-printer-alist' variable (see it for\n documentation). See also `pr-setting-database'.\n\n * Printify:\n If you have control characters (character code from \\000 to \\037) in a\n buffer and you want to print them in a text printer, select this\n option. All control characters in your buffer or region will be\n replaced by a printable representation. The printable representations\n use ^ (for ASCII control characters) or hex. The characters tab,\n linefeed, space, return and formfeed are not affected.\n You don't need to select this option if you use any option of section\n I, the PostScript engine treats control characters properly.\n\n * Print:\n To print a directory, buffer, region or major mode in a\n text printer, select this option. See also the NOTE 1 on section 1.\n\n * Quit:\n Quit from printing interface buffer.\n\n4. Settings:\n\n There are 3 setting columns:\n\n 4a. First column (left column):\n\n * Landscape:\n PostScript landscape printing.\n\n * Print Header:\n To have a header in each page in your PostScript code.\n\n * Print Header Frame:\n To draw a gaudy frame around the header.\n\n * Line Number:\n The line number is printed in your PostScript code.\n\n * Zebra Stripes:\n Background zebra stripes in your PostScript code.\n\n * Duplex:\n Duplex printing (if your PostScript printer has this feature).\n\n * Tumble:\n If duplex printing is on, you can choose if you want to have a\n printing suitable for binding on the left or right (tumble off), or to\n have a printing suitable for binding at top or bottom (tumble on).\n\n * Upside-Down:\n PostScript upside-down printing.\n\n 4b. Second column (middle column):\n\n * Auto Region:\n If you want that region is automagically detected, turn on this\n option. Note that this will only work if you're using transient mark\n mode. When this option is on, the `*-buffer*' commands will behave\n like `*-region*' commands, that is, `*-buffer*' commands will print\n only the region marked instead of all buffer.\n\n * Auto Mode:\n Turn this option on if you want that when current major-mode is\n declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands\n behave like `*-mode*' commands.\n\n * Menu Lock:\n If you want that Printing menu stays open while you are setting\n toggle options, turn on this option. The variables\n `pr-menu-char-height' and `pr-menu-char-width' are used to guess the\n menu position, so don't forget to adjust these variables if menu\n position is not ok.\n\n * Spool Buffer:\n To spool the PostScript code generated. You can despool later by\n setting Despool option on PostScript printer section.\n\n * Print with faces:\n If you use colors in your buffers and want to see these colors on your\n PostScript code generated, turn on this option. If you have a\n black/white PostScript printer, these colors are displayed in gray\n scale by PostScript printer interpreter.\n\n * Print via Ghostscript:\n If you don't have a PostScript printer to send PostScript files, turn\n on this option. When this option is on, the ghostscript is used to\n print PostScript files. In GNU or Unix system, if ghostscript is set\n as a PostScript filter, you don't need to turn on this option.\n\n * Parity Page Menu:\n To print all pages, odd pages, even pages, odd sheets or even sheets.\n See also `ps-even-or-odd-pages'.\n\n 4c. Third column (right column):\n\n * Verbose:\n That is, to be verbose when editing a field in interface buffer.\n\n5. Customize:\n\n Besides all options in section 4, you can customize much more PostScript\n options in `ps-print' option. Or you can customize some `lpr' options for\n text printing. Or customize `printing' options.\n\n6. Show settings:\n\n Show current settings for `printing', `ps-print' or `lpr'.\n\n7. Help:\n\n Quick help for printing interface buffer and printing menu layout. You can\n also quit the printing interface buffer or kill all printing help buffer.\n") (#$ . 75866)) #@151 Activate the printing interface buffer. If BUFFER is nil, the current buffer is used for printing. For more information, type \[pr-interface-help]. (defalias 'pr-interface #[(&optional buffer) "\212\206 pq\210\301 )\207" [buffer pr-create-interface] 1 (#$ . 84583) nil]) #@747 Preview directory using ghostview. Interactively, the command prompts for N-UP printing number, a directory, a file name regexp for matching and, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file. Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. See also documentation for `pr-list-directory'. (defalias 'pr-ps-directory-preview #[(n-up dir file-regexp &optional filename) "\305\301\302\303\300\306\307!%\210\310!\311 \n $\210\f\206 \312!\207" [filename n-up dir file-regexp pr-spool-p pr-set-ps-dir-args pr-prompt "PS preview dir" pr-ps-file pr-ps-file-list pr-ps-file-preview] 7 (#$ . 84865) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS preview dir"] 3)]) #@766 Print directory using PostScript through ghostscript. Interactively, the command prompts for N-UP printing number, a directory, a file name regexp for matching and, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file. Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. See also documentation for `pr-list-directory'. (defalias 'pr-ps-directory-using-ghostscript #[(n-up dir file-regexp &optional filename) "\305\302\303\304\300\306\307!%\210\310!\311\n \f $\210\312 !\210\206 \313 !)\207" [filename file n-up dir file-regexp pr-set-ps-dir-args pr-prompt "PS print dir GS" pr-ps-file pr-ps-file-list pr-ps-file-using-ghostscript pr-delete-file] 7 (#$ . 86016) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir GS"] 3)]) #@754 Print directory using PostScript printer. Interactively, the command prompts for N-UP printing number, a directory, a file name regexp for matching and, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file. Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. See also documentation for `pr-list-directory'. (defalias 'pr-ps-directory-print #[(n-up dir file-regexp &optional filename) "\305\302\303\304\300\306\307!%\210\310!\311\n \f $\210\312 !\210\206 \313 !)\207" [filename file n-up dir file-regexp pr-set-ps-dir-args pr-prompt "PS print dir" pr-ps-file pr-ps-file-list pr-ps-file-print pr-delete-file] 7 (#$ . 87228) (byte-code "\300\301\302!!\207" [pr-interactive-ps-dir-args pr-prompt "PS print dir"] 3)]) #@822 Print directory using PostScript printer or through ghostscript. It depends on `pr-print-using-ghostscript'. Interactively, the command prompts for N-UP printing number, a directory, a file name regexp for matching and, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file. Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. See also documentation for `pr-list-directory'. (defalias 'pr-ps-directory-ps-print #[(n-up dir file-regexp &optional filename) "\306\302\303\304\305\307\310\311!!%\210\203 \204 \312\n \f $\207\313\n \f $\207" [pr-print-using-ghostscript pr-spool-p n-up dir file-regexp filename pr-set-ps-dir-args pr-prompt pr-prompt-gs "PS print dir" pr-ps-directory-using-ghostscript pr-ps-directory-print] 8 (#$ . 88398) (byte-code "\300\301\302\303!!!\207" [pr-interactive-ps-dir-args pr-prompt pr-prompt-gs "PS print dir"] 4)]) #@555 Preview buffer using ghostview. Interactively, the command prompts for N-UP printing number and, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file. Noninteractively, if N-UP is nil, prompts for N-UP printing number. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. (defalias 'pr-ps-buffer-preview #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-preview pr-ps-preview pr-region-active-symbol pr-region-active-string "PS preview"] 6 (#$ . 89699) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS preview"] 3)]) #@565 Print buffer using PostScript through ghostscript. Interactively, the command prompts for N-UP printing number and, when you use a prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The argument FILENAME is treated as follows: if it's nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. (defalias 'pr-ps-buffer-using-ghostscript #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-using-ghostscript pr-ps-using-ghostscript pr-region-active-symbol pr-region-active-string "PS print GS"] 6 (#$ . 90633) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print GS"] 3)]) #@553 Print buffer using PostScript printer. Interactively, the command prompts for N-UP printing number and, when you use a prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The argument FILENAME is treated as follows: if it's nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. (defalias 'pr-ps-buffer-print #[(n-up &optional filename) "\203 \n\236A\203 \305 \f\"\207\306\307 \f\310\311!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode-print pr-ps-print pr-region-active-symbol pr-region-active-string "PS print"] 6 (#$ . 91609) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt "PS print"] 3)]) #@621 Print buffer using PostScript printer or through ghostscript. It depends on `pr-print-using-ghostscript'. Interactively, the command prompts for N-UP printing number and, when you use a prefix argument (C-u), 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, if N-UP is nil, prompts for N-UP printing number. The argument FILENAME is treated as follows: if it's nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name. (defalias 'pr-ps-buffer-ps-print #[(n-up &optional filename) "\203 \n\236A\203 \306 \f\"\207 \203# \204# \307\310 \f\311\312!$\207\313\310 \f\311\314!$\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-print-using-ghostscript pr-ps-mode-ps-print pr-ps-using-ghostscript pr-region-active-symbol pr-region-active-string "PS print GS" pr-ps-print "PS print" pr-spool-p] 6 (#$ . 92531) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt pr-prompt-gs "PS print"] 4)]) #@67 Preview region using ghostview. See also `pr-ps-buffer-preview'. (defalias 'pr-ps-region-preview #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f \")\207\310\311\f \312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-preview pr-ps-preview region "PS preview region"] 5 (#$ . 93661) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS preview"] 3)]) #@96 Print region using PostScript through ghostscript. See also `pr-ps-buffer-using-ghostscript'. (defalias 'pr-ps-region-using-ghostscript #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f \")\207\310\311\f \312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-using-ghostscript pr-ps-using-ghostscript region "PS print GS region"] 5 (#$ . 94096) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print GS"] 3)]) #@72 Print region using PostScript printer. See also `pr-ps-buffer-print'. (defalias 'pr-ps-region-print #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f \")\207\310\311\f \312$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-print pr-ps-print region "PS print region"] 5 (#$ . 94592) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-region "PS print"] 3)]) #@98 Print region using PostScript printer or through ghostscript. See also `pr-ps-buffer-ps-print'. (defalias 'pr-ps-region-ps-print #[(n-up &optional filename) "\203 \n\236A\203 \306\307\f \")\207 \203$ \204$ \310\311\f \312$\207\313\311\f \314$\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region n-up filename t pr-ps-mode-ps-print pr-ps-using-ghostscript region "PS print GS region" pr-ps-print "PS print region" pr-print-using-ghostscript pr-spool-p] 5 (#$ . 95022) (byte-code "\300\301\302\303!!!\207" [pr-interactive-n-up-file pr-prompt-region pr-prompt-gs "PS print"] 4)]) #@71 Preview major mode using ghostview. See also `pr-ps-buffer-preview'. (defalias 'pr-ps-mode-preview #[(n-up &optional filename) "\304\302\300\305#\210\306!\307\n \"\205 ?\205 \310 !)\207" [filename file n-up pr-spool-p pr-set-n-up-and-filename "PS preview mode" pr-ps-file pr-ps-mode pr-ps-file-preview] 4 (#$ . 95621) (pr-interactive-n-up-file "PS preview mode")]) #@100 Print major mode using PostScript through ghostscript. See also `pr-ps-buffer-using-ghostscript'. (defalias 'pr-ps-mode-using-ghostscript #[(n-up &optional filename) "\304\302\300\305#\210\306!\307\n \"\205! ?\205! \310 !\210\206! \311 !)\207" [filename file n-up pr-spool-p pr-set-n-up-and-filename "PS print GS mode" pr-ps-file pr-ps-mode pr-ps-file-using-ghostscript pr-delete-file] 4 (#$ . 95999) (pr-interactive-n-up-file "PS print GS mode")]) #@76 Print major mode using PostScript printer. See also `pr-ps-buffer-print'. (defalias 'pr-ps-mode-print #[(n-up &optional filename) "\302\300\301\303#\210\304 \"\207" [n-up filename pr-set-n-up-and-filename "PS print mode" pr-ps-mode] 4 (#$ . 96459) (pr-interactive-n-up-file "PS print mode")]) #@94 Print major mode using PostScript or through ghostscript. See also `pr-ps-buffer-ps-print'. (defalias 'pr-ps-mode-ps-print #[(n-up &optional filename) "\203 \204 \304\n \"\207\305\n \"\207" [pr-print-using-ghostscript pr-spool-p n-up filename pr-ps-mode-using-ghostscript pr-ps-mode-print] 3 (#$ . 96760) (byte-code "\300\301\302!!\207" [pr-interactive-n-up-file pr-prompt-gs "PS print mode"] 3)]) #@477 Replace nonprinting characters in directory with printable representations. The printable representations use ^ (for ASCII control characters) or hex. The characters tab, linefeed, space, return and formfeed are not affected. Interactively, the command prompts for a directory and a file name regexp for matching. Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. See also documentation for `pr-list-directory'. (defalias 'pr-printify-directory #[(&optional dir file-regexp) "\302\300\301\303#\210\304 \305#\207" [dir file-regexp pr-set-dir-args "Printify dir" pr-file-list pr-printify-buffer] 4 (#$ . 97170) (pr-interactive-dir-args "Printify dir")]) #@224 Replace nonprinting characters in buffer with printable representations. The printable representations use ^ (for ASCII control characters) or hex. The characters tab, linefeed, space, return and formfeed are not affected. (defalias 'pr-printify-buffer #[nil "\300 \203 \301 \207\302ed\"\207" [pr-region-active-p pr-printify-region printify-region] 3 (#$ . 97894) "*"]) #@224 Replace nonprinting characters in region with printable representations. The printable representations use ^ (for ASCII control characters) or hex. The characters tab, linefeed, space, return and formfeed are not affected. (defalias 'pr-printify-region #[nil "\300`\301 \"\207" [printify-region mark] 3 (#$ . 98272) "*"]) #@287 Print directory using text printer. Interactively, the command prompts for a directory and a file name regexp for matching. Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. See also documentation for `pr-list-directory'. (defalias 'pr-txt-directory #[(&optional dir file-regexp) "\302\300\301\303#\210\304 \305#\207" [dir file-regexp pr-set-dir-args "Print dir" pr-file-list pr-txt-buffer] 4 (#$ . 98601) (pr-interactive-dir-args "Print dir")]) #@34 Print buffer using text printer. (defalias 'pr-txt-buffer #[nil "\203 \n\236A\203 \303 \207\304 \203 \305 \207\306ed\"\207" [pr-auto-mode major-mode pr-mode-alist pr-txt-mode pr-region-active-p pr-txt-region pr-txt-print] 3 (#$ . 99118) nil]) #@34 Print region using text printer. (defalias 'pr-txt-region #[nil "\203 \n\236A\203 \304\305 )\207\306`\307 \"\207" [pr-auto-mode major-mode pr-mode-alist pr-auto-region t pr-txt-mode pr-txt-print mark] 3 (#$ . 99372) nil]) #@38 Print major mode using text printer. (defalias 'pr-txt-mode #[nil " \236A\211\203 \n@\nAA!\202 \303 \210\304\305\")\207" [major-mode pr-mode-alist args ding message "`%s' major mode not declared."] 4 (#$ . 99605) nil]) #@415 Preview spooled PostScript. Interactively, when you use a prefix argument (C-u), the command prompts the user for a file name, and saves the spooled PostScript image in that file instead of saving it in a temporary file. Noninteractively, the argument FILENAME is treated as follows: if it is nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. (defalias 'pr-despool-preview #[(&optional filename) "\302!\211;\205 \303 !\210\304 !)\207" [filename file pr-ps-file pr-despool-print pr-ps-file-preview] 3 (#$ . 99836) (list (ps-print-preprint current-prefix-arg))]) #@422 Print spooled PostScript using ghostscript. Interactively, when you use a prefix argument (C-u), 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 'pr-despool-using-ghostscript #[(&optional filename) "\302!\211;\205 \303 !\210\304 !\210\206 \305 !)\207" [filename file pr-ps-file pr-despool-print pr-ps-file-using-ghostscript pr-delete-file] 3 (#$ . 100478) (list (ps-print-preprint current-prefix-arg))]) #@422 Send the spooled PostScript to the printer. Interactively, when you use a prefix argument (C-u), 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 'pr-despool-print #[(&optional filename) "\306 \307 !\210\310\n! \f \n \f \311!\210,\307!)\207" [pr--default-file-modes pr-file-modes pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer default-file-modes set-default-file-modes pr-command ps-despool ps-printer-name ps-printer-name-option ps-lpr-switches ps-lpr-command filename] 4 (#$ . 101180) (list (ps-print-preprint current-prefix-arg))]) #@453 Send the spooled PostScript to the printer or use ghostscript to print it. Interactively, when you use a prefix argument (C-u), 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 'pr-despool-ps-print #[(&optional filename) "\203 \302 !\207\303 !\207" [pr-print-using-ghostscript filename pr-despool-using-ghostscript pr-despool-print] 2 (#$ . 102032) (list (ps-print-preprint current-prefix-arg))]) #@35 Preview PostScript file FILENAME. (defalias 'pr-ps-file-preview #[(filename) ";\205 \302!\205 \303 \"\207" [filename pr-gv-command file-exists-p pr-call-process] 3 (#$ . 102722) (list (pr-ps-infile-preprint "Preview "))]) #@35 Preview PostScript file FILENAME. (defalias 'pr-ps-file-up-preview #[(n-up ifilename &optional ofilename) "\303\301\302\304\305$\306 \n#\210\307!)\207" [outfile n-up ifilename pr-ps-utility-args ofilename "PS preview " pr-ps-utility-process pr-ps-file-preview] 5 (#$ . 102955) (pr-interactive-n-up-inout "PS preview")]) #@51 Print PostScript file FILENAME using ghostscript. (defalias 'pr-ps-file-using-ghostscript #[(filename) ";\2055 \306!\2055 \307!\310\311 !!\312 \313\314\f\"\313\315 \"\316\317\"\313\320\n\" \321&\210\322\n!\210\323\n!*\207" [filename file tempfile pr-gs-command pr-gs-device pr-gs-resolution file-exists-p pr-expand-file-name pr-dosify-file-name make-temp-file pr-call-process format "-sDEVICE=%s" "-r%d" pr-switches-string "pr-gs-switches" "-sOutputFile=\"%s\"" "-c quit" pr-ps-file-print pr-delete-file pr-gs-switches] 8 (#$ . 103284) (list (pr-ps-infile-preprint "Print preview "))]) #@33 Print PostScript file FILENAME. (defalias 'pr-ps-file-print #[(filename) ";\205L \306!\205L \307!\n\310\230\203+ \311 ! \212\fq\210\312 \210\313 !\210)\314 )\202K \315\316\n\317 \320\"\321\322\n\"\203C PD\202J P D$)\207" [filename file pr-ps-command ps-spool-buffer-name ps-spool-buffer pr-ps-switches file-exists-p pr-expand-file-name "" get-buffer-create erase-buffer insert-file-contents-literally pr-despool-print apply pr-call-process pr-switches-string "pr-ps-switches" string-match "cp" pr-ps-printer-switch pr-ps-printer] 7 (#$ . 103884) (list (pr-ps-infile-preprint "Print "))]) #@74 Send PostScript file FILENAME to printer or use ghostscript to print it. (defalias 'pr-ps-file-ps-print #[(filename) "\203 \302 !\207\303 !\207" [pr-print-using-ghostscript filename pr-ps-file-using-ghostscript pr-ps-file-print] 2 (#$ . 104491) (list (pr-ps-infile-preprint (if pr-print-using-ghostscript "Print preview " "Print ")))]) #@821 Process a PostScript file IFILENAME and send it to printer. Interactively, the command prompts for N-UP printing number, for an input PostScript file IFILENAME and, when you use a prefix argument (C-u), the command prompts the user for an output PostScript file name OFILENAME, and saves the PostScript image in that file instead of sending it to the printer. Noninteractively, if N-UP is nil, prompts for N-UP printing number. The argument IFILENAME is treated as follows: if it's t, prompts for an input PostScript file name; otherwise, it *must* be a string that it's an input PostScript file name. The argument OFILENAME is treated as follows: if it's nil, send the image to the printer. If OFILENAME is a string, save the PostScript image in a file with that name. If OFILENAME is t, prompts for a file name. (defalias 'pr-ps-file-up-ps-print #[(n-up ifilename &optional ofilename) "\305\302\303\304\203\f \306\202 \307$\310\n #\210\f?\205! \311 !\210\312 !)\207" [pr-print-using-ghostscript outfile n-up ifilename ofilename pr-ps-utility-args "PS print GS " "PS print " pr-ps-utility-process pr-ps-file-ps-print pr-delete-file] 5 (#$ . 104836) (byte-code "\301\203 \302\202\n \303!\207" [pr-print-using-ghostscript pr-interactive-n-up-inout "PS print GS" "PS print"] 2)]) #@36 Toggle duplex for PostScript file. (defalias 'pr-toggle-file-duplex #[nil "\300\301!\207" [pr-toggle-file-duplex-menu t] 2 (#$ . 106132) nil]) #@198 Toggle tumble for PostScript file. If tumble is off, produces a printing suitable for binding on the left or right. If tumble is on, produces a printing suitable for binding at the top or bottom. (defalias 'pr-toggle-file-tumble #[nil "\300\301!\207" [pr-toggle-file-tumble-menu t] 2 (#$ . 106282) nil]) #@39 Toggle landscape for PostScript file. (defalias 'pr-toggle-file-landscape #[nil "\300\301!\207" [pr-toggle-file-landscape-menu t] 2 (#$ . 106593) nil]) #@36 Toggle printing using ghostscript. (defalias 'pr-toggle-ghostscript #[nil "\300\301!\207" [pr-toggle-ghostscript-menu t] 2 (#$ . 106751) nil]) #@29 Toggle printing with faces. (defalias 'pr-toggle-faces #[nil "\300\301!\207" [pr-toggle-faces-menu t] 2 (#$ . 106900) nil]) #@18 Toggle spooling. (defalias 'pr-toggle-spool #[nil "\300\301!\207" [pr-toggle-spool-menu t] 2 (#$ . 107030) nil]) #@16 Toggle duplex. (defalias 'pr-toggle-duplex #[nil "\300\301!\207" [pr-toggle-duplex-menu t] 2 (#$ . 107149) nil]) #@178 Toggle tumble. If tumble is off, produces a printing suitable for binding on the left or right. If tumble is on, produces a printing suitable for binding at the top or bottom. (defalias 'pr-toggle-tumble #[nil "\300\301!\207" [pr-toggle-tumble-menu t] 2 (#$ . 107269) nil]) #@19 Toggle landscape. (defalias 'pr-toggle-landscape #[nil "\300\301!\207" [pr-toggle-landscape-menu t] 2 (#$ . 107550) nil]) #@21 Toggle upside-down. (defalias 'pr-toggle-upside-down #[nil "\300\301!\207" [pr-toggle-upside-down-menu t] 2 (#$ . 107678) nil]) #@21 Toggle line number. (defalias 'pr-toggle-line #[nil "\300\301!\207" [pr-toggle-line-menu t] 2 (#$ . 107812) nil]) #@23 Toggle zebra stripes. (defalias 'pr-toggle-zebra #[nil "\300\301!\207" [pr-toggle-zebra-menu t] 2 (#$ . 107932) nil]) #@25 Toggle printing header. (defalias 'pr-toggle-header #[nil "\300\301!\207" [pr-toggle-header-menu t] 2 (#$ . 108056) nil]) #@31 Toggle printing header frame. (defalias 'pr-toggle-header-frame #[nil "\300\301!\207" [pr-toggle-header-frame-menu t] 2 (#$ . 108184) nil]) #@19 Toggle menu lock. (defalias 'pr-toggle-lock #[nil "\300\301!\207" [pr-toggle-lock-menu t] 2 (#$ . 108330) nil]) #@21 Toggle auto region. (defalias 'pr-toggle-region #[nil "\300\301!\207" [pr-toggle-region-menu t] 2 (#$ . 108448) nil]) #@19 Toggle auto mode. (defalias 'pr-toggle-mode #[nil "\300\301!\207" [pr-toggle-mode-menu t] 2 (#$ . 108572) nil]) #@40 Customization of the `printing' group. (defalias 'pr-customize #[(&rest ignore) "\300\301!\207" [customize-group printing] 2 (#$ . 108690) nil]) #@35 Customization of the `lpr' group. (defalias 'lpr-customize #[(&rest ignore) "\300\301!\207" [customize-group lpr] 2 (#$ . 108841) nil]) #@32 Help for the printing package. (defalias 'pr-help #[(&rest ignore) "\301\302\"\207" [pr-help-message pr-show-setup "*Printing Help*"] 3 (#$ . 108983) nil]) #@44 Interactively select a PostScript printer. (defalias 'pr-ps-name #[nil "\302\303\304 #!\207" [pr-ps-printer-alist pr-ps-name pr-menu-set-ps-title pr-complete-alist "PostScript printer"] 5 (#$ . 109146) nil]) #@38 Interactively select a text printer. (defalias 'pr-txt-name #[nil "\302\303\304 #!\207" [pr-txt-printer-alist pr-txt-name pr-menu-set-txt-title pr-complete-alist "Text printer"] 5 (#$ . 109361) nil]) #@44 Interactively select a PostScript utility. (defalias 'pr-ps-utility #[nil "\302\303\304 #!\207" [pr-ps-utility-alist pr-ps-utility pr-menu-set-utility-title pr-complete-alist "Postscript utility"] 5 (#$ . 109568) nil]) #@33 Show current ps-print settings. (defalias 'pr-show-ps-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup ps-setup "*PS Setup*"] 3 (#$ . 109794) nil]) #@33 Show current printing settings. (defalias 'pr-show-pr-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup pr-setup "*PR Setup*"] 3 (#$ . 109959) nil]) #@28 Show current lpr settings. (defalias 'pr-show-lpr-setup #[(&rest ignore) "\300\301 \302\"\207" [pr-show-setup lpr-setup "*LPR Setup*"] 3 (#$ . 110124) nil]) #@2440 Fast fire function for PostScript printing. If a region is active, the region will be printed instead of the whole buffer. Also if the current major-mode is defined in `pr-mode-alist', the settings in `pr-mode-alist' will be used, that is, the current buffer or region will be printed using `pr-ps-mode-ps-print'. Interactively, you have the following situations: M-x pr-ps-fast-fire RET The command prompts the user for a N-UP value and printing will immediatelly be done using the current active printer. C-u M-x pr-ps-fast-fire RET C-u 0 M-x pr-ps-fast-fire RET The command prompts the user for a N-UP value and also for a current PostScript printer, then printing will immediatelly be done using the new current active printer. C-u 1 M-x pr-ps-fast-fire RET The command prompts the user for a N-UP value and also for a file name, and saves the PostScript image in that file instead of sending it to the printer. C-u 2 M-x pr-ps-fast-fire RET The command prompts the user for a N-UP value, then for a current PostScript printer and, finally, for a file name. Then change the active printer to that chosen by user and saves the PostScript image in that file instead of sending it to the printer. Noninteractively, the argument N-UP should be a positive integer greater than zero and the argument SELECT is treated as follows: If it's nil, send the image to the printer. If it's a list or an integer lesser or equal to zero, the command prompts the user for a current PostScript printer, then printing will immediatelly be done using the new current active printer. If it's an integer equal to 1, the command prompts the user for a file name and saves the PostScript image in that file instead of sending it to the printer. If it's an integer greater or equal to 2, the command prompts the user for a current PostScript printer and for a file name. Then change the active printer to that chosen by user and saves the PostScript image in that file instead of sending it to the printer. If it's a symbol which it's defined in `pr-ps-printer-alist', it's the new active printer and printing will immediatelly be done using the new active printer. Otherwise, send the image to the printer. Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode' are both set to t. (defalias 'pr-ps-fast-fire #[(n-up &optional select) "\306\211\307 \203L <\203 \310 \210\202L 9\203' \f\236\203' \311 !\210\202L \250\203L \312U\2045 \310 \210 \312Y\203L \204L \313\203I \314\202J \315!\316\250\203\\ \312]\317^\202_ \320\321!\"+\207" [filename pr-auto-mode pr-auto-region select pr-ps-printer-alist pr-spool-p t nil pr-ps-name pr-menu-set-ps-title 1 pr-ps-outfile-preprint "Fast GS " "Fast " pr-ps-buffer-ps-print 100 error "n-up must be an integer greater than zero" pr-print-using-ghostscript n-up] 3 (#$ . 110289) (list (pr-interactive-n-up (pr-prompt-gs "PS print fast")) current-prefix-arg)]) #@911 Fast fire function for text printing. If a region is active, the region will be printed instead of the whole buffer. Also if the current major-mode is defined in `pr-mode-alist', the settings in `pr-mode-alist' will be used, that is, the current buffer or region will be printed using `pr-txt-mode'. Interactively, when you use a prefix argument (C-u), the command prompts the user for a new active text printer. Noninteractively, the argument SELECT-PRINTER is treated as follows: If it's nil, the printing is sent to the current active text printer. If it's a symbol which it's defined in `pr-txt-printer-alist', it's the new active printer and printing will immediatelly be done using the new active printer. If it's non-nil, the command prompts the user for a new active text printer. Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode' are both set to t. (defalias 'pr-txt-fast-fire #[(&optional select-printer) "\203 9\203 \236\203 \304!\210\202 \305 \210\306\211\307 *\207" [select-printer pr-txt-printer-alist pr-auto-mode pr-auto-region pr-menu-set-txt-title pr-txt-name t pr-txt-buffer] 2 (#$ . 113368) (list current-prefix-arg)]) #@246 Return the current `printing' setup. This is *not* an interactive command. One way to see `printing' setup is to switch to a *Scratch* buffer and type: M-: (insert (pr-setup)) RET Or choose the menu option Printing/Show Settings/printing. (defalias 'pr-setup #[nil "\306\307\310\311 \312Q\313\314\315\n\"\314\316 \"\314\317\320\f\321\"\"\314\322 \"\314\323?\"\314\324\320@\325\"\"\314\326A\"\314\327B\"\314\330C\"\314\331D\"\314\332E\"\306\333\334\306\335\336\306\337\340\306\341\342\343\344\345\306\346\347\350\351\352\306\353\354\355\356\357\360\361\362\306\363\364\306\365\306\366\367\370\306\371\306\372\306\373\374\375\376\257=\312#)\207" [ps-prefix-quote pr-version emacs-version pr-txt-command pr-txt-switches pr-txt-printer nil mapconcat ps-print-quote "\n;;; printing.el version " "\n" ";; internal vars" ps-comment-string "emacs-version " "pr-txt-command " "pr-txt-switches " pr-switches-string "pr-txt-switches" "pr-txt-printer " "pr-ps-command " "pr-ps-switches " "pr-ps-switches" "pr-ps-printer-switch" "pr-ps-printer " "pr-cygwin-system " "ps-windows-system " "ps-lp-system " (14 . pr-path-style) (14 . pr-path-alist) (21 . pr-txt-name) (21 . pr-txt-printer-alist) (20 . pr-ps-name) (20 . pr-ps-printer-alist) (20 . pr-temp-dir) (20 . pr-ps-temp-file) (20 . pr-file-modes) (20 . pr-delete-temp-file) (20 . pr-list-directory) (17 . pr-gv-command) (17 . pr-gs-command) (17 . pr-gs-switches) (17 . pr-gs-device) (17 . pr-gs-resolution) (27 . pr-print-using-ghostscript) (27 . pr-faces-p) (27 . pr-spool-p) (27 . pr-file-landscape) (27 . pr-file-duplex) (27 . pr-file-tumble) (27 . pr-auto-region) (27 . pr-auto-mode) (20 . pr-ps-utility) (20 . pr-ps-utility-alist) (14 . pr-mode-alist) (20 . pr-menu-lock) (20 . pr-menu-char-height) (20 . pr-menu-char-width) (20 . pr-setting-database) (22 . pr-visible-entry-list) (22 . pr-buffer-verbose) (22 . pr-buffer-name) (22 . pr-buffer-name-ignore) ")\n\n;;; printing.el - end of settings\n" pr-ps-command pr-ps-switches pr-ps-printer-switch pr-ps-printer pr-cygwin-system ps-windows-system ps-lp-system] 63 (#$ . 114577)]) #@232 Return the current `lpr' setup. This is *not* an interactive command. One way to see `lpr' setup is to switch to a *Scratch* buffer and type: M-: (insert (lpr-setup)) RET Or choose the menu option Printing/Show Settings/lpr. (defalias 'lpr-setup #[nil "\302\303\304\305\306\307 \"\302\310\311\312\313\314\315\316\317\320\257\f\321#)\207" [ps-prefix-quote emacs-version nil mapconcat ps-print-quote "\n;;; lpr.el settings\n" ps-comment-string "emacs-version" (25 . printer-name) (25 . lpr-switches) (25 . lpr-add-switches) (25 . lpr-command) (25 . lpr-headers-switches) (25 . print-region-function) (25 . lpr-page-header-program) (25 . lpr-page-header-switches) ")\n\n;;; lpr.el - end of settings\n" "\n"] 14 (#$ . 116724)]) (byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\310B\311\310!\204 \312\310\313\"\210\313\207" [current-load-list defalias pr-mh-get-msg-num mh-get-msg-num pr-mh-show mh-show pr-mh-start-of-uncleaned-message mh-start-of-uncleaned-message mh-show-buffer default-boundp set-default nil] 3) #@127 Find the date of an article or mail message in current buffer. Return only the dayname, if present, weekday, month, and year. (defalias 'pr-article-date #[nil "\212eb\210\300\301\302\303#\203 \304\224\304\225{\202 \305\306!)\207" [re-search-forward "^Date:[ ]+\\(\\([A-Za-z]+, \\)?[0-9]+ [A-Za-z]+ [0-9]+\\)" nil t 1 format-time-string "%Y/%m/%d"] 4 (#$ . 117771)]) #@33 Go to mh-inbox current message. (defalias 'pr-mh-current-message #[nil "\302\303!\206 \304\305 \210 q\210eb\210\306 \210\307\310\")\207" [msg mh-show-buffer pr-mh-get-msg-num nil 0 pr-mh-show pr-mh-start-of-uncleaned-message message "Printing message %d"] 3 (#$ . 118146)]) #@47 Print mh-inbox current message in PostScript. (defalias 'pr-mh-print-1 #[(n-up filename header-list) "\212\300\213)\207" [((byte-code "\303 \210\304 \n`$\207" [n-up filename header-list pr-mh-current-message pr-mode-print] 5))] 1 (#$ . 118429)]) #@49 Print mh-inbox current message in text printer. (defalias 'pr-mh-lpr-1 #[(header-list) "\212\300\213)\207" [((byte-code "\301 \210\302`\"\207" [header-list pr-mh-current-message pr-mode-lpr] 3))] 1 (#$ . 118682)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias pr-mh-print-2 pr-mode-print pr-mh-lpr-2 pr-mode-lpr] 3) #@46 Print RMAIL current message in text printer. (defalias 'pr-rmail-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary rmail-buffer rmail-summary-buffer] 4 (#$ . 119019)]) #@44 Print RMAIL current message in PostScript. (defalias 'pr-rmail-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary rmail-buffer rmail-summary-buffer] 6 (#$ . 119225)]) #@38 Print current message in PostScript. (defalias 'pr-ps-message-from-summary #[(n-up filename header-list summary-buffer summary-default) "\306!\203 J\206 J\307\n!\205 \212\nq\210\310 \f #))\207" [summary-buffer summary-default buf n-up filename header-list boundp get-buffer pr-mode-print] 4 (#$ . 119461)]) #@40 Print current message in text printer. (defalias 'pr-lpr-message-from-summary #[(header-list summary-buffer summary-default) "\304!\203 J\206 J\305\n!\205 \212\nq\210\306 !))\207" [summary-buffer summary-default buf header-list boundp get-buffer pr-mode-lpr] 2 (#$ . 119781)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list pr-gnus-article default-boundp set-default "*Article*"] 3) #@48 Print *Article* current message in PostScript. (defalias 'pr-gnus-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary gnus-article-buffer pr-gnus-article] 6 (#$ . 120211)]) #@50 Print *Article* current message in text printer. (defalias 'pr-gnus-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary gnus-article-buffer pr-gnus-article] 4 (#$ . 120452)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list pr-vm-summary default-boundp set-default ""] 3) #@41 Print current vm message in PostScript. (defalias 'pr-vm-print #[(n-up filename header-list) "\303 \n\304\305%\207" [n-up filename header-list pr-ps-message-from-summary vm-mail-buffer pr-vm-summary] 6 (#$ . 120792)]) #@43 Print current vm message in text printer. (defalias 'pr-vm-lpr #[(header-list) "\301\302\303#\207" [header-list pr-lpr-message-from-summary vm-mail-buffer pr-vm-summary] 4 (#$ . 121017)]) #@60 If current major mode is declared, print it in PostScript. (defalias 'pr-ps-mode #[(n-up filename) " \236A\211\203 \nA\211@\f A#\210)\306\202\" \307 \210\310\311\"\210\312)\207" [major-mode pr-mode-alist args fun n-up filename t ding message "`%s' major mode not declared." nil] 5 (#$ . 121212)]) (defalias 'pr-local-variable '(macro . #[(header-list &rest body) "\302\303\304\305\306\307E\310BBD\311\305\306\312E\313BBD\314\305\306\315E\316BBD\317BBB\303\320\321\322\323EDDC\324 \325\306\326E\327BBC\"BBED\207" [header-list body save-excursion let ps-header-lines or nth 0 (ps-header-lines) ps-left-header 1 (ps-left-header) ps-right-header 2 (ps-right-header) (ps-razzle-dazzle) local-var-list pr-eval-local-alist nthcdr 4 append and 3 ((pr-kill-local-variable local-var-list))] 11])) #@41 Print current major mode in PostScript. (defalias 'pr-mode-print #[(n-up filename header-list &optional from to) "\212@\206 A@\206 \n\3068\206 \307 \310\311\233! \312!\2064 \313 \2033 \314 \2024 \307 \315\316!\206X \313 \203R \317 \202X \205X d%\210\204n \204n \320!\210\321!\210*\3228\205x \323 !.\207" [header-list ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle local-var-list 2 nil pr-eval-local-alist 4 pr-ps-file pr-region-active-p region-beginning pr-text2ps pr-region-active-symbol region-end pr-ps-file-print pr-delete-file 3 pr-kill-local-variable filename from start file n-up to pr-spool-p] 6 (#$ . 122016)]) #@43 Print current major mode in text printer. (defalias 'pr-mode-lpr #[(header-list &optional from to) "\212@\206 A@\206 \n\3068\206 \307 \310\311\233! \312\2061 \313 \2030 \314 \2021 e\206A \313 \203@ \315 \202A d\"\210\3168\205L \317 !.\207" [header-list ps-header-lines ps-left-header ps-right-header ps-razzle-dazzle local-var-list 2 nil pr-eval-local-alist 4 pr-txt-print pr-region-active-p region-beginning region-end 3 pr-kill-local-variable from to] 4 (#$ . 122700)]) #@188 Alist that associates menu part with number of items per part. It's used by `pr-menu-index'. Each element has the form: (MENU-PART . NUMBER-OF-ITEMS) See `pr-visible-entry-alist'. (defconst pr-menu-entry-alist '((postscript . 3) (text . 3) (postscript-options . 9) (postscript-process . 3) (printing . 3) (help . 3)) (#$ . 123197)) (defalias 'pr-menu-index #[(entry index) "\306=\203\n \307\202) \310=\203 \311\202) \312=\203 \313\202) \314=\203( \315\202) \316\316\n\203I \n@\nA \211 >)\203, \f \236A\\\202, *\f\317\\\207" [entry key base-list pr-visible-entry-list index pr-menu-entry-alist text (postscript) postscript-options (postscript text) postscript-process (postscript text postscript-options) printing (postscript text postscript-options postscript-process) nil 2] 4]) (defalias 'pr-update-var #[(var-sym alist) "J \236\206\f @@L\207" [var-sym alist] 2]) #@487 Update utility, PostScript and text printer menus. If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist', `pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not; otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is non-nil, update text printer menu if `pr-txt-printer-menu-modified' is non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is non-nil. If menu binding was not done, calls `pr-menu-bind'. (defalias 'pr-update-menus #[(&optional force) "\203 \305 \207\306\307 \"\210\306\310\n\"\210\306\311 \"\210\312\f!\207" [pr-menu-print-item pr-ps-printer-alist pr-txt-printer-alist pr-ps-utility-alist force pr-menu-bind pr-update-var pr-ps-name pr-txt-name pr-ps-utility pr-do-update-menus] 3 (#$ . 124093) "P"]) (defalias 'pr-menu-create #[(name alist var-sym fun entry index) "\302\303 \"B\207" [name alist mapcar #[(elt) "@\306\307 !\n\310 D\311\310 D\f\257\312\313\314\315 \310 DE&)\207" [elt sym fun entry index var-sym vector symbol-name quote nil :style radio :selected eq] 10]] 4]) (defalias 'pr-ps-set-utility #[(value) " \236A\211\204 \304\305\"\210\306\307\n\233!\210)\310 \207" [value pr-ps-utility-alist item pr-ps-utility error "Invalid PostScript utility name `%s' for variable `pr-ps-utility'" pr-eval-alist 9 pr-update-mode-line] 4]) (defalias 'pr-ps-set-printer #[(value) " \236A\211\204 \306\307\"\210\310\n@!\nA@\311\n8\312\n8\f;\204< \2031 \313\202; \203: \314\202; \315;\204W \203K \316\202U \203T \317\202U \320\321\322\n\233!\210)\323 \207" [value pr-ps-printer-alist ps pr-ps-name pr-ps-command pr-ps-switches error "Invalid PostScript printer name `%s' for variable `pr-ps-name'" pr-dosify-file-name 2 3 "print" "lp" "lpr" "/D:" "-d" "-P" pr-eval-alist 4 pr-update-mode-line pr-ps-printer-switch pr-ps-printer ps-windows-system ps-lp-system] 4]) (defalias 'pr-txt-set-printer #[(value) " \236A\211\204 \306\307\"\210\310\n@!\nA@\311\n8)\f;\2048 \203- \312\2027 \2036 \313\2027 \314\315 \207" [value pr-txt-printer-alist txt pr-txt-name pr-txt-command pr-txt-switches error "Invalid text printer name `%s' for variable `pr-txt-name'" pr-dosify-file-name 2 "print" "lp" "lpr" pr-update-mode-line pr-txt-printer ps-windows-system ps-lp-system] 4]) (defalias 'pr-eval-alist #[(alist) "\301\302\"\207" [alist mapcar #[(option) "@A\211\303=\203 \304 \305\"\202 \n\306 !L*\207" [option value var-sym inherits-from: pr-eval-setting-alist global eval] 4]] 3]) (defalias 'pr-eval-local-alist #[(alist) "\302\303\304 \"\210)\207" [local-list alist nil mapc #[(option) "@A\211\304=\203 \305 ! \244\202 \306\n!\307 !L\210\n B\211*\207" [option value var-sym local-list inherits-from: pr-eval-setting-alist make-local-variable eval] 4]] 3]) (defalias 'pr-eval-setting-alist #[(key &optional global old) " \236A\211\205f \n@\nA@\306\n8\307 \203+ \203+ \310 \210\311\312\"\210\307\203M >\203A \313\314\"\210\202M \315B#\316 \204V \317\202_ \f\203^ \320\202_ \321\322\n\233\"\210 ,)\207" [key pr-setting-database setting local-list kill local 2 nil ding message "There are local buffer settings for `%S'." error "Circular inheritance for `%S'" pr-eval-setting-alist mapc #[(option) "@\211\302=\206 \303A!L)\207" [option var-sym inherits-from: eval] 4] #[(option) "@\211\303=?\205 \nB\304 !\305A!L)\207" [option var-sym local-list inherits-from: make-local-variable eval] 4] #[(option) "@\211\302=\206 \303 !\304A!L)\207" [option var-sym inherits-from: make-local-variable eval] 4] 3 inherits global old] 6]) (defalias 'pr-kill-local-variable #[(local-var-list) "\301\302\"\207" [local-var-list mapcar kill-local-variable] 3]) (defalias 'pr-toggle #[(var-sym mess entry index horizontal state &optional path no-menu) "\211J?L\210\306\307 J\203 \310\202 \311#\210\n\206\" \312 \f \f%\207" [var-sym mess no-menu entry index horizontal message "%s is %s" "on" "off" pr-menu-lock state path] 6]) (defalias 'pr-toggle-file-duplex-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-duplex "PS file duplex" nil 7 5 ("PostScript Print" "File")] 9 nil nil]) (defalias 'pr-toggle-file-tumble-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-tumble "PS file tumble" nil 8 5 ("PostScript Print" "File")] 9 nil nil]) (defalias 'pr-toggle-file-landscape-menu #[(&optional no-menu) "\301\302\303\304\305\306\304\307&\207" [no-menu pr-toggle pr-file-landscape "PS file landscape" nil 6 5 ("PostScript Print" "File")] 9 nil nil]) (defalias 'pr-toggle-ghostscript-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-print-using-ghostscript "Printing using ghostscript" postscript-process 2 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-faces-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-faces-p "Printing with faces" postscript-process 1 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-spool-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-spool-p "Spooling printing" postscript-process 0 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-duplex-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-spool-duplex "Printing duplex" postscript-options 5 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-tumble-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-spool-tumble "Tumble" postscript-options 6 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-landscape-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-landscape-mode "Landscape" postscript-options 0 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-upside-down-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-upside-down "Upside-Down" postscript-options 7 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-line-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-line-number "Line number" postscript-options 3 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-zebra-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-zebra-stripes "Zebra stripe" postscript-options 4 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-header-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-header "Print header" postscript-options 1 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-header-frame-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle ps-print-header-frame "Print header frame" postscript-options 2 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-lock-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-menu-lock "Menu lock" printing 2 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-region-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-auto-region "Auto region" printing 0 12 toggle nil] 9 nil nil]) (defalias 'pr-toggle-mode-menu #[(&optional no-menu) "\301\302\303\304\305\306\307\310&\207" [no-menu pr-toggle pr-auto-mode "Auto mode" printing 1 12 toggle nil] 9 nil nil]) (defalias 'pr-prompt #[(str) "\203 \n\236A\203 \304P\207\305 !\207" [pr-auto-mode major-mode pr-mode-alist str " mode" pr-region-active-string] 2]) (defalias 'pr-prompt-region #[(str) " \203 \n \236A\203 \304\202 \305P\207" [str pr-auto-mode major-mode pr-mode-alist " mode" " region"] 3]) (defalias 'pr-prompt-gs #[(str) "\203\f \204\f \n\303P\207\n\207" [pr-print-using-ghostscript pr-spool-p str " GS"] 2]) (defalias 'pr-region-active-symbol #[(&optional region-p) "\204 \301 \203 \302\207\303\207" [region-p pr-region-active-p region buffer] 1]) (defalias 'pr-region-active-string #[(prefix) "\301 \203\n \302\202 \303P\207" [prefix pr-region-active-p " region" " buffer"] 2]) (defalias 'pr-show-setup #[(settings buffer-name) "\220\302 !\210\303 \221\207" [buffer-name settings princ print-help-return-message] 3]) (defalias 'pr-complete-alist #[(prompt alist default) "\304\305\"\306\307\n\310P \311\312\313 !\311\313 !& \"A)\207" [alist collection prompt default mapcar #[(elt) "@\301!B\207" [elt symbol-name] 2] assoc completing-read ": " nil t symbol-name] 10]) (defalias 'pr-delete-file #[(file) "\205 \302 !\205 \303 !\207" [pr-delete-temp-file file file-exists-p delete-file] 2]) (defalias 'pr-expand-file-name #[(filename) "\301\302!!\207" [filename pr-dosify-file-name expand-file-name] 3]) (defalias 'pr-ps-outfile-preprint #[(&optional mess) "\304\305\206 \306\"\307 \n\306\310$\311 !\204 \312 \210\313\211\202D \314 !\203. \312 \210\315\211\202D \316 !\203C \312 \210\317\320\304\321 \"!?\202D \310\203Y \307\304\322 \"\323 !\310\211\324 !%\202 \325 !*\207" [mess prompt default-directory res format "%soutput PostScript file name: " "" read-file-name nil file-writable-p ding "is unwritable" file-directory-p "is a directory" file-exists-p "exists" y-or-n-p "File `%s' exists; overwrite? " "File %s; PostScript file: " file-name-directory file-name-nondirectory pr-expand-file-name] 7]) (defalias 'pr-ps-infile-preprint #[(&optional mess) "\304\305\206 \306\"\307 \n\306\310$\311 !\204 \312 \210\313\211\202> \314 !\204. \312 \210\315\211\202> \316 !\203= \312 \210\317\211\202> \310\203S \307\304\320 \"\321 !\310\211\322 !%\202 \323 !*\207" [mess prompt default-directory res format "%sinput PostScript file name: " "" read-file-name nil file-exists-p ding "doesn't exist" file-readable-p "is unreadable" file-directory-p "is a directory" "File %s; PostScript file: " file-name-directory file-name-nondirectory pr-expand-file-name] 7]) (defalias 'pr-ps-utility-args #[(n-up-sym infile-sym outfile-sym prompt) "J\204 \305 !L\210\nJ\306=\203 \n\307 !L\210\nJ\204\" \310\311 \"\210\n\312\nJ!L\210 J\306=\203: \f\2058 \313 !L\210 J\203F \312 J!L\210\314 J!\207" [n-up-sym prompt infile-sym outfile-sym current-prefix-arg pr-interactive-n-up t pr-ps-infile-preprint error "%s: input PostScript file name is missing" pr-dosify-file-name pr-ps-outfile-preprint pr-ps-file] 3]) (defalias 'pr-ps-utility-process #[(n-up infile outfile) "\306 ;\205[ \307 !\205[ \n \236A\211\205[ \310@\311A@\312\"\311\3138\312\"\3148\2051 \315\3148\f\"\315\3168 \"\205? \3178\205G \3208\205O \3218\322 !\3238\322!& )\207" [item infile pr-ps-utility pr-ps-utility-alist ps-paper-type n-up nil file-exists-p pr-call-process pr-switches-string "pr-ps-utility-alist entry" 8 2 format 3 4 5 6 pr-expand-file-name 7 pr-file-landscape pr-file-duplex pr-file-tumble outfile] 13]) (defalias 'pr-remove-nil-from-list #[(lst) "\203 @\204 A\211\204 \211A \2031 @\203' A\211\202 A\n \241\210\202 *\207" [lst l b] 3]) (defalias 'pr-call-process #[(command &rest args) "\306\307!\310!\311\312\f!\212 q\210db\210\313\314\n\f#c\210)\315 \316!\210\317\320\321\217\316 !\210)\212 q\210db\210\313\322 \"c\210) ;\204N \250\205R \323U?\205R \324\325 \"+\207" [command status cmd buffer args pr--default-file-modes get-buffer-create "*Printing Command Output*" pr-command nil pr-remove-nil-from-list format "%s %S\n" default-file-modes set-default-file-modes data (byte-code "\303\304\305 \305\n&\207" [cmd buffer args apply call-process nil] 7) (((quit error) (error-message-string data))) "Exit status: %s\n\n" 0 message "Printing error status: %s (see *Printing Command Output* buffer)" pr-file-modes] 4]) (defalias 'pr-txt-print #[(from to) "\306\307!!\310 \311\"\n \312 \f\"+\207" [pr-txt-command pr-txt-switches pr-txt-printer printer-name lpr-switches lpr-command pr-standard-file-name pr-command pr-switches "pr-txt-switches" lpr-region from to] 4]) (defalias 'pr-switches-string #[(switches mess) "\205\f \302\303\304 \"\305#\207" [switches mess mapconcat identity pr-switches " "] 5]) (defalias 'pr-switches #[(switches mess) "<\204\n \302\303 \"\210\304\305\306\"!\207" [switches mess error "%S should have a list of strings" ps-flatten-list mapcar ps-eval-switch] 4]) (defalias 'pr-ps-preview #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210 \206 \311\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-preview] 4]) (defalias 'pr-ps-using-ghostscript #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210 \206 ?\205 \311\n!\210\312\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-using-ghostscript pr-delete-file] 4]) (defalias 'pr-ps-print #[(kind n-up filename mess) "\306\304\301#\210\307 !\310 \f\n#\210 \206 ?\205 \311\n!\210\312\n!)\207" [mess filename file kind n-up pr-spool-p pr-set-n-up-and-filename pr-ps-file pr-text2ps pr-ps-file-print pr-delete-file] 4]) (defalias 'pr-ps-file #[(&optional filename) "\303\206 \304\305\306 \n\"!\307\310#!\207" [filename pr-ps-temp-file pr-temp-dir pr-dosify-file-name make-temp-file convert-standard-filename expand-file-name nil ".ps"] 6]) (defalias 'pr-interactive-n-up #[(mess) ";\204 \306\307 \310\216\311\312\313\314\n #\315\316\315$ \316 \317\320\f\"\203B \321\f!\211\322W\2032 \323\202= \324V\203< \325\202= \316\211\202E \326\211\203Y \327 \210\313\314\n #\f\316\315$\202 .\207" [mess save-match-data-internal fmt-prompt prompt str int "*" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "%s[%s] N-up printing (default 1): " "" pr-read-string format "1" nil string-match "^\\s *[0-9]+$" string-to-number 1 "Integer below 1; " 100 "Integer above 100; " "Invalid integer syntax; " ding] 6]) (defalias 'pr-interactive-dir #[(mess) "\306\307 \206 !\310\n\311Q\312\313 \314\"\314 \315 % \315 \316\f!\204* \317 \210\320\211\202: \321\f!\2049 \317 \210\322\211\202: \315\203O \306\f!\312\313 \"\314 \315 %\202 \323\f!,\207" [default-directory dir-name mess fmt-prompt dir prompt file-name-directory buffer-file-name "%s[" "] Directory to print: " read-file-name format "" nil file-directory-p ding "It's not a directory! " file-readable-p "Directory is unreadable! " file-name-as-directory] 6]) (defalias 'pr-interactive-regexp #[(mess) "\301\302\303\"\304\305\304$\207" [mess pr-read-string format "[%s] File regexp to print: " "" nil] 5]) (defalias 'pr-interactive-dir-args #[(mess) "\301!\302!D\207" [mess pr-interactive-dir pr-interactive-regexp] 3]) (defalias 'pr-interactive-ps-dir-args #[(mess) "\303!\304!\305! ?\205 \306\n!F\207" [mess pr-spool-p current-prefix-arg pr-interactive-n-up pr-interactive-dir pr-interactive-regexp ps-print-preprint] 5]) (defalias 'pr-interactive-n-up-file #[(mess) "\303! ?\205 \304\n!D\207" [mess pr-spool-p current-prefix-arg pr-interactive-n-up ps-print-preprint] 3]) (defalias 'pr-interactive-n-up-inout #[(mess) "\302!\303\304P!\305 !E\207" [mess current-prefix-arg pr-interactive-n-up pr-ps-infile-preprint " " ps-print-preprint] 4]) (defalias 'pr-set-outfilename #[(filename-sym) "\204 J\303=\203 \n\205 \304\n!L\210 J\205 \305 J!L\207" [pr-spool-p filename-sym current-prefix-arg t ps-print-preprint pr-dosify-file-name] 3]) (defalias 'pr-set-n-up-and-filename #[(n-up-sym filename-sym mess) "J\204 \303 !L\210\304\n!\207" [n-up-sym mess filename-sym pr-interactive-n-up pr-set-outfilename] 3]) (defalias 'pr-set-dir-args #[(dir-sym regexp-sym mess) "J\204 \303 !L\210\nJ\206 \n\304 !L\207" [dir-sym mess regexp-sym pr-interactive-dir pr-interactive-regexp] 3]) (defalias 'pr-set-ps-dir-args #[(n-up-sym dir-sym regexp-sym filename-sym mess) "J\204 \305 !L\210\306\n #\210\307\f!\207" [n-up-sym mess dir-sym regexp-sym filename-sym pr-interactive-n-up pr-set-dir-args pr-set-outfilename] 4]) (defalias 'pr-find-buffer-visiting #[(file) "\306!\204 \307 \203 \227\202 !\207\310!\311 \312 \n\204M \203M \212 @q\210 \313=\203F \212eb\210\314e\315\\\312\210`S\"\f\230)\203F @) A\202 \n+\207" [file ps-windows-system found blist truename major-mode file-directory-p find-buffer-visiting file-truename buffer-list nil dired-mode buffer-substring-no-properties 2] 3]) (defalias 'pr-file-list #[(dir file-regexp fun) "\302\303\304\305 #\"\207" [dir file-regexp mapcar #[(file) "\204 \306 !?\2053 \307 !\310\211\211 \204 \311 !\2052 \212\f\206% \312 !q\210 \210\f\2061 \313p!)+\207" [pr-list-directory file pop-up-frames pop-up-windows buffer fun file-directory-p pr-find-buffer-visiting nil file-readable-p find-file-noselect kill-buffer] 4] directory-files t] 6]) (defalias 'pr-delete-file-if-exists #[(filename) "?\205 ;\205 \302 !\205 \303 !\207" [pr-spool-p filename file-exists-p delete-file] 2]) (defalias 'pr-ps-file-list #[(n-up dir file-regexp filename) "\304\305!\211!\210\306\307\n \310#\210) \206 \311!\207" [filename pr-spool-p dir file-regexp pr-delete-file-if-exists pr-expand-file-name t pr-file-list #[nil "\203 \n\236A\203 \305 \f\"\207\306\307 \f#\207" [pr-auto-mode major-mode pr-mode-alist n-up filename pr-ps-mode pr-text2ps buffer] 4] pr-despool-print] 4]) (defalias 'pr-text2ps #[(kind n-up filename &optional from to) "\306 \307 !\210\n \310=\205 \310 \311 !\210\203o \203F \312=\203, \313 \210\202\301 \314=\203\301 \315\206: `\206A \316 \"\210\202\301 \312=\203T \317 !\210\202\301 \314=\203\301 \320\206b `\206i \316 #\210\202\301 \203\233 \312=\203\201 \321 \210\202\301 \314=\203\301 \322\206\217 `\206\226 \316 \"\210\202\301 \312=\203\251 \323 !\210\202\301 \314=\203\301 \324\206\267 `\206\276 \316 #\210*\307!)\207" [pr--default-file-modes pr-file-modes n-up ps-spool-config ps-n-up-printing filename default-file-modes set-default-file-modes setpagedevice pr-delete-file-if-exists buffer ps-spool-buffer-with-faces region ps-spool-region-with-faces mark ps-print-buffer-with-faces ps-print-region-with-faces ps-spool-buffer ps-spool-region ps-print-buffer ps-print-region pr-faces-p pr-spool-p kind from to] 4]) #@532 Return absolute file name specification for COMMAND. If COMMAND is an empty string, return it. If COMMAND is already an absolute file name specification, return it. Else it uses `pr-path-alist' to find COMMAND, if find it then return it; otherwise, gives an error. When using `pr-path-alist' to find COMMAND, the entries `cygwin', `windows' and `unix' are used (see `pr-path-alist' for documentation). If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND, COMMAND.exe, COMMAND.bat and COMMAND.com in this order. (defalias 'pr-command #[(command) "\303\230\203 \207\304\305!\206/ \306 \203 \307\202! \n\203 \310\202! \311\312!\313#\206/ \314\315\312!\"!\207" [command pr-cygwin-system ps-windows-system "" pr-dosify-file-name pr-find-command pr-path-command cygwin windows unix file-name-nondirectory nil error "Command not found: %s"] 5 (#$ . 142238)]) (defalias 'pr-path-command #[(symbol command sym-list) " \236A\306\307=\203 \204 \310\311\312!! \203S @\211 9\2035 \f >?\205F \313\f\f B#\202F \f;\205F \314\315\316\317\f!P!!!)\211\204S A\211\204 \n*\207" [symbol pr-path-alist cmd lpath path sym-list nil PATH parse-colon-path getenv "PATH" pr-path-command pr-find-command expand-file-name substitute-in-file-name file-name-as-directory command] 6]) (defalias 'pr-find-command #[(cmd) "\2038 \304 \305\"\306\307\310EB\311\312 ! \2035 @P\211\2035 \313\n!\203- \314\n!\2045 A\311\202 \n*\207\313 !\205E \314 !\205E \207" [ps-windows-system cmd found ext file-name-extension t ".exe" ".bat" ".com" nil file-name-sans-extension file-regular-p file-executable-p] 4]) (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\312\"\210\313B\302\313!\204i \303\313\314\"\210\315B\302\315!\204x \303\315\316\"\210\317B\302\317!\204\207 \303\317\320\"\210\321B\302\321!\204\226 \303\321\320\"\210\322B\302\322!\204\245 \303\322\320\"\210\323B\302\323!\204\264 \303\323\304\"\210\324B\302\324!\204\303 \303\324\325\"\210\326B\302\326!\204\322 \303\326\327\"\210\304\207" [current-load-list pr-i-window-configuration default-boundp set-default nil pr-i-buffer pr-i-region pr-i-mode pr-i-despool pr-i-ps-as-is t pr-i-n-up 1 pr-i-directory "./" pr-i-regexp "" pr-i-ps-file pr-i-out-file pr-i-answer-yes pr-i-process buffer pr-i-ps-send printer] 3) #@26 Keymap for pr-interface. (defvar pr-interface-map nil (#$ . 144739)) (byte-code "\204 \303 \304 \n\"\210\305 \306\307#\210\305 \310\311#\210 )\303\207" [pr-interface-map map widget-keymap make-sparse-keymap pr-set-keymap-parents define-key "q" pr-interface-quit "?" pr-interface-help] 4) (defalias 'pr-interface-save '(macro . #[(&rest body) "\301\302BB\207" [body save-excursion (set-buffer pr-i-buffer)] 3])) #@44 Create the front end for printing package. (defalias 'pr-create-interface #[nil "\306p!\307 \n \236A\310 \311\312\313\314#\210\311\315\313\314#\210\316 \210\317\320(!!\210\321\320(!!\210\322)\323*R +\324\325\326+GZ\327\"+\"\210)\330\331\332\"\210\330,!\210\333 \210\334 \210\335 \210\324\336\325\337\340\"\"\210\341 \210\342 \210\343 \210\344 \210\345-!\210\346 \210eb\210 \205{ \347 \207" [pr-i-buffer pr-i-region major-mode pr-mode-alist pr-i-mode pr-i-window-configuration buffer-name ps-mark-active-p current-window-configuration put pr-i-process pr-widget-list nil pr-i-ps-send delete-other-windows kill-buffer get-buffer-create switch-to-buffer "printing v" " ps-print v" widget-insert make-string 79 32 pr-insert-italic "\nCurrent Directory : " 1 pr-insert-section-1 pr-insert-section-2 pr-insert-section-3 "\n\n " 77 45 pr-insert-section-4 pr-insert-section-5 pr-insert-section-6 pr-insert-section-7 use-local-map widget-setup pr-keep-region-active pr-buffer-name pr-version ps-print-version versions default-directory pr-interface-map] 5 (#$ . 145161)]) (defalias 'pr-insert-section-1 #[nil "\306\307\310\"\210\311\312\313\"\210\314\315\316\317 \320\211\n\203N \321\n@! \320 @\nA \203; \f\204; \322 @@\" A\211\204) \f\204J \323\324\325\326@FDB+\202 \237+\327\320\330&\210\331\332\333\334\335\332\336\337$#\210\331\340\333\334\341\340\342\343$#\210\311\312\344\"\210\345\344\346\347\325\350\351\352\353\354A&\n\210\345\355\346\347\325\356\351\357B&\210\360\361!\210\362\363\364\"\210\311\312\365\"\210\345\365\346\366\325\367\351\370\353\371C&\n\210\314\372\373\374D!\375\341%\210\362\376\377\"\207" [choices case-fold-search blist pr-buffer-name-ignore found ignore pr-insert-italic "\nPrint :" 1 pr-insert-radio-button pr-i-process buffer pr-insert-menu "Buffer List" pr-i-buffer buffer-list nil buffer-name string-match quote choice-item :format "%[%t%]" " Buffer : " (progn (pr-interface-save (setq pr-i-region (ps-mark-active-p) pr-i-mode (pr-mode-alist-p))) (pr-update-checkbox 'pr-i-region) (pr-update-checkbox 'pr-i-mode)) put pr-i-region pr-widget pr-insert-checkbox "\n " #[(widget &rest ignore) "\212q\210\304 )\305\n!\204 \306\211\2024 \203$ \307\310\n\307\"\210\311 \2024 \312 \210\313\314!\210\306\310\n\306\"\210\311 )\207" [pr-i-buffer region-p widget pr-i-region ps-mark-active-p widget-value nil t widget-value-set widget-setup ding message "There is no region active"] 3] " Region" pr-i-mode " " #[(widget &rest ignore) "\212q\210 \n\236A)\306\f!\204 \307\211\2026 \203& \310\311\f\310\"\210\312 \2026 \313 \210\314\315!\210\307\311\f\307\"\210\312 )\207" [pr-i-buffer major-mode pr-mode-alist mode-p widget pr-i-mode widget-value nil t widget-value-set widget-setup ding message "This buffer isn't in a mode that printing treats specially."] 3] " Mode\n" directory widget-create :size 58 " Directory : %v" :notify pr-interface-directory :action #[(widget &optional event) "\302!\203 \303 \"\207\304 \210\305\306!\207" [widget event pr-interface-directory pr-widget-field-action ding message "Please specify a readable directory"] 3] regexp "\n File Regexp : %v\n" #[(widget &rest ignore) "\302!\211\207" [widget pr-i-regexp widget-value] 2] widget-insert " " pr-insert-toggle pr-list-directory " List Directory Entry\n" file 51 " PostScript File : %v" pr-interface-infile #[(widget &rest event) "\302!\203 \303 \"\207\304 \210\305\306!\207" [widget event pr-interface-infile pr-widget-field-action ding message "Please specify a readable PostScript file"] 3] "PostScript Utility" pr-ps-utility pr-choice-alist "\n PostScript Utility : " pr-i-ps-as-is " No Preprocessing" name pr-i-directory pr-i-regexp pr-i-ps-file pr-ps-utility-alist] 12]) (defalias 'pr-insert-section-2 #[nil "\303\304\305\306#\210\307\310\311\312!#\210\313\314\315\316\317\314\320\321$#\210\322\323\324\325#\210\322\326\327\325#\210\322\330\331\"\210\332\333\334\"\210\335\336!\210\332\333\337\"\210\340\337\341\342\343\344\345\346\347\350 &\n\210\340\351\341\352\343\353\345\354\n&\207" [pr-ps-printer-alist pr-i-out-file pr-i-n-up pr-insert-italic "\n\nPostScript Printer : " 2 20 pr-insert-menu "PostScript Printer" pr-ps-name pr-choice-alist put pr-i-despool pr-widget pr-insert-checkbox " " #[(widget &rest ignore) "\203\n ?\202 \303 \210\304\305!\210\306\307\n \"\210\310 \207" [pr-spool-p pr-i-despool widget ding message "Can despool only when spooling is actually selected" nil widget-value-set widget-setup] 3] " Despool " pr-insert-button pr-interface-preview "Preview" " " pr-interface-ps-print "Print" pr-interface-quit "Quit" pr-insert-radio-button pr-i-ps-send printer widget-insert " Send to Printer/Temporary File" file widget-create :size 57 :format " Send to File : %v" :notify pr-interface-outfile :action #[(widget &rest event) "\304!\203 \305 !\203 \306\307!\211\203 \310 \"\207\311 \210\312\313!\207" [widget pr-i-out-file pr-i-answer-yes event pr-interface-outfile file-exists-p y-or-n-p "File exists; overwrite? " pr-widget-field-action ding message "Please specify a writable PostScript file"] 3] integer 3 "\n N-Up : %v" #[(widget &rest ignore) "\303\304\"\305\230\203 \306\202 \307!\211\250\203, \310 X\203, \311X\203, \312\313!\210 \211\2022 \314 \210\312\315!)\207" [widget value pr-i-n-up widget-apply :value-get "" 0 widget-value 1 100 message " " ding "Please specify an integer between 1 and 100"] 4]] 11]) (defalias 'pr-insert-section-3 #[nil "\301\302\303\304#\210\305\306\307\310!\311\312%\210\313\314\315\316#\210\313\317\320\316#\210\313\321\322\"\207" [pr-txt-printer-alist pr-insert-italic "\n\nText Printer : " 2 14 pr-insert-menu "Text Printer" pr-txt-name pr-choice-alist nil " " pr-insert-button pr-interface-printify "Printify" " " pr-interface-txt-print "Print" pr-interface-quit "Quit"] 6]) (defalias 'pr-insert-section-4 #[nil "\301\302\303\304\305$\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\301\327\330\331\332$\210\301\333\334\335\336$\210\306\337\340\"\210\301\333\341\342\343$\210\306\344\345\"\210\306\346\347\"\210\350\351\352\353#\210\354\355\356\357\360\"#\207" [pr-even-or-odd-alist pr-insert-checkbox "\n\n " ps-landscape-mode #[(&rest ignore) "?\211\211\207" [ps-landscape-mode pr-file-landscape] 3] " Landscape " pr-insert-toggle pr-auto-region " Auto Region " pr-buffer-verbose " Verbose\n " ps-print-header " Print Header " pr-auto-mode " Auto Mode\n " ps-print-header-frame " Print Header Frame " pr-menu-lock " Menu Lock\n " ps-line-number " Line Number\n " ps-zebra-stripes " Zebra Stripes" " " pr-spool-p #[(&rest ignore) "?\211?\205 \302\303\301!\207" [pr-spool-p pr-i-despool nil pr-update-checkbox] 3] " Spool Buffer" "\n " ps-spool-duplex #[(&rest ignore) "?\211\211\207" [ps-spool-duplex pr-file-duplex] 3] " Duplex " pr-faces-p " Print with faces" ps-spool-tumble #[(&rest ignore) "?\211\211\207" [ps-spool-tumble pr-file-tumble] 3] " Tumble " pr-print-using-ghostscript " Print via Ghostscript\n " ps-print-upside-down " Upside-Down" pr-insert-italic "\n\nSelect Pages : " 2 14 pr-insert-menu "Page Parity" ps-even-or-odd-pages mapcar #[(alist) "\301\302\303\304\305A\306@\257D\207" [alist quote choice-item :format "%[%t%]" :tag :value] 8]] 6]) (defalias 'pr-insert-section-5 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\307#\210\304\312\313\"\207" [pr-insert-italic "\n\nCustomize : " 2 11 pr-insert-button pr-customize "printing" " " #[(&rest ignore) "\300 \207" [ps-print-customize] 1] "ps-print" lpr-customize "lpr"] 4]) (defalias 'pr-insert-section-6 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\307#\210\304\312\313\"\207" [pr-insert-italic "\nShow Settings : " 1 14 pr-insert-button pr-show-pr-setup "printing" " " pr-show-ps-setup "ps-print" pr-show-lpr-setup "lpr"] 4]) (defalias 'pr-insert-section-7 #[nil "\300\301\302\303#\210\304\305\306\307#\210\304\310\311\312#\210\304\313\314\315#\210\304\316\317\"\207" [pr-insert-italic "\nHelp : " 1 5 pr-insert-button pr-interface-help "Interface Help" " " pr-help "Menu Help" " " pr-interface-quit "Quit" "\n " pr-kill-help "Kill All Printing Help Buffer"] 4]) #@32 Kill all printing help buffer. (defalias 'pr-kill-help #[(&rest ignore) "\302\203 \303@!A \203 \304 !\210\305 !\210)\202 )\306\307 \310Z!\207" [help buffer ("*Printing Interface Help*" "*Printing Help*" "*LPR Setup*" "*PR Setup*" "*PS Setup*") get-buffer delete-windows-on kill-buffer recenter window-height 2] 3 (#$ . 153588) nil]) #@46 Kill the printing buffer interface and quit. (defalias 'pr-interface-quit #[(&rest ignore) "\302!\210\303 !\207" [pr-buffer-name pr-i-window-configuration kill-buffer set-window-configuration] 2 (#$ . 153936) nil]) #@33 printing buffer interface help. (defalias 'pr-interface-help #[(&rest ignore) "\301\302\"\207" [pr-interface-help-message pr-show-setup "*Printing Interface Help*"] 3 (#$ . 154158) nil]) #@26 Print using lpr package. (defalias 'pr-interface-txt-print #[(&rest ignore) "\300\301\302\217\207" [data (byte-code "\306=\203 \302 \210\212 q\210\307\n \")\207\310=\203B \212 q\210\f\203* \311 )\202@ \2037 \312 \313 )\202@ \312\211 \314 *)\207\315=\203L \316\317!\207\316\320\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region pr-i-mode directory pr-txt-directory buffer pr-txt-region nil pr-txt-mode pr-txt-buffer file error "Please specify a text file" "Internal error: `pr-i-process' = %S" pr-auto-mode pr-auto-region] 3) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3 (#$ . 154352) nil]) #@20 Printify a buffer. (defalias 'pr-interface-printify #[(&rest ignore) "\300\301\302\217\207" [data (byte-code "\305=\203 \302 \210\212 q\210\306\n \")\207\307=\203* \212 q\210\f\203& \310 \202( \311 )\207\312=\2034 \313\314!\207\313\315\"\207" [pr-i-process pr-i-buffer pr-i-directory pr-i-regexp pr-i-region directory pr-printify-directory buffer pr-printify-region pr-printify-buffer file error "Cannot printify a PostScript file" "Internal error: `pr-i-process' = %S"] 3) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3 (#$ . 155050) nil]) #@31 Print using ps-print package. (defalias 'pr-interface-ps-print #[(&rest ignore) "\300\301\302\303\304\305\306\307&\207" [pr-interface-ps pr-despool-ps-print pr-ps-directory-ps-print pr-ps-file-ps-print pr-ps-file-up-ps-print pr-ps-region-ps-print pr-ps-mode-ps-print pr-ps-buffer-ps-print] 8 (#$ . 155667) nil]) #@28 Preview a PostScript file. (defalias 'pr-interface-preview #[(&rest ignore) "\300\301\302\303\304\305\306\307&\207" [pr-interface-ps pr-despool-preview pr-ps-directory-preview pr-ps-file-preview pr-ps-file-up-preview pr-ps-region-preview pr-ps-mode-preview pr-ps-buffer-preview] 8 (#$ . 155986) nil]) (defalias 'pr-interface-ps #[(ps-despool ps-directory ps-file ps-file-up ps-region ps-mode ps-buffer) "\300\301\302\217\207" [data (byte-code "\306=\203\n \206\f \307 \203' \f\203' \212 q\210\n!\210)\310\311\303!\202\301 \312=\203B \313 \210\212 q\210 \n$)\202\301 \306=\203} \314!\204V \315!\204\\ \316\317!\202\301 \203m \212 q\210!)\202\301 \212 q\210\n#)\202\301 \320=\203\275 \212 q\210\203\232 \n\")\202\271 \203\254 \310 \n\")\202\271 \310\211 \n\"*)\202\301 \316\321\")\207" [pr-i-process pr-i-ps-as-is outfile pr-i-despool pr-spool-p pr-i-buffer file pr-i-ps-send nil pr-update-checkbox directory pr-i-directory file-directory-p file-readable-p error "Please specify a readable PostScript file" buffer "Internal error: `pr-i-process' = %S" ps-despool ps-directory pr-i-n-up pr-i-regexp pr-i-ps-file ps-file ps-file-up pr-i-region pr-i-mode pr-auto-mode ps-region pr-auto-region ps-mode ps-buffer] 5) (((quit error) (byte-code "\301 \210\302\303\304!\"\207" [data ding message "%s" error-message-string] 4)))] 3]) (defalias 'pr-i-ps-send #[nil "\303=\203 \304\207\305=\204 \306\307\"\207\310 !\204 \311 !\204# \306\312!\207\313 !\2038 \n\2048 \314\315\316 \"!\211\203: \207\306\317!\207" [pr-i-ps-send pr-i-out-file pr-i-answer-yes printer nil file error "Internal error: `pr-i-ps-send' = %S" file-directory-p file-writable-p "Please specify a writable PostScript file" file-exists-p y-or-n-p format "File `%s' exists; overwrite? " "File already exists"] 4]) (defalias 'pr-i-directory #[nil "\301!\203\f \302!\206 \303\304!\207" [pr-i-directory file-directory-p file-readable-p error "Please specify be a readable directory"] 2]) (defalias 'pr-interface-directory #[(widget &rest ignore) "\203 \304\305!\210\306 !\307\n!\205 \310\n!\205 \n\211)\207" [pr-buffer-verbose widget dir pr-i-directory message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-readable-p] 2]) (defalias 'pr-interface-infile #[(widget &rest ignore) "\203 \304\305!\210\306 !\307\n!?\205 \310\n!\205 \n\211)\207" [pr-buffer-verbose widget file pr-i-ps-file message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-readable-p] 2]) (defalias 'pr-interface-outfile #[(widget &rest ignore) "\305 \203\n \306\307!\210\310\n!\311 !?\205 \312 !\205 \211)\207" [pr-i-answer-yes pr-buffer-verbose widget file pr-i-out-file nil message "You can use M-TAB or ESC TAB for file completion" widget-value file-directory-p file-writable-p] 2]) (defalias 'pr-widget-field-action #[(widget event) "\302\303!\203\n \304\303!\210\305\306!\210\307 \"\207" [widget event get-buffer "*Completions*" delete-windows-on message " " widget-field-action] 3]) (defalias 'pr-insert-italic #[(str &optional from to) "G\304\n\203 \n\305]\202 \305 \203 ]\202 \306\307%\210\310!)\207" [str len from to put-text-property 0 face italic widget-insert] 6]) (defalias 'pr-insert-checkbox #[(before var-sym fun label) "\304!\210\305\306\307 \nJ$\304 !\210\207" [before fun var-sym label widget-insert widget-create checkbox :notify] 5]) (defalias 'pr-insert-toggle #[(var-sym label) "\302\303\304\305\306\307\310DEEJ$\210\311 !\207" [var-sym label widget-create checkbox :notify lambda (&rest ignore) setq not widget-insert] 9]) (defalias 'pr-insert-button #[(fun label &optional separator) "\303\304\305 $\210\n\205 \306\n!\207" [fun label separator widget-create push-button :notify widget-insert] 5]) (defalias 'pr-insert-menu #[(tag var-sym choices &optional before after &rest body) "\203 \306!\210\307\310\311\312 \313\314\315\316\317\n\320\321\322\323\n\324BB BBB\325\326\fBBBBBBBBBBBBBB!\210 \2059 \306 !\207" [before tag var-sym body choices after widget-insert eval widget-create 'menu-choice :tag :format "%v" :inline t :value :notify lambda (widget &rest ignore) setq ((widget-value widget)) :void '(choice-item :format "%[%t%]" :tag "Can not display value!")] 17]) (defalias 'pr-insert-radio-button #[(var-sym sym) "\304\305!\210\306N\307\310\311\312\313\314\315\316 DE\317\320\321\322\316 DE\323\316DDF\257!\324\306\n B B#*\207" [var-sym sym wid wid-list widget-insert "\n" pr-widget-list eval widget-create 'radio-button :format " %[%v%]" :value eq quote :notify lambda (&rest ignore) setq pr-update-radio-button put] 15]) (defalias 'pr-update-radio-button #[(var-sym) "\304N \203 @@ @A A\305 J\n=\"\210*\202 \306 )\207" [var-sym wid-list value wid pr-widget-list widget-value-set widget-setup] 4]) (defalias 'pr-update-checkbox #[(var-sym) "\302N\211\205 \303 J\"\210\304 )\207" [var-sym wid pr-widget widget-value-set widget-setup] 4]) (defalias 'pr-choice-alist #[(alist) "\302\301\303\304\"\"\303\305\")\207" [alist max apply mapcar #[(alist) "\301@!G\207" [alist symbol-name] 2] #[(alist) "@\304 !\305\306\307\310\311\n\312 \nGZ\313\"P\314 \257*D\207" [alist sym name max symbol-name quote choice-item :format "%[%t%]" :tag make-string 95 :value] 9]] 5]) (provide 'printing)
Close
