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 : woman.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:29 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/woman.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 "`woman.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@28 WoMan version information. (defvar woman-version "0.551 (beta)" (#$ . 601)) (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207" [require man button define-button-type WoMan-xref-man-page :supertype Man-abstract-xref-man-page func #[(arg) "\302\303 \"\203 \304\305\225O\202 !\207" [Man-reference-regexp arg woman string-match 0 1] 4]] 6) #@145 Return concatenated list of FN applied to successive `car' elements of X. FN must return a list, cons or nil. Useful for splicing into a list. (defalias 'woman-mapcan #[(fn x) "\302\303\304 \"\"\207" [fn x apply nconc mapcar] 5 (#$ . 967)]) #@277 Explode search path string PATHS into a list of directory names. Allow Cygwin colon-separated search paths on Microsoft platforms. Replace null components by calling `woman-parse-man.conf'. As a special case, if PATHS is nil then replace it by calling `woman-parse-man.conf'. (defalias 'woman-parse-colon-path #[(paths) "\303>\2032 \204 \304\305\306 \"\207\307\310 \"\203 \311\312\313 !\"\207\307\314 \"\203( C\207\311\315\316\313 !)\"\207\311\317\313 \206: \320!\"\207" [system-type paths path-separator (windows-nt ms-dos) mapcar woman-Cyg-to-Win woman-parse-man\.conf string-match ";" woman-mapcan #[(x) "\203 C\207\301\302\303 \"\207" [x mapcar woman-Cyg-to-Win woman-parse-man\.conf] 3] parse-colon-path "\\`[a-zA-Z]:" #[(x) "\301\302\203 C\202 \303 \"\207" [x mapcar woman-Cyg-to-Win woman-parse-man\.conf] 3] ":" #[(x) "\203 C\207\301 \207" [x woman-parse-man\.conf] 1] ""] 4 (#$ . 1217)]) #@64 Convert an absolute filename FILE from Cygwin to Windows form. (defalias 'woman-Cyg-to-Win #[(file) ":\203 \207\301H\302=\203 \303\304\305\217\207\207" [file 0 47 nil (byte-code "\302\303!rq\210\304\216\305\306\307\310\307\311 &\210\312\313 {+\207" [#1=#:temp-buffer file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process "cygpath" nil t "-m" 1 buffer-size] 7) ((error (byte-code "\301\302\"\203 \303\224\203 \303\225\304O\305\303HI\210\303\306I\210\207" [file string-match "\\`\\(/cygdrive\\|/\\)?/./" 1 nil 0 58] 4)))] 3 (#$ . 2136)]) (custom-declare-group 'woman nil "Browse UNIX manual pages `wo (without) man'." :tag "WoMan" :group 'help) #@126 If non-nil then show the *WoMan-Log* buffer if appropriate. I.e. if any warning messages are written to it. Default is nil. (custom-declare-variable 'woman-show-log 'nil '(#$ . 2878) :type 'boolean :group 'woman) #@119 Hook run by WoMan immediately before formatting a buffer. Change only via `Customization' or the function `add-hook'. (custom-declare-variable 'woman-pre-format-hook 'nil '(#$ . 3099) :type 'hook :group 'woman) #@118 Hook run by WoMan immediately after formatting a buffer. Change only via `Customization' or the function `add-hook'. (custom-declare-variable 'woman-post-format-hook 'nil '(#$ . 3317) :type 'hook :group 'woman) (custom-declare-group 'woman-interface nil "Interface options for browsing UNIX manual pages `wo (without) man'." :tag "WoMan Interface" :group 'woman) #@385 List of dirs to search and/or files to try for man config file. A trailing separator (`/' for UNIX etc.) on directories is optional, and the filename is used if a directory specified is the first to start with "man" and has an extension starting with ".conf". If MANPATH is not set but a config file is found then it is parsed instead to provide a default value for `woman-manpath'. (custom-declare-variable 'woman-man\.conf-path '(let ((path '("/usr/lib" "/etc"))) (cond ((eq system-type 'windows-nt) (mapcar 'woman-Cyg-to-Win path)) ((eq system-type 'darwin) (cons "/usr/share/misc" path)) (t path))) '(#$ . 3687) :type '(repeat string) :group 'woman-interface) #@369 Parse if possible configuration file for man command. Used only if MANPATH is not set or contains null components. Look in `woman-man.conf-path' and return a value for `woman-manpath'. Concatenate data from all lines in the config file of the form MANPATH /usr/man or MANDATORY_MANPATH /usr/man or OPTIONAL_MANPATH /usr/man or MANPATH_MAP /opt/bin /opt/man (defalias 'woman-parse-man\.conf #[nil "\305\211\211\203h \306 @\211!\203a \307\n!\203- \310\n\311\312\311$\211\203a \306\n@\211!\203a \313\314! r\fq\210\315\216\316\n!\210\317\320\305\311#\203\\ \321\301\322\224\203P \323\322!\202W \323\324!\323\325!B\"\210\202; +\204h A\211\204\n \237+\207" [woman-man\.conf-path manpath file path #1=#:temp-buffer nil file-readable-p file-directory-p directory-files t "\\`man.*\\.conf[a-z]*\\'" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^[ ]*\\(?:\\(?:MANDATORY_\\|OPTIONAL_\\)?MANPATH[ ]+\\(\\S-+\\)\\|MANPATH_MAP[ ]+\\(\\S-+\\)[ ]+\\(\\S-+\\)\\)" add-to-list 1 match-string 2 3] 6 (#$ . 4359)]) #@244 String specifying a manual page locale, or nil. If a manual page is available in the specified locale (e.g. "sv_SE.ISO8859-1"), it will be offered in preference to the default version. Normally, `set-locale-environment' sets this at startup. (custom-declare-variable 'woman-locale 'nil '(#$ . 5492) :type '(choice string (const nil)) :group 'woman-interface :version "23.1") #@253 Expand a locale into a list suitable for man page lookup. Expands a locale of the form LANGUAGE_TERRITORY.CHARSET into the list: LANGUAGE_TERRITORY.CHARSET LANGUAGE_TERRITORY LANGUAGE.CHARSET LANGUAGE. The TERRITORY and CHARSET portions may be absent. (defalias 'woman-expand-locale #[(locale) "\304\305\"\210\306\307\"\306\310\"\306\311\"\312\313 \205\" \n\205\" \nP \205- \n\205- P \2045 \n\2056 F\"+\207" [locale charset terr lang string-match "\\([^._]*\\)\\(_[^.]*\\)?\\(\\..*\\)?" match-string 1 2 3 delq nil] 6 (#$ . 5875)]) #@264 Add locale-specific subdirectories to the elements of MANPATH. MANPATH is a list of the form of `woman-manpath'. Returns a list with those locale-specific subdirectories specified by the action of `woman-expand-locale' on `woman-locale' added, where they exist. (defalias 'woman-manpath-add-locales #[(manpath) "\306G!\203 \207\307!\310\211 \310 \211 \203p @\f\310 \211 \203a @\311\312\313\314 :\203= A\202> !\"!\211!\203X \315\303 :\203U @\nB\202V \n\"\210A\211\204( *\315\303 \"\210A\211\204 \310 \237-\207" [woman-locale manpath dir lst subdirs elem zerop woman-expand-locale nil file-directory-p file-name-as-directory expand-file-name substitute-in-file-name add-to-list #1=#:--cl-dolist-temp-- sub #2=#:--cl-dolist-temp--] 8 (#$ . 6426)]) #@1360 List of DIRECTORY TREES to search for UN*X manual files. Each element should be the name of a directory that contains subdirectories of the form `man?', or more precisely subdirectories selected by the value of `woman-manpath-man-regexp'. Non-directory and unreadable files are ignored. Elements can also be a cons cell indicating a mapping from PATH to manual trees: if such an element's car is equal to a path element of the environment variable PATH, the cdr of the cons cell is included in the directory tree search. If not set then the environment variable MANPATH is used. If no such environment variable is found, the default list is determined by consulting the man configuration file if found, which is determined by the user option `woman-man.conf-path'. An empty substring of MANPATH denotes the default list. Any environment variables (names must have the UN*X-style form $NAME, e.g. $HOME, $EMACSDATA, $emacs_dir) are evaluated first but each element must evaluate to a SINGLE directory name. Trailing `/'s are ignored. (Specific directories in `woman-path' are also searched.) Microsoft platforms: I recommend including drive letters explicitly, e.g. ("C:/Cygwin/usr/man/" "C:/Cygwin/usr/local/man"). The MANPATH environment variable may be set using DOS semi-colon- separated or UN*X/Cygwin colon-separated syntax (but not mixed). (custom-declare-variable 'woman-manpath '(or (woman-manpath-add-locales (woman-parse-colon-path (getenv "MANPATH"))) '("/usr/man" "/usr/share/man" "/usr/local/man")) '(#$ . 7213) :type '(repeat (choice string (cons string string))) :version "23.1" :group 'woman-interface) #@274 Regexp to match man directories UNDER `woman-manpath' directories. These normally have names of the form `man?'. Its default value is "[Mm][Aa][Nn]", which is case-insensitive mainly for the benefit of Microsoft platforms. Its purpose is to avoid `cat?', `.', `..', etc. (custom-declare-variable 'woman-manpath-man-regexp '"[Mm][Aa][Nn]" '(#$ . 8852) :type 'string :group 'woman-interface) #@999 List of SPECIFIC DIRECTORIES to search for UN*X manual files. For example ("/emacs/etc"). These directories are searched in addition to the directory trees specified in `woman-manpath'. Each element should be a directory string or nil, which represents the current directory when the path is expanded and cached. However, the last component (only) of each directory string is treated as a regexp (Emacs, not shell) and the string is expanded into a list of matching directories. Non-directory and unreadable files are ignored. The default value is nil. Any environment variables (which must have the UN*X-style form $NAME, e.g. $HOME, $EMACSDATA, $emacs_dir) are evaluated first but each element must evaluate to a SINGLE directory name (regexp, see above). For example ("$EMACSDATA") [or equivalently ("$emacs_dir/etc")]. Trailing `/'s are discarded. (The directory trees in `woman-manpath' are also searched.) On Microsoft platforms I recommend including drive letters explicitly. (custom-declare-variable 'woman-path '(if (eq system-type 'ms-dos) '("$DJDIR/info" "$DJDIR/man/cat[1-9onlp]")) '(#$ . 9251) :type '(repeat (choice string (const nil))) :group 'woman-interface) #@706 The level of topic caching. 1 - cache only the topic and directory lists (the only level before version 0.34 - only for compatibility); 2 - cache also the directories for each topic (faster, without using much more memory); 3 - cache also the actual filenames for each topic (fastest, but uses twice as much memory). The default value is currently 2, a good general compromise. If the `woman' command is slow to find files then try 3, which may be particularly beneficial with large remote-mounted man directories. Run the `woman' command with a prefix argument or delete the cache file `woman-cache-filename' for a change to take effect. (Values < 1 behave like 1; values > 3 behave like 3.) (custom-declare-variable 'woman-cache-level '2 '(#$ . 10449) :type '(choice (const :tag "Minimal" 1) (const :tag "Default" 2) (const :tag "Maximal" 3)) :group 'woman-interface) #@383 The full pathname of the WoMan directory and topic cache file. It is used to save and restore the cache between sessions. This is especially useful with remote-mounted man page files! The default value of nil suppresses this action. The `standard' non-nil filename is "~/.wmncach.el". Remember that a prefix argument forces the `woman' command to update and re-write the cache. (custom-declare-variable 'woman-cache-filename 'nil '(#$ . 11338) :type '(choice (const :tag "None" nil) (const :tag "~/.wmncach.el" "~/.wmncach.el") file) :group 'woman-interface) #@198 List of `dired' mode keys to define to run WoMan on current file. E.g. '("w" "W"), or any non-null atom to automatically define "w" and "W" if they are unbound, or nil to do nothing. Default is t. (custom-declare-variable 'woman-dired-keys 't '(#$ . 11908) :type '(choice (const :tag "None" nil) (repeat string) (other :tag "Auto" t)) :group 'woman-interface) #@163 Imenu support for Sections and Subsections. An alist with elements of the form (MENU-TITLE REGEXP INDEX) -- see the documentation for `imenu-generic-expression'. (custom-declare-variable 'woman-imenu-generic-expression ''((nil "\n\\([A-Z].*\\)" 1) ("*Subsections*" "^ \\([A-Z].*\\)" 1)) '(#$ . 12275) :type 'sexp :group 'woman-interface) #@125 If non-nil then WoMan adds a Contents menu to the menubar. It does this by calling `imenu-add-to-menubar'. Default is nil. (custom-declare-variable 'woman-imenu 'nil '(#$ . 12622) :type 'boolean :group 'woman-interface) #@87 The title to use if WoMan adds a Contents menu to the menubar. Default is "CONTENTS". (custom-declare-variable 'woman-imenu-title '"CONTENTS" '(#$ . 12849) :type 'string :group 'woman-interface) #@47 Default value for `woman-use-topic-at-point'. (custom-declare-variable 'woman-use-topic-at-point-default 'nil '(#$ . 13050) :type '(choice (const :tag "Yes" t) (const :tag "No" nil)) :group 'woman-interface) #@184 Control use of the word at point as the default topic. If non-nil the `woman' command uses the word at point automatically, without interactive confirmation, if it exists as a topic. (custom-declare-variable 'woman-use-topic-at-point 'woman-use-topic-at-point-default '(#$ . 13265) :type '(choice (const :tag "Yes" t) (const :tag "No" nil)) :group 'woman-interface) #@236 Regexp used to select (possibly compressed) man source files, e.g. "\.\([0-9lmnt]\w*\)\(\.\(g?z\|bz2\)\)?\'". Built automatically from the customizable user options `woman-uncompressed-file-regexp' and `woman-file-compression-regexp'. (defvar woman-file-regexp nil (#$ . 13638)) #@215 Bind SYMBOL to VALUE and set `woman-file-regexp' as per user customizations. Used as :set cookie by Customize when customizing the user options `woman-uncompressed-file-regexp' and `woman-file-compression-regexp'. (defalias 'set-woman-file-regexp #[(symbol value) "\305 \"\210\306\302!\205 \306\303!\205 \n\307 \310\311O\312R\211\207" [symbol value woman-uncompressed-file-regexp woman-file-compression-regexp woman-file-regexp set-default boundp "\\(" 0 -2 "\\)?\\'"] 5 (#$ . 13924)]) #@475 Do not change this unless you are sure you know what you are doing! Regexp used to select man source files (ignoring any compression extension). The SysV standard man pages use two character suffixes, and this is becoming more common in the GNU world. For example, the man pages in the ncurses package include `toe.1m', `form.3x', etc. Note: an optional compression regexp will be appended, so this regexp MUST NOT end with any kind of string terminator such as $ or \'. (custom-declare-variable 'woman-uncompressed-file-regexp '"\\.\\([0-9lmnt]\\w*\\)" '(#$ . 14421) :type 'regexp :set 'set-woman-file-regexp :group 'woman-interface) #@312 Do not change this unless you are sure you know what you are doing! Regexp used to match compressed man file extensions for which decompressors are available and handled by auto-compression mode, e.g. "\\.\\(g?z\\|bz2\\)\\'" for `gzip' or `bzip2'. Should begin with \. and end with \' and MUST NOT be optional. (custom-declare-variable 'woman-file-compression-regexp '"\\.\\(g?z\\|bz2\\)\\'" '(#$ . 15066) :type 'regexp :set 'set-woman-file-regexp :group 'woman-interface) #@136 If non-nil then use a dedicated frame for displaying WoMan windows. Only useful when run on a graphic display such as X or MS-Windows. (custom-declare-variable 'woman-use-own-frame '(or (and (fboundp 'display-graphic-p) (display-graphic-p)) (memq window-system '(x w32 ns))) '(#$ . 15546) :type 'boolean :group 'woman-interface) (custom-declare-group 'woman-formatting nil "Formatting options for browsing UNIX manual pages `wo (without) man'." :tag "WoMan Formatting" :group 'woman) #@51 Right margin for formatted text -- default is 65. (custom-declare-variable 'woman-fill-column '65 '(#$ . 16036) :type 'integer :group 'woman-formatting) #@51 If non-nil then most of the window width is used. (custom-declare-variable 'woman-fill-frame 'nil '(#$ . 16195) :type 'boolean :group 'woman-formatting) #@117 Default prevailing indent set by -man macros -- default is 5. Set this variable to 7 to emulate GNU man formatting. (custom-declare-variable 'woman-default-indent '5 '(#$ . 16355) :type 'integer :group 'woman-formatting) #@126 If non-nil then embolden section and subsection headings. Default is t. Heading emboldening is NOT standard `man' behavior. (custom-declare-variable 'woman-bold-headings 't '(#$ . 16583) :type 'boolean :group 'woman-formatting) #@179 If non-nil then unrecognized requests etc. are ignored. Default is t. This gives the standard ?roff behavior. If nil then they are left in the buffer, which may aid debugging. (custom-declare-variable 'woman-ignore 't '(#$ . 16819) :type 'boolean :group 'woman-formatting) #@426 If non-nil, preserve ASCII characters in the WoMan buffer. Otherwise, to save time, some backslashes and spaces may be represented differently (as the values of the variables `woman-escaped-escape-char' and `woman-unpadded-space-char' respectively) so that the buffer content is strictly wrong even though it should display correctly. This should be irrelevant unless the buffer text is searched, copied or saved to a file. (custom-declare-variable 'woman-preserve-ascii 't '(#$ . 17101) :type 'boolean :group 'woman-formatting) #@143 WoMan emulation, currently either nroff or troff. Default is nroff. Troff emulation is experimental and largely untested. (Add groff later?) (custom-declare-variable 'woman-emulation ''nroff '(#$ . 17638) :type '(choice (const nroff) (const troff)) :group 'woman-formatting) (custom-declare-group 'woman-faces nil "Face options for browsing UNIX manual pages `wo (without) man'." :tag "WoMan Faces" :group 'woman :group 'faces) #@152 If non-nil then WoMan assumes that face support is available. It defaults to a non-nil value if the display supports either colors or different fonts. (custom-declare-variable 'woman-fontify '(or (and (fboundp 'display-color-p) (display-color-p)) (and (fboundp 'display-graphic-p) (display-graphic-p)) (x-display-color-p)) '(#$ . 18074) :type 'boolean :group 'woman-faces) (byte-code "\300\301\302\303\304\305%\210\306\307\310\301#\210\300\311\312\313\304\305%\210\306\314\310\311#\210\300\315\316\317\304\305%\210\306\320\310\315#\210\300\321\322\323\304\305%\210\306\324\310\321#\207" [custom-declare-face woman-italic ((((min-colors 88) (background light)) (:slant italic :underline t :foreground "red1")) (((background light)) (:slant italic :underline t :foreground "red")) (((background dark)) (:slant italic :underline t))) "Face for italic font in man pages." :group woman-faces put woman-italic-face face-alias woman-bold ((((min-colors 88) (background light)) (:weight bold :foreground "blue1")) (((background light)) (:weight bold :foreground "blue")) (((background dark)) (:weight bold :foreground "green2"))) "Face for bold font in man pages." woman-bold-face woman-unknown ((((background light)) (:foreground "brown")) (((min-colors 88) (background dark)) (:foreground "cyan1")) (((background dark)) (:foreground "cyan"))) "Face for all unknown fonts in man pages." woman-unknown-face woman-addition ((t (:foreground "orange"))) "Face for all WoMan additions to man pages." woman-addition-face] 6) #@73 Set foreground colors of italic and bold faces to their default values. (defalias 'woman-default-faces #[nil "\301\302\211\302\303N\206 \304N\206 \211\305N))\"\210\301\306\211\306\303N\206/ \304N\206/ \211\305N))\"\207" [face face-spec-set woman-italic customized-face saved-face face-defface-spec woman-bold] 5 (#$ . 19592) nil]) #@116 Set foreground colors of italic and bold faces to that of the default face. This is usually either black or white. (defalias 'woman-monochrome-faces #[nil "\300\301\302\"\210\300\303\302\"\207" [set-face-foreground woman-italic unspecified woman-bold] 3 (#$ . 19940) nil]) #@65 If non-nil then non-ASCII characters and symbol font supported. (defconst woman-font-support (eq window-system 'w32) (#$ . 20219)) #@61 Select symbol fonts from a list FONTS of font name strings. (defalias 'woman-select-symbol-fonts #[(fonts) "\304 \304\211\203% @\305\306\n\"\203 \n\235\204 \nB A\211\204\n *)\207" [symbol-fonts fonts font #1=#:--cl-dolist-temp-- nil string-match "-Symbol-"] 4 (#$ . 20356)]) (byte-code "\203L \303\304!\210\305\306\307\310\311\312\313\314&\210\305\315\316\317\311\312\313\314&\210\302 B\320\302\321\322#\210\323\324\325\326\327\"!\2067 \324\325\326!!!\210\305\330\331\332\311\333\334\335\336\n\"\337\"B\313\314&\210\306 B\340\306!\204[ \341\306\316\"\210\315 B\340\315!\204j \341\315\316\"\210\330 B\340\330!\204y \341\330\316\"\210\316\207" [woman-font-support current-load-list woman-symbol-font-list make-face woman-symbol custom-declare-variable woman-use-extended-font t "If non-nil then may use non-ASCII characters from the default font." :type boolean :group woman-faces woman-use-symbol-font nil "If non-nil then may use the symbol font.\nIt is off by default, mainly because it may change the line spacing\n(in NTEmacs 20.5)." put variable-documentation "Symbol font(s), preferably same size as default when WoMan was loaded." (lambda (#1=#:defconst-tmp-var) (defconst woman-symbol-font-list #1#)) woman-select-symbol-fonts x-list-fonts "*" default woman-symbol-font (car woman-symbol-font-list) "A string describing the symbol font to use for special characters.\nIt should be compatible with, and the same size as, the default text font.\nUnder MS-Windows, the default is\n \"-*-Symbol-normal-r-*-*-*-*-96-96-p-*-ms-symbol\"." choice append mapcar #[(x) "\301D\207" [x const] 2] (string) default-boundp set-default] 10) #@48 Justify styles for `fill-region-as-paragraph'. (defconst woman-justify-list '(left right center full) (#$ . 22016)) #@54 Adjustment indicator `l' -- adjust left margin only. (defconst woman-adjust-left 0 (#$ . 22138)) #@55 Adjustment indicator `r' -- adjust right margin only. (defconst woman-adjust-right 1 (#$ . 22241)) #@37 Adjustment indicator `c' -- center. (defconst woman-adjust-center 2 (#$ . 22346)) #@57 Adjustment indicator `b' or `n' -- adjust both margins. (defconst woman-adjust-both 3 (#$ . 22434)) #@43 Current adjustment number-register value. (defvar woman-adjust woman-adjust-both (#$ . 22540)) #@44 Previous adjustment number-register value. (defvar woman-adjust-previous woman-adjust (#$ . 22641)) #@61 Current justification style for `fill-region-as-paragraph'. (defvar woman-justify (nth woman-adjust woman-justify-list) (#$ . 22747)) #@62 Previous justification style for `fill-region-as-paragraph'. (defvar woman-justify-previous woman-justify (#$ . 22887)) #@22 Current left margin. (defvar woman-left-margin woman-default-indent (#$ . 23013)) #@28 Current prevailing indent. (defvar woman-prevailing-indent woman-default-indent (#$ . 23101)) #@94 Interparagraph distance in lines. Set by .PD; used by .SH, .SS, .TP, .LP, .PP, .P, .IP, .HP. (defvar woman-interparagraph-distance 1 (#$ . 23201)) #@41 Blank lines to leave as vertical space. (defvar woman-leave-blank-lines nil (#$ . 23354)) #@39 Default tab width set by -man macros. (defconst woman-tab-width 5 (#$ . 23450)) #@37 Current fill mode: nil for filling. (defvar woman-nofill nil (#$ . 23536)) #@48 Left margin stack for nested use of `.RS/.RE'. (defvar woman-RS-left-margin nil (#$ . 23617)) #@54 Prevailing indent stack for nested use of `.RS/.RE'. (defvar woman-RS-prevailing-indent nil (#$ . 23717)) #@107 Current no-space mode: nil for normal spacing. Set by `.ns' request; reset by any output or `.rs' request (defvar woman-nospace nil (#$ . 23830)) #@29 Set `woman-nospace' to nil. (defalias 'woman-reset-nospace #[nil "\301\211\207" [woman-nospace nil] 2 (#$ . 23982)]) (put 'woman-reset-nospace 'byte-optimizer 'byte-compile-inline-expand) #@60 Regexp to match a ?roff request plus trailing white space. (defconst woman-request-regexp "^[.'][ ]*\\(\\S +\\) *" (#$ . 24177)) #@70 Buffer-local: set to true if function `woman-imenu' has been called. (defvar woman-imenu-done nil (#$ . 24313)) (byte-code "\300\301!\210\300\302!\207" [make-variable-buffer-local woman-imenu-done imenu--last-menubar-index-alist] 2) #@118 An alist representing WoMan buffers that are already decoded. Each element is of the form (FILE-NAME . BUFFER-NAME). (defvar woman-buffer-alist nil (#$ . 24553)) #@99 Ordinal number of current buffer entry in `woman-buffer-alist'. The ordinal numbers start from 0. (defvar woman-buffer-number 0 (#$ . 24721)) #@190 List of one-character built-in condition names that are true. Should include ?e, ?o (page even/odd) and either ?n (nroff) or ?t (troff). Default is '(?n ?e ?o). Set via `woman-emulation'. (defvar woman-if-conditions-true '(110 101 111) (#$ . 24870)) #@175 Delete rest of current line; if all blank then delete thru newline. With a numeric argument ARG, delete that many lines from point. Negative arguments delete lines backward. (defalias 'woman-delete-line #[(&optional arg) "`\203 y\210\202# m\203 \301\302\303\"\210\304\305!\203 \306y\210\202# \303\210`|\207" [arg signal end-of-buffer nil looking-at "[ ]*$" 1] 4 (#$ . 25128)]) #@51 Delete current line from beginning including eol. (defalias 'woman-delete-whole-line #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 25518)]) (put 'woman-delete-whole-line 'byte-optimizer 'byte-compile-inline-expand) #@77 Delete all spaces and tabs FOLLOWING point (cf. `delete-horizontal-space'). (defalias 'woman-delete-following-space #[nil "`\300\301w\210`|\207" [" " nil] 3 (#$ . 25772)]) (put 'woman-delete-following-space 'byte-optimizer 'byte-compile-inline-expand) #@68 Delete subexpression SUBEXP of buffer text matched by last search. (defalias 'woman-delete-match #[(subexp) "\224\225|\207" [subexp] 2 (#$ . 26031)]) (put 'woman-delete-match 'byte-optimizer 'byte-compile-inline-expand) #@65 Expanded directory list cache. Resetting to nil forces update. (defvar woman-expanded-directory-path nil (#$ . 26259)) #@62 Expanded topic alist cache. Resetting to nil forces update. (defvar woman-topic-all-completions nil (#$ . 26385)) #@594 Browse UN*X man page for TOPIC (Without using external Man program). The major browsing mode used is essentially the standard Man mode. Choose the filename for the man page using completion, based on the topic selected from the directories specified in `woman-manpath' and `woman-path'. The directory expansions and topics are cached for speed, but a non-nil interactive argument forces the caches to be updated (e.g. to re-interpret the current directory). Used non-interactively, arguments are optional: if given then TOPIC should be a topic string and non-nil RE-CACHE forces re-caching. (defalias 'woman #[(&optional topic re-cache) ";\203\f \303\304\"\203# \305 \"\211\203 \306\n!\202! \307\310!\210\311 )\207\307\312!\210\311 \207" [topic re-cache file-name string-match "\\S " woman-file-name woman-find-file message "WoMan Error: No matching manual files found in search path" ding "WoMan Error: No topic specified in non-interactive call"] 4 (#$ . 26507) (list nil current-prefix-arg)]) (define-key-after menu-bar-manuals-menu [woman] '(menu-item "Read Man Page (WoMan)..." woman :help "Man-page documentation Without Man") t) #@109 A list of cached data used to determine cache validity. Set from the cache by `woman-read-directory-cache'. (defvar woman-cached-data nil (#$ . 27657)) #@107 Generate a list of data used to determine cache validity. Called both to generate and to check the cache! (defalias 'woman-cached-data #[nil "\306\211 \306 \211 \203> @\211:\203, \204\" \307\310\311!\312#\f@ \235\205+ \fA\f\2037 \313\302\314\f!\"\210 A\211\204 \306\n\237,\315\314\"E\207" [woman-cache-level path lst woman-manpath dir #1=#:--cl-dolist-temp-- nil split-string getenv "PATH" t add-to-list substitute-in-file-name mapcar path-separator woman-path] 6 (#$ . 27816)]) #@154 Load the directory and topic cache. It is loaded from the file named by the variable `woman-cache-filename'. Return t if the file exists, nil otherwise. (defalias 'woman-read-directory-cache #[nil "\205 \302\303\304\303$\205 \301 \232\207" [woman-cache-filename woman-cached-data load t nil] 5 (#$ . 28317)]) #@107 Save the directory and topic cache. It is saved to the file named by the variable `woman-cache-filename'. (defalias 'woman-write-directory-cache #[nil "\205: r\305\306!q\210p\307\310\n!\210\311\312!\210\313\314\315\316\315 DE!\210\313\314\303\316 DE!\210\313\314\304\316\fDE!\210\317!\210\320\n!+\207" [woman-cache-filename backup-inhibited standard-output woman-expanded-directory-path woman-topic-all-completions generate-new-buffer "WoMan tmp buffer" t buffer-disable-undo princ ";;; WoMan directory and topic cache -- generated automatically\n" print setq woman-cached-data quote write-file kill-buffer] 5 (#$ . 28638)]) (defvaralias 'woman-topic-history 'Man-topic-history) #@25 File-name read history. (defvar woman-file-history nil (#$ . 29327)) #@344 Get the name of the UN*X man-page file describing a chosen TOPIC. When `woman' is called interactively, the word at point may be automatically used as the topic, if the value of the user option `woman-use-topic-at-point' is non-nil. Return nil if no file can be found. Optional argument RE-CACHE, if non-nil, forces the cache to be re-read. (defalias 'woman-file-name #[(topic &optional re-cache) "\204 \203\f \n\204% \306 \204% \307\310!\210\311 \f\"\307\312!\210\302 !\313 \210\314\315 !;\204\204 \316\317!\203< \202A \"\211\203Y \315\320!\206K \321\211!\203Y \322!\n\"\204\204 \315 \211 #\205k \322#\n\"\205k # \323 \203x \324\325 \"\202y \326\n\314\327\314\330 &*!!G\331U?\205\343 \332!!\211 \204\274 \333!\n\"\211 \203\274 !G @GU\204\265 A \202\242 \332 @! \204\305 \314\202\343 A\204\322 @@\202\343 \334$\323\335 \314\327\336\321 \"\337&*\207" [re-cache woman-expanded-directory-path woman-topic-all-completions woman-manpath woman-path default woman-read-directory-cache message "Building list of manual directory expansions..." woman-expand-directory-path "Building completion list of all manual topics..." woman-write-directory-cache nil current-word boundp woman-use-topic-at-point t "" test-completion completing-read format "Manual entry (default %s): " "Manual entry: " 1 woman-topic-history 0 woman-file-name-all-completions all-completions (9) "Manual file: " try-completion woman-file-history files topic woman-use-topic-at-point-default word-at-point unread-command-events] 9 (#$ . 29403)]) #@114 Select unique elements for which PREDICATE is true in LIST. (Note that this function changes the value of LIST.) (defalias 'woman-select #[(predicate list) "\203 @A\235\204 @!\204 A\211\204 \205H \304A\211\203F \n@\nA\235\204> \n@!\203> \n\211\202# \nA\241\210\202\" *\207" [list predicate cdr_list newlist nil] 3 (#$ . 30962)]) #@55 Return t if DIR is readable, otherwise log a warning. (defalias 'woman-file-readable-p #[(dir) "\301!\206\n \302\303\"\207" [dir file-readable-p WoMan-warn "Ignoring unreadable `manpath' directory tree `%s'!"] 3 (#$ . 31318)]) #@290 Return a sorted list of files in directory HEAD matching regexp in DIR. Value is a sorted list of the absolute pathnames of all the files in directory HEAD, or the current directory if HEAD is nil, that match the regexp that is the final component of DIR. Log a warning if list is empty. (defalias 'woman-directory-files #[(head dir) "\303\206 \304 !\305\306\n!#\206 \307\310\n\"\207" [head default-directory dir directory-files directory-file-name t file-name-nondirectory WoMan-warn "No directories match `woman-path' entry `%s'!"] 5 (#$ . 31554)]) #@57 Return t if DIR is accessible, otherwise log a warning. (defalias 'woman-file-accessible-directory-p #[(dir) "\301!\206\n \302\303\"\207" [dir file-accessible-directory-p WoMan-warn "Ignoring inaccessible `man-page' directory `%s'!"] 3 (#$ . 32115)]) #@255 Expand the manual directories in WOMAN-MANPATH and WOMAN-PATH. WOMAN-MANPATH should be a list of general manual directories, while WOMAN-PATH should be a list of specific manual directory regexps. Ignore any paths that are unreadable or not directories. (defalias 'woman-expand-directory-path #[(woman-manpath woman-path) "<\204 C <\204 C\306\211\211 \306 \211 \203_ @\211:\203? \n\2045 \307\310\311!\312# @\n\235\205> A \203V \313 !\203V \314 ! \315 \312#\244A\211\204 * \306 \211 \203\240 @\211\203\203 \314 !\316 !\211\203\203 \313\f!\203\227 \203\220 \317\f \"\244\202\226 \320! BA\211\204i *\321\322 \"+\207" [woman-manpath woman-path path dirs head dir nil split-string getenv "PATH" t woman-file-readable-p woman-canonicalize-dir directory-files file-name-directory woman-directory-files directory-file-name woman-select woman-file-accessible-directory-p #1=#:--cl-dolist-temp-- path-separator woman-manpath-man-regexp #2=#:--cl-dolist-temp-- default-directory] 6 (#$ . 32375)]) #@96 Canonicalize the directory name DIR. Any UN*X-style environment variables are evaluated first. (defalias 'woman-canonicalize-dir #[(dir) "\302\303!!\211\304\305O\306\230\203 \307\304O \310>\203\" \311!\312!P\207" [dir system-type expand-file-name substitute-in-file-name -1 nil "/" 0 (windows-nt ms-dos cygwin) file-name-directory file-name-nondirectory] 4 (#$ . 33410)]) #@127 Return t if DIR is not a member of the list PATH, nil otherwise. If DIR is `.' it is first replaced by the current directory. (defalias 'woman-not-member #[(dir path) " \235?\207" [dir path] 2 (#$ . 33798)]) (put 'woman-not-member 'byte-optimizer 'byte-compile-inline-expand) #@135 Return an alist of the man files in all man directories in the list PATH. The cdr of each alist element is the path-index / filename. (defalias 'woman-topic-all-completions #[(path) "\304\211\305 \203( \211A@\211 \211 \235*\204\" \306\n\" BT\202 \307\310\311 \"!+\207" [path-index files dir path nil 0 woman-topic-all-completions-1 woman-topic-all-completions-merge apply nconc] 5 (#$ . 34082)]) #@293 Return an alist of the man topics in directory DIR with index PATH-INDEX. A topic is a filename sans type-related extensions. Support 3 levels of caching: each element of the alist will be a list of the first `woman-cache-level' elements from the following list: (topic path-index filename). (defalias 'woman-topic-all-completions-1 #[(dir path-index) "\306\307\306 \310$\311\312\n\" \f\306 \211 \203Q @\313 \"\203. \314\211\224O\2020 \315V\205D \316V\205C CBB BA\211\204 \306 -\207" [dir woman-file-regexp woman-file-compression-regexp ext lst newlst nil directory-files t format "\\(\\.[^.\\/]*\\)?\\(%s\\)?\\'" string-match 0 1 2 file #1=#:--cl-dolist-temp-- woman-cache-level path-index] 6 (#$ . 34498)]) #@154 Merge the alist ALIST so that the keys are unique. Also make each path-info component into a list. (Note that this function changes the value of ALIST.) (defalias 'woman-topic-all-completions-merge #[(alist) "\306\307 \310\"\n\311V\203U \306\211 \203Q \f@\211@\211 @@)\232\203@ A\211 @A)\235\204J @ A\211 @A)B\241\210\202J \211AC\241\210 B\fA\211\204 *\202| \306\211 \n\203{ \n@\211@\211 @@)\232\204r B\nA\211\n\204^ *)\207" [newalist alist woman-cache-level elt #1=#:--cl-dolist-temp-- x nil sort #[(x y) "@ @\231\207" [y x] 2] 1 #2=#:--cl-dolist-temp--] 4 (#$ . 35245)]) #@71 Return an alist of the files in all man directories that match TOPIC. (defalias 'woman-file-name-all-completions #[(topic) "\306\307!\310 R\n \311\211 @A\203d \312\"A\311 \211 \311 \211 \203` @\211@8A@\f\203O \313QC\202U \314 \315#\244A\211\204/ ,\202\214 \203\214 @A \211 \235*\204d \f\314 \315#\244\202d \316\317\f\"-\207" [topic woman-file-regexp woman-topic-all-completions woman-expanded-directory-path files dir "\\`" regexp-quote "\\(\\..+\\)*" nil assoc "/" directory-files t mapcar list path topics topic-regexp filename path-info elt #1=#:--cl-dolist-temp--] 7 (#$ . 35851)]) #@63 Bind the argument KEY to the command `woman-dired-find-file'. (defalias 'woman-dired-define-key #[(key) "\302 \303#\207" [dired-mode-map key define-key woman-dired-find-file] 4 (#$ . 36501)]) #@75 If KEY is undefined in Dired, bind it to command `woman-dired-find-file'. (defalias 'woman-dired-define-key-maybe #[(key) "\302 \"\303=\204 \302 \"?\205 \304 !\207" [dired-mode-map key lookup-key undefined woman-dired-define-key] 3 (#$ . 36700)]) (put 'woman-dired-define-key-maybe 'byte-optimizer 'byte-compile-inline-expand) #@65 Define dired keys to run WoMan according to `woman-dired-keys'. (defalias 'woman-dired-define-keys #[nil "\203? <\203 \303\304\"\210\202? \305\306\n \"\307=\204# \306\n \"\204' \304 !\210)\310\306\n \"\307=\204: \306\n \"\204> \304 !\210)\311\306\n\312\"\313\314\315$\207" [woman-dired-keys key dired-mode-map mapc woman-dired-define-key "w" lookup-key undefined "W" define-key-after [menu-bar immediate] [woman] ("Read Man Page (WoMan)" . woman-dired-find-file) view] 5 (#$ . 37037)]) (byte-code "\300\301!\203\f \302 \210\202 \303\304\302\"\210\300\207" [featurep dired woman-dired-define-keys add-hook dired-mode-hook] 3) #@56 In dired, run the WoMan man-page browser on this file. (defalias 'woman-dired-find-file #[nil "\300\301 !\207" [woman-find-file dired-get-filename] 2 (#$ . 37675) nil]) #@59 In tar mode, run the WoMan man-page browser on this file. (defalias 'woman-tar-extract-file #[nil "\304=\204\n \305\306!\210\307 \210\310\311K \210\n\312\313\314\n!!!\210\315 \210eb*\207" [major-mode global-font-lock-mode buffer-file-name WoMan-current-file tar-mode error "`woman-tar-extract-file' can be used only in `tar-mode'" buffer-disable-undo nil tar-extract rename-buffer woman-make-bufname file-name-nondirectory woman-process-buffer] 4 (#$ . 37850) nil]) (eval-after-load "tar-mode" '(progn (define-key tar-mode-map "w" 'woman-tar-extract-file) (define-key-after (lookup-key tar-mode-map [menu-bar immediate]) [woman] '("Read Man Page (WoMan)" . woman-tar-extract-file) 'view))) #@56 The full pathname of the last file formatted by WoMan. (defvar woman-last-file-name nil (#$ . 38549)) #@54 Reformat last file, e.g. after changing fill column. (defalias 'woman-reformat-last-file #[nil "\203 \301\302\"\207\303\301!\207" [woman-last-file-name woman-find-file t call-interactively] 3 (#$ . 38657) nil]) #@434 Find, decode and browse a specific UN*X man-page source file FILE-NAME. Use existing buffer if possible; reformat only if prefix arg given. When called interactively, optional argument REFORMAT forces reformatting of an existing WoMan buffer formatted earlier. No external programs are used, except that `gunzip' will be used to decompress the file if appropriate. See the documentation for the `woman' command for further details. (defalias 'woman-find-file #[(file-name &optional reformat) "\306!\211\n\307 \310\f\203! \f@@\230\204! \fA T\202\f \f\205' \311 \211\2031 \203r \312! \313 \314 \"??\211 !\203M \315 ! \203V \316 \202Z \317 ! \320! #\210 \204q B\nB\310+*\307eb\210\307 \321\"d\313#\205\222 \322\323\324\325!\"\210\325y\210\202| )\210\307\212\326#!\203 \325y\210`\327\325!\210`\307\330 $ % & '\214'&}\210eb\210\331 \210m\204 `$U\204 `$\321(&\313#\203\324\310!\211 )GS *%\203\366 %)P)\307%)GS*)*H\332>\203)\310*O%\314+)\"\203\322\333)\"\210*\334\307w\210\202\277 -)\237eb\207" [file-name woman-last-file-name woman-buffer-alist exists alist-tail woman-buffer-number expand-file-name nil 0 WoMan-find-buffer file-name-nondirectory t string-match file-name-sans-extension buffer-name woman-make-bufname woman-really-find-file re-search-forward aput Man-sections-alist match-string 1 Man-find-section Man-next-section -1 back-to-indentation (45 173) Man-refpages-alist " \n," reformat bufname case-fold-search woman-file-compression-regexp compressed Man-heading-regexp Man-see-also-regexp runningpoint hyphenated end start Man-hyphenated-reference-regexp word len Man-reference-regexp] 6 (#$ . 38878) "fBrowse UN*X manual file: \nP"]) #@49 Create an unambiguous buffer name from BUFNAME. (defalias 'woman-make-bufname #[(bufname) "\302\303\"\211\203 T\304O\305\306 OQ\307\310\311Q!)\207" [bufname dot string-match "\\." nil " " 0 generate-new-buffer-name "*WoMan " "*"] 6 (#$ . 40601)]) #@52 Dedicated frame used for displaying WoMan windows. (defvar woman-frame nil (#$ . 40862)) #@212 Find, decompress, and decode a UN*X man page FILENAME. If COMPRESSED is non-nil, turn on auto-compression mode to decompress the file if necessary. Set buffer name BUFNAME and major mode. Do not call directly! (defalias 'woman-really-find-file #[(filename compressed bufname) "\n\203 \306\307 !\203 \206 \310 \211!\210\311\f!q\210\312\313\314\217\210\315 \210\312\316 \210\317\"\210\320!\321\322!\210\323\324\325!\210\326 )\207" [filename WoMan-current-file woman-use-own-frame woman-frame bufname buffer-read-only select-frame frame-live-p make-frame get-buffer-create nil (byte-code "\300p!\207" [switch-to-buffer] 2) ((error (byte-code "\300p!\207" [pop-to-buffer] 2))) buffer-disable-undo erase-buffer woman-insert-file-contents file-name-directory make-local-variable backup-inhibited t set-visited-file-name "" woman-process-buffer compressed default-directory] 3 (#$ . 40958)]) #@46 The second half of `woman-really-find-file'! (defalias 'woman-process-buffer #[nil "eb\210\300\301\302\303#\203 \304 \210\202 \305\306!\210\307 \210\310 \207" [re-search-forward "^[.']" 1000 t woman-decode-buffer message "File appears to be pre-formatted -- using source file may be better." woman-man-buffer woman-mode] 4 (#$ . 41866) nil]) #@48 Post-process an nroff-preformatted man buffer. (defalias 'woman-man-buffer #[nil "\303\304!\203 \305\211\224\225|\210)\306\307!\210\310\311\312\305!!\313Q\306 \314\315#\2030 \305\211\224\225|\210)\202 )\316\317!\210\320 \210\303\321!\203B `d|\210eb\210\306\322\314\323#\203V \324\325\323\211#\210\202E \326 \327d!W\203\221 eb\210\330\331\314\323#\203x \332\333!\210\334``T\335#\210\202b eb\210\330\336\314\323#\203\221 \332\333!\210\334`S`\335#\210\202{ eb\210\306\337\314\323#\203\257 \340\211\224\225|\210)\334`S`\341#\210\202\224 eb\210\330\342\314\323#\203\310 \343\344!\210\334``T\335#\210\202\262 \n\205\345 eb\210\314y\210\306\345\314\323#\205\345 \334\340\224\340\225\341#\210\202\322 \207" [subexp regex woman-bold-headings looking-at "\\s-+" 0 re-search-forward ".*" "^.*[0-9]\n\\s-*" regexp-quote match-string "\\s-*\n" nil 1 re-search-backward "\\S-" beginning-of-line ".*[0-9]$" "^[ ]*\n\\([ ]*\n\\)+" t replace-match "\n" buffer-size position-bytes search-forward "__" backward-delete-char 4 woman-set-face woman-italic "__" "\\(.\\)\\(\\(+\\1\\)+\\)" 2 woman-bold "_" delete-char -2 "^\\( \\)?\\([A-Z].*\\)"] 5 (#$ . 42216)]) #@243 Insert file FILENAME into the current buffer. If COMPRESSED is t, or is non-nil and the filename implies compression, then turn on auto-compression mode to decompress the file. Leave point at end of new text. Return length of inserted text. (defalias 'woman-insert-file-contents #[(filename compressed) "\212\305 \203 \305=\204 \306\n \"\203 \307\310\f\"\204 \311\312!\210\313\314\315\217A@*\207" [case-fold-search compressed woman-file-compression-regexp filename file-name-handler-alist t string-match rassq jka-compr-handler auto-compression-mode 1 nil (insert-file-contents filename nil) ((file-error (insert "\n***** File " filename " not found! *****\n\n")))] 3 (#$ . 43383)]) #@24 Keymap for woman mode. (defvar woman-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\310#\210\304\320\321#\210)\207" [map Man-mode-map make-sparse-keymap set-keymap-parent define-key "R" woman-reformat-last-file "w" woman "n" WoMan-next-manpage "p" WoMan-previous-manpage [M-mouse-2] woman-follow-word [remap man] [remap man-follow] woman-follow] 4) (#$ . 44079)) #@72 Get a Un*x manual page of the item under point and put it in a buffer. (defalias 'woman-follow #[(topic) "\203\n \302\230\203 \303\304!\207\305\306 \"\203 \307\310\225O\202 !\207" [topic Man-reference-regexp "" error "No item under point" woman string-match 0 1] 4 (#$ . 44544) (list (Man-default-man-entry))]) #@87 Run WoMan with word under mouse as topic. Argument EVENT is the invoking mouse event. (defalias 'woman-follow-word #[(event) "\211:\203 A@\202 \302 `\303\304F)\305 8\206, A@:\203) A@@\202, A@)b\210\306\307\310!\2067 \311!\207" [event position selected-window (0 . 0) 0 5 woman current-word t ""] 5 (#$ . 44869) "e"]) #@12 WoMan Menu (defvar woman-menu nil (#$ . 45201)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\306\314\315\316\317\306\320\321\322\323\324\306\325\326\327\330\331!\205\" \332\333\"BBBBBBBBBBBBBBBBBBBBBB$\207" [woman-mode-map easy-menu-do-define woman-menu "WoMan Menu" "WoMan" ["WoMan..." woman t] "--" ["Next Section" Man-next-section t] ["Previous Section" Man-previous-section t] ["Goto Section..." Man-goto-section t] ["Goto See-Also Section" Man-goto-see-also-section t] ["Follow Reference..." Man-follow-manual-reference t] ["Previous WoMan Buffer" WoMan-previous-manpage t] ["Next WoMan Buffer" WoMan-next-manpage t] ["Bury WoMan Buffer" Man-quit t] ["Kill WoMan Buffer" Man-kill t] ["Use Full Frame Width" woman-toggle-fill-frame :active t :style toggle :selected woman-fill-frame] ["Reformat Last Man Page" woman-reformat-last-file t] ["Use Monochrome Main Faces" woman-monochrome-faces t] ["Use Default Main Faces" woman-default-faces t] ["Make Contents Menu" (woman-imenu t) (not woman-imenu-done)] ["Describe (Wo)Man Mode" describe-mode t] ["Mini Help" woman-mini-help t] append fboundp customize-group (["Customize..." (customize-group 'woman) t]) (["Show Version" (message "WoMan %s" woman-version) t] "--" ("Advanced" ["View Source" (view-file woman-last-file-name) woman-last-file-name] ["Show Log" (switch-to-buffer-other-window "*WoMan-Log*" t) t] ["Extended Font" woman-toggle-use-extended-font :included woman-font-support :active t :style toggle :selected woman-use-extended-font] ["Symbol Font" woman-toggle-use-symbol-font :included woman-font-support :active t :style toggle :selected woman-use-symbol-font] ["Font Map" woman-display-extended-fonts :included woman-font-support :active woman-use-symbol-font] "--" "Emulation" ["nroff" (woman-reset-emulation 'nroff) :active t :style radio :selected (eq woman-emulation 'nroff)] ["troff" (woman-reset-emulation 'troff) :active t :style radio :selected (eq woman-emulation 'troff)]))] 29) #@62 Toggle `woman-use-extended-font' and reformat, for menu use. (defalias 'woman-toggle-use-extended-font #[nil "?\301 \207" [woman-use-extended-font woman-reformat-last-file] 1 (#$ . 47179) nil]) #@60 Toggle `woman-use-symbol-font' and reformat, for menu use. (defalias 'woman-toggle-use-symbol-font #[nil "?\301 \207" [woman-use-symbol-font woman-reformat-last-file] 1 (#$ . 47381) nil]) #@62 Reset `woman-emulation' to VALUE and reformat, for menu use. (defalias 'woman-reset-emulation #[(value) "\302 \207" [value woman-emulation woman-reformat-last-file] 1 (#$ . 47577) nil]) (put 'woman-mode 'mode-class 'special) #@317 Turn on (most of) Man mode to browse a buffer formatted by WoMan. WoMan is an ELisp emulation of much of the functionality of the Emacs `man' command running the standard UN*X man and ?roff programs. WoMan author: F.J.Wright@Maths.QMW.ac.uk WoMan version: see `woman-version'. See `Man-mode' for additional details. (defalias 'woman-mode #[nil "\303K\302K\301K\300K\303\306M\210\302\306M\210\301\306M\210\300\306M\210\307\216\310\304!\210\311 \312 \210.\313\314\315\316!\210\317!\210\310\320!\210 \310\321!\210\322\323\211 \203T \324 \210\311 \325\326!\210)\327\323!\210\330\331!\207" [Man-goto-page Man-unindent Man-strip-page-headers Man-build-page-list delay-mode-hooks major-mode ignore ((byte-code "\300M\210\301 M\210\302\nM\210\303 M\210\f\300\207" [Man-build-page-list Man-strip-page-headers Man-unindent Man-goto-page woman-tab-width tab-width] 2)) make-local-variable t Man-mode woman-mode "WoMan" kill-local-variable mode-line-buffer-identification use-local-map imenu-generic-expression imenu-space-replacement " " nil woman-imenu Man-highlight-references WoMan-xref-man-page set-buffer-modified-p run-mode-hooks woman-mode-hook mode-name woman-mode-map woman-imenu-generic-expression imenu--last-menubar-index-alist woman-imenu-done inhibit-read-only] 5 (#$ . 47811)]) #@109 Add a "Contents" menu to the menubar. Optional argument REDRAW, if non-nil, forces mode line to be updated. (defalias 'woman-imenu #[(&optional redraw) "?\205 \303\304 !\210\n\205 \305 \207" [woman-imenu-done woman-imenu-title redraw t imenu-add-to-menubar force-mode-line-update] 2 (#$ . 49123) nil]) #@69 Toggle formatting to fill (most of) the width of the current frame. (defalias 'woman-toggle-fill-frame #[nil "?\302\303\203 \304\202 \"\207" [woman-fill-frame woman-fill-column message "Woman fill column set to %s." "frame width"] 3 (#$ . 49435) nil]) #@65 Display WoMan commands and user options in an `apropos' buffer. (defalias 'woman-mini-help #[nil "\306\307!\210\310\311!\312\313!)\314\315\316\"\211\317\211 \211 \203\\ \211@\211\320 !\205; \321 \322\"\211\203: \f\323\324\325\f\"O\202; \326\327 !\205R \330 \331\322#\211\205R \f\323\324\325\f\"OE\240\210 A\211\204 +\332\322\317\"\205l \205l \301\333 \")\207" [standard-output message apropos-accumulator symbol doc p require apropos get-buffer-create "*Apropos*" print-help-return-message identity apropos-internal "woman" #[(symbol) "\301!\204\f \302!\205 \303N?\207" [symbol commandp user-variable-p apropos-inhibit] 2] nil functionp documentation t 0 string-match "\n" "(not documented)" user-variable-p documentation-property variable-documentation apropos-print "%s"] 9 (#$ . 49699) nil]) #@62 Use TOPIC to start WoMan from `Man-follow-manual-reference'. (defalias 'WoMan-getpage-in-background #[(topic) "\302\303\"\211\203 T\304O\305!)\207" [topic s string-match " " nil woman] 4 (#$ . 50515)]) #@59 Used to record formatting time used by the `man' command. (defvar WoMan-Man-start-time nil (#$ . 50730)) #@33 Find the previous WoMan buffer. (defalias 'WoMan-previous-manpage #[nil "\302 \210A\204\f \303\304!\210 T\211GY\203 \305\302 ?\205- S\211\305W\203+ GS\306 \207" [woman-buffer-alist woman-buffer-number WoMan-find-buffer error "No previous WoMan buffer" 0 WoMan-previous-manpage] 2 (#$ . 50841) nil]) #@29 Find the next WoMan buffer. (defalias 'WoMan-next-manpage #[nil "\302 \210A\204\f \303\304!\210 S\211\305W\203 GS\302 ?\205! \306 \207" [woman-buffer-alist woman-buffer-number WoMan-find-buffer error "No next WoMan buffer" 0 WoMan-next-manpage] 2 (#$ . 51155) nil]) #@187 Switch to buffer corresponding to `woman-buffer-number' and return it. If such a buffer does not exist then remove its association from the alist in `woman-buffer-alist' and return nil. (defalias 'WoMan-find-buffer #[nil "\304!\203 \305 @A!\211\203 \306\n!\202 A\307)\207S \233\305 A@A!\211\2032 \306\n!\202B \211AA\241\210 GY\203A \310\307*\207" [woman-buffer-number woman-buffer-alist buffer prev-ptr zerop get-buffer switch-to-buffer nil 0] 3 (#$ . 51433)]) #@65 Internal character representation of escaped escape characters. (defconst woman-escaped-escape-char 28 (#$ . 51913)) #@62 Internal string representation of escaped escape characters. (defconst woman-escaped-escape-string (char-to-string woman-escaped-escape-char) (#$ . 52036)) #@65 Internal character representation of unpadded space characters. (defconst woman-unpadded-space-char 29 (#$ . 52198)) #@62 Internal string representation of unpadded space characters. (defconst woman-unpadded-space-string (char-to-string woman-unpadded-space-char) (#$ . 52321)) #@70 Syntax table to support special characters used internally by WoMan. (defvar woman-syntax-table (byte-code "\303 \304 \305#\210\304\n\305#\210)\207" [st woman-unpadded-space-char woman-escaped-escape-char make-syntax-table modify-syntax-entry "."] 4) (#$ . 52483)) #@212 Set up a display table for a WoMan buffer. This display table is used for displaying internal special characters, but does not interfere with any existing display table, e.g. for displaying European characters. (defalias 'woman-set-buffer-display-table #[nil "\203\n \304!\202\f \305 \211\n\306I\210 \307I\207" [standard-display-table buffer-display-table woman-unpadded-space-char woman-escaped-escape-char copy-sequence make-display-table [32] [92]] 4 (#$ . 52759)]) #@80 Decode a buffer in UN*X man-page source format. No external programs are used. (defalias 'woman-decode-buffer #[nil "\304 \210\305\306!\210\307\300!\203 \203 \300\310!\210\311 \312\313\314!\210\315ed\"\210\311 \211@\n@Z\316_ \211A@)\n\211A@)Z\\\313\317 \"\210\320 !\210*\305\321!\207" [font-lock-mode time start-time x WoMan-log-begin run-hooks woman-pre-format-hook boundp -1 current-time nil message "WoMan formatting buffer..." woman-decode-region 65536 "WoMan formatting buffer...done in %d seconds" WoMan-log-end woman-post-format-hook] 4 (#$ . 53238) nil]) #@66 Alist of strings predefined in the -man macro package `tmac.an'. (defvar woman-string-alist '(("S" . #1="") ("R" . "(Reg.)") ("Tm" . "(TM)") ("lq" . "\"") ("rq" . "\"") ("''" . "\"") (".T" . #1#)) (#$ . 53816)) #@43 Set to t if .sp N with N < 0 encountered. (defvar woman-negative-vertical-space nil (#$ . 54033)) #@133 Pre-process escapes and comments in the region of text between FROM and TO. To be called on original buffer and any .so insertions. (defalias 'woman-pre-process-region #[(from to) "b\210\304\305 \306#\203@ \307\224\203 \310\n\306\211#\210\202 \311 \210\312\307!\210\304\313 \306#\2036 \307\224\2036 \310\n\306\211#\210\202 \311 \210\312\307!\210\202 b\210\304\314 \306#\205W \315\211\224 \225|\210)\202C \207" [from to woman-escaped-escape-string subexp re-search-forward "\\(\\\\[\\e]\\)\\|^\\.eo" t 1 replace-match beginning-of-line woman-delete-line "\\(\\\\\\)\\|^\\.ec" "^[.'][ ]*\\(\\\\\".*\\)?\n\\|\\\\\".*" 0] 5 (#$ . 54138)]) #@54 Prepare non-underlined versions of underlined faces. (defalias 'woman-non-underline-faces #[nil "\300 \211\305\211\2038 \n@\306 !\307\310 \"\2030 \311 !\2030 \312 \313P! \314 \f\"\210\315\f\305\"\210))\nA\211\204 +\305\207" [face-list face #1=#:--cl-dolist-temp-- face-name face-no-ul nil symbol-name string-match "\\`woman-" face-underline-p intern "-no-ul" copy-face set-face-underline-p] 5 (#$ . 54787)]) #@172 True if WoMan should emulate the tbl preprocessor. This applies to text between .TE and .TS directives. Currently set only from '" t in the first line of the source file. (defvar woman-emulate-tbl nil (#$ . 55209)) #@71 Decode the region between FROM and TO in UN*X man-page source format. (defalias 'woman-decode-region #[(from to) "\306 \306\f\f@\307A\306\211BC\306DE\211FG8H\306I\310\311J!!\312BK\313 \210L\203M M;\203M \314\315M\316N!\205K N#\210\317O!\210\320 \210P\204e \250\203e \321V\204j \322 \fZQb\210\323\324!\203\237 \325\326\307!\306\" R\327R>\203\215 \330S\331\327R\"RR\203\232 \332\333R\260\"\210\334\307!\210)\335Q\306\"\210\336Q!\210eb\210\306\337\340d\330#\203\315 eb\210\337\341d\330#\203\315 eb\210\337\342d\330#\203\321 \343\344!\210)Qb\210\345 \210 TUVQb\210\337\346\306\330#\203\366 \347W\330\211#\210\202\344 Qb\210\337\350\306\330#\203\321\211 X\224X\225|\210)\202\372 Qb\210\337\351\306\330#\203#\347\352!\210\202Qb\210\353 \210Qb\210\354 \210Qb\210\355 \210Qb\210\330 Y\337\356\306\330#\203\251\326\307!\211 Z\321H\357U\204eZG\360Y\203iZ\360H\361U\203i\362\202j\363 [Y\203\217\347[\306\330#\210\364`S`\365\366$\210\332\367Z\"\210\370\371[\"\210\202\240\321\211 X\224X\225|\210)\332\372Z\"\210Y?Y*\202?)Qb\210\373 \210\n\203\272\302Q!\210\\\203\357Qb\210\374]\306\330#\203\326\375\376!\210\377c\210\202\303Qb\210\374W\306\330#\203\357\375\376!\210\201^ c\210\202\332d,\207" [woman-string-alist woman-fill-column woman-negative-vertical-space case-fold-search woman-default-indent woman-left-margin nil 1 string-to-char symbol-name (101 111) woman-non-underline-faces set-face-font woman-symbol frame-live-p set-syntax-table woman-set-buffer-display-table 0 window-width looking-at "'\\\\\"[ ]*\\([a-z]+\\)" append match-string 116 t delete WoMan-warn "Unhandled preprocessor request letters %s" woman-delete-line woman-pre-process-region woman0-roff-buffer re-search-forward "^\\.SH[ \n]" "^\\.TH[ \n]" "^\\.\\([pnil]p\\|sh\\)[ \n]" error "WoMan can only format man pages written with the usual `-man' macros" woman-mark-horizonal-position "\\\\[ 0]" replace-match "\\\\\\([%\n]\\|s[-+]?[0-9]+\\)" "\\\\\\([-`.]\\)" "\\1" woman1-roff-buffer woman-strings woman-change-fonts "\\\\\\([du]\\|v'[^']*'\\)" 117 2 45 "^" "_" put-text-property face woman-addition "Initial vertical motion escape \\%s simulated" WoMan-log " by TeX `%s' in woman-addition-face!" "Terminal vertical motion escape \\%s ignored!" woman2-roff-buffer search-forward delete-char -1 92 woman-prevailing-indent woman-interparagraph-distance woman-leave-blank-lines woman-RS-left-margin woman-RS-prevailing-indent woman-adjust-both woman-adjust woman-justify-list woman-justify woman-nofill woman-emulation woman-if-conditions-true woman-use-symbol-font woman-symbol-font woman-frame woman-syntax-table woman-fill-frame from letters woman-emulate-tbl fill-column woman-tab-width tab-width woman-unpadded-space-string subexp first esc repl woman-preserve-ascii woman-escaped-escape-string 32] 6 (#$ . 55430)]) #@156 Process \h'+/-N' local horizontal motion escapes upto TO. Implements arbitrary forward and non-overlapping backward motion. Preserves location of `point'. (defalias 'woman-horizontal-escapes #[(to) "`\306\307 \310#\203\203 \311\224\312\313\314!!\315\224\316 \317\211 \320 !\204. \321\322`T{\"\210\202~ \311\225 { |\210\f\203A iZ \311Y\203P \323 \"\210\202~ T\211\311X\203s h\324>\203f \325\314!\210\202P g\326>\203s \327\314!\210\202P \311X\203~ \321\330\n\"\210.\202 b)\207" [from to msg N absolute delim re-search-forward "\\\\h\\(\\\\(..\\|.\\)\\(|\\)?" t 0 regexp-quote match-string 1 2 woman-parse-numeric-arg nil looking-at WoMan-warn "Local horizontal motion (%s) delimiter error!" insert-char (32 9) delete-backward-char (32 9) delete-char "Negative horizontal motion (%s) would overwrite!" woman-unpadded-space-char] 6 (#$ . 58312)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\306\307!\207" [current-load-list woman0-search-regex-start default-boundp set-default "^[.'][ ]*\\(ig\\|if\\|ie\\|el\\|so\\|rn\\|de\\|am" woman0-search-regex-end (lambda (#1=#:defconst-tmp-var) (defconst woman0-search-regex-end #1#)) "\\)\\([ ]+\\|$\\)"] 3) #@111 Process conditional-type requests and user-defined macros. Start at FROM and re-scan new text as appropriate. (defalias 'woman0-roff-buffer #[(from) "b\210\306 \307\211 \211\nP\307 \310 \311\"\210\312\f\307\311#\203\231 \313\314!\211 \315\230\2033 \316 \210\202 \317\230\203A \320\317!\210\202 \321\230\203O \320\321!\210\202 \322\230\203\\ \323 \210\202 \324\230\203i \325 \210\202 \326\230\203v \327 \210\202 \330\230\203\203 \331 \210\202 \332\230\203\221 \331\333!\210\202 \334 !\210\202 \307\211\223\210\335 .\207" [from woman0-search-regex-start woman0-search-regex-end woman0-rename-alist woman0-search-regex woman0-macro-alist make-marker nil set-marker-insertion-type t re-search-forward match-string 1 "ig" woman0-ig "if" woman0-if "ie" "el" woman0-el "so" woman0-so "rn" woman0-rn "de" woman0-de "am" append woman0-macro woman0-rename request woman0-if-to] 7 (#$ . 59503)]) #@63 .ig yy -- Discard input up to `.yy', which defaults to `..'). (defalias 'woman0-ig #[nil "\302\303!\210\304 \210\305\306!\206 \307`\310\311\312 !\313Q\314\315#\203$ `|\202, \316\317 \"\210\320\306!*\207" [from yy looking-at "\\(\\S +\\)?" beginning-of-line match-string 1 "." re-search-forward "^\\.[ ]*" regexp-quote ".*\n" nil t WoMan-warn "ig request ignored -- terminator `.%s' not found!" woman-delete-line] 4 (#$ . 60431)]) #@64 Process escapes within an if/ie condition between FROM and TO. (defalias 'woman0-process-escapes #[(from to) "\303!\210 b\210\304\305\306#\203 \307\211\224\n\225|\210)\202 b\210\310\311\"\207" [to from subexp woman-strings re-search-forward "\\\\f\\(\\[[^]]+\\]\\|(..\\|.\\)" t 0 woman2-process-escapes numeric] 5 (#$ . 60872)]) (put 'woman0-process-escapes 'byte-optimizer 'byte-compile-inline-expand) #@167 .if/ie c anything -- Discard unless c evaluates to true. Remember condition for use by a subsequent `.el'. REQUEST is the invoking directive without the leading dot. (defalias 'woman0-if #[(request) "\306\211\224\225|\210)`\307\211\306 \212\310\311!\210`)\307\223\210g\312U\211\203( \313\314!\210\315\316!\2036 g >\202\352 \315\317!\203J \307\320\321!\322\306!#\210\202\352 \214\f }\210\315\323!)\203\257 \324\325\225\326\" \"\327\225 |\210\325\225\327\224|\210\314\225b\210` # \330#!\210\fb\210\331\332#\326#\203\216 \306\211\224\225|\210)\202y \fb\210\333#\334\"\210*`\"{\" {\230\"\307\211\223\210\fb\210)\202\352 \f # \330#!\210\fb\210\331\332#\326#\203\321 \306\211\224\225|\210)\202\274 \fb\210\333#\334\"\210*\335 \211\247\203\352 \n\306V\fb\210 \306=\203\370 \336 !\"\202 \337! =#,\207" [subexp c n negated from woman0-if-to 0 nil skip-syntax-forward "^ " 33 delete-char 1 looking-at "[ntoe]" "[A-Za-z]" WoMan-warn "%s %s -- unrecognized condition name rejected!" match-string "\\(\\\\(..\\|[^0-9]\\)\\(.*\\)\\1\\(.*\\)\\1\\'" copy-marker 2 t 3 woman-strings re-search-forward "\\\\f\\(\\[[^]]+\\]\\|(..\\|.\\)" woman2-process-escapes numeric woman-parse-numeric-arg woman-if-ignore woman-if-body woman-if-conditions-true request end1 to] 6 (#$ . 61289)]) #@185 Process if-body, including \{ ... \}. REQUEST is the invoking directive without the leading dot. If TO is non-nil then delete the if-body. If DELETE is non-nil then delete from point. (defalias 'woman-if-body #[(request to delete) "` \203\n ` |\210\305 \210\306\307!\203K `\310\211\224\n\225|\210)\311\312!\2030 \313\224\2030 \311\314!\210\202 \2038 \202: \310\224`|\210\306\315!\203G \316\313!\210)\202S \203S \317\313!\210\f\320\230\203t \311\321\322\323#\203\221 \310\211\224\n\225|\210)\324\325\322 ?#\210\202\221 \f\325\230\203\221 \311\321\322\323#\203\221 \310\211\224\n\225|\210)\324\325\322\323#\210b)\207" [from to subexp delete request delete-horizontal-space looking-at "[^{\n]*\\(\\\\\n\\)*\\\\{\\s *\\(\\\\\n\\)*" 0 re-search-forward "\\(\\\\{\\|el[ ]*\\\\}\\)\\|\\(\n[.']\\)?[ ]*\\\\}[ ]*" 1 "\\\\}" "^$" delete-char woman-delete-line "ie" "^[.'][ ]*el[ ]*" nil t woman-if-body "el"] 5 (#$ . 62593)]) #@44 Isolated .el request -- should not happen! (defalias 'woman0-el #[nil "\302\303!\210\203 \304\211\224 \225|\210)\305 \210\306\307\310\311#\207\312\310w\210\313\314!\203( \315\316!\210\317y\207" [woman-ignore subexp WoMan-warn "el request without matching `ie' rejected!" 0 delete-horizontal-space woman-if-body "el" nil t "^ " looking-at "[ ]*\\{" search-forward "\\}" 1] 5 (#$ . 63530)]) #@66 Ignore but warn about an if request ending at TO, named REQUEST. (defalias 'woman-if-ignore #[(to request) "\303\304\"\210 \203 \305\n\306#\207\307\310w\210\311\312!\203 \313\314!\210\315y\207" [request woman-ignore to WoMan-warn-ignored "ignored -- condition not handled!" woman-if-body t "^ " nil looking-at "[ ]*\\{" search-forward "\\}" 1] 4 (#$ . 63930)]) #@68 .so filename -- Switch source file. `.so' requests may be nested. (defalias 'woman0-so #[nil "`\306\307!\210` {\211\310 !\2045 \310\311\nP\211!\2045 \312\313\314\n!!!\211\2045 \315p!\2045 \316\317\n\"\210\320 \210\321\322!\210` \323 \324\" \325\f \\\326\" \327\f\"\210\330\211\223\210\fb.\207" [beg end name filename from length woman-forward-arg unquote file-exists-p "../" woman-file-name file-name-sans-extension file-name-nondirectory kill-buffer error "File `%s' not found" beginning-of-line woman-delete-line 1 woman-insert-file-contents 0 copy-marker t woman-pre-process-region nil to] 5 (#$ . 64303)]) #@45 Process .rn xx yy -- rename macro xx to yy. (defalias 'woman0-rn #[nil "l\204* `\305\306\307\"\210` {\310l\204) `\305\306!\210` {\211\nB\fB,\311 \210\312\313!\207" [beg end old new woman0-rename-alist woman-forward-arg unquote concat nil beginning-of-line woman-delete-line 1] 4 (#$ . 64933)]) #@43 Effect renaming required by .rn requests. (defalias 'woman0-rename #[nil "\304\211\2037 \n@\211A @eb\210\305\306 !P\307 P\310 \304\311#\203/ \312 \304\311#\210\202 *\nA\211\204 *\304\207" [woman0-rename-alist new #1=#:--cl-dolist-temp-- old nil "^[.'][ ]*" regexp-quote "." re-search-forward t replace-match] 5 (#$ . 65243)]) (byte-code "\302B\303 \304 \305R!\207" [current-load-list woman-escaped-escape-string woman-unescape-regex (lambda (#1=#:defconst-tmp-var) (defconst woman-unescape-regex #1#)) "\\(" "\\)?"] 5) #@114 Replace escape sequences in the body of MACRO. Replaces || by |, but | by , where | denotes the internal escape. (defalias 'woman-unescape #[(macro) "\303\304 \n#\211\203( \305\224\203 \306\307\310\211\n\305%\202! \306\311\310\211\n$T\202 \n)\207" [start woman-unescape-regex macro nil string-match 1 replace-match "" t "\\"] 6 (#$ . 65783)]) (put 'woman-unescape 'byte-optimizer 'byte-compile-inline-expand) #@176 Process .de/am xx yy -- (re)define/append macro xx; end at `..'. (Should be up to call of yy, which defaults to `.') Optional argument APPEND, if non-nil, means append macro. (defalias 'woman0-de #[(&optional append) "l\204\224 \306\307!\210\310\311!\312\313\n\"\211\204# \f\314\315!Q\211 P\312y\210`\316\317!\210\320 \210 `{\312 \321#\211\203a \322\224\203R \323\324\325\211\322%\202X \323\326\325\211$T\2026 * \203| \203| A AP @ BB)\nB\312y\210 `|\210\327u\210+\320 \210\330\322!\207" [macro from woman0-macro-alist previous woman0-search-regex-start woman0-search-regex-end looking-at "[^ \n]+" match-string 0 nil assoc "\\|" regexp-quote re-search-forward "^\\.[ ]*\\." beginning-of-line string-match 1 replace-match "" t "\\" -1 woman-delete-line woman0-search-regex start woman-unescape-regex body append] 7 (#$ . 66207)]) #@39 Process the macro call named REQUEST. (defalias 'woman0-macro #[(request) "\303 \"\211\203 \304\nA!\202 \305\306\")\207" [request woman0-macro-alist macro assoc woman-interpolate-macro WoMan-warn "Undefined macro %s not interpolated!"] 4 (#$ . 67089)]) #@71 Interpolate (.de) or append (.am) expansion of MACRO into the buffer. (defalias 'woman-interpolate-macro #[(macro) "\306\307w\210\310@\307\211\211\211\211 Al\204P T\311\312\"\313 P`\314\315\316\"\210 `{\306\307w\210\307\317\f #\211\203 \320\n\321\211$\202< \307\317\322 #\211\203f \320\323\321\211$\202R \307\317\324 #\211\203| \320 \321\211$\202h \203\207 \307u\210\202\216 \325 \210\326\327!\210\212c.\207" [macro start actual-arg from formal-arg argno-string " " nil 0 format "%d" "\\\\\\$" woman-forward-arg unquote noskip string-match replace-match t "\\\\\\$." "" "\\\\n(\\.\\$" beginning-of-line woman-delete-line 1 append argno] 7 (#$ . 67353)]) #@142 Match and move over name of form: x, (xx or [xxx...]. Applies to number registers, fonts, strings/macros/diversions, and special characters. (defalias 'woman-match-name #[nil "g\300U\203 \301u\210\302\303!\210\301u\207g\304U\203 \301u\210\302\305!\207\302\306!\207" [91 nil re-search-forward "[^]]+" 40 ".." "."] 2 (#$ . 68056)]) #@179 Process ?roff string requests and escape sequences up to buffer position TO. Strings are defined/updated by `.ds xx string' requests and interpolated by `*x' and `*(xx' escapes. (defalias 'woman-strings #[(&optional to) "\306\307\310#\205x \311\224\203: \312\313w\210l\2040 \306\314!\210\315\316!\312\313w\210\317\320!\210 \315\316!B\211\nB)\321 \210\322\311!\210\202 \316\224\323 \210\315\316! \324\f\n\"\211\203a `|\210n\203Y \325\326!\210\325 A!\210\202t \327\330\f\"\210 \203t `|\210\f\331B\nB+\202 \207" [to string woman-string-alist beg stringname woman-ignore re-search-forward "\\(^[.'][ ]*ds\\)\\|\\\\\\*" t 1 " " nil "[^ \n]+" match-string 0 looking-at ".*" beginning-of-line woman-delete-line woman-match-name assoc insert-before-markers "\\&" WoMan-warn "Undefined string %s not interpolated!" ""] 5 (#$ . 68395)]) #@842 Alist of special character codes with ASCII and extended-font equivalents. Each alist elements has the form (input-string ascii-string extended-font-string . use-symbol-font) where * `\(input-string' is the ?roff encoding, * `ascii-string' is the (multi-character) ASCII simulation, * `extended-font-string' is the single-character string representing the character position in the extended 256-character font, and * `use-symbol-font' is t to indicate use of the symbol font or nil, i.e. omitted, to indicate use of the default font. Any element may be nil. Avoid control character codes (0 to \37, \180 to \237) in `extended-font-string' for now, since they can be displayed only with a modified display table. Use the WoMan command `woman-display-extended-fonts' or a character map accessory to help construct this alist. (defconst woman-special-characters '(("em" "--" "\276" . t) ("bu" "*" "\267" . t) ("fm" "'") ("co" "(C)" "\251") ("pl" "+" "+" . t) ("mi" "-" "-" . t) ("**" "*" "*" . t) ("aa" "'" "\242" . t) ("ul" "_") ("*S" "Sigma" "S" . t) (">=" ">=" "\263" . t) ("<=" "<=" "\243" . t) ("->" "->" "\256" . t) ("<-" "<-" "\254" . t) ("mu" " x " "\264" . t) ("+-" "+/-" "\261" . t) ("bv" "|") ("lq" "\"") ("rq" "\"") ("aq" "'") ("ha" "^") ("ti" "~")) (#$ . 69243)) #@103 Replace text matched by last search with NEWTEXT and return t. Set NEWTEXT in face FACE if specified. (defalias 'woman-replace-match #[(newtext &optional face) "\303\211\224\225|\210)\304 !\210\n\203 \305`S`\302\306$\210\307\207" [subexp newtext face 0 insert-before-markers put-text-property woman-symbol t] 6 (#$ . 70540)]) (put 'woman-replace-match 'byte-optimizer 'byte-compile-inline-expand) #@147 Process special character escapes \(xx, \[xxx] up to buffer position TO. (This must be done AFTER translation, which may use special characters.) (defalias 'woman-special-characters #[(to) "\306\307\310#\205\337 \311\312!\206 \311\313!\314 \n\"\211\203\272 \211 AA)\203\205 \315 \233\203W \203\205 \313 8\316 \317\211 \224\225|\210)\320!\210\203S \321`S`\322\316$\210*\202\333 \203\205 \313 8\323 \317\211 \224\225|\210)\320!\210\203\201 \321`S`\322\316$\210*\202\333 \211 A@)\203\272 \211 A@)\323 \317\211 \224\225|\210)\320!\210\203\266 \321`S`\322\316$\210*\202\333 \324\325\312\224\203\305 \326\202\306 \327\330Q \"\210 \203\333 \317\211 \224\225|\210)*\202 \207" [to name woman-special-characters replacement x woman-use-symbol-font re-search-forward "\\\\\\(?:(\\(..\\)\\|\\[\\([[^]]+\\)\\]\\)" t match-string-no-properties 1 2 assoc 3 woman-symbol 0 insert-before-markers put-text-property face nil WoMan-warn "Special character " "\\(%s" "\\[%s]" " not interpolated!" newtext subexp woman-use-extended-font woman-ignore] 7 (#$ . 70947)]) #@288 Display table of glyphs of graphic characters and their octal codes. All the octal codes in the ranges [32..127] and [160..255] are displayed together with the corresponding glyphs from the default and symbol fonts. Useful for constructing the alist variable `woman-special-characters'. (defalias 'woman-display-extended-fonts #[nil "\302\220rq\210\303 \304W\203C \305\306 \"\307 !\310\307 !\261\210\311`S`\312\313$\210\314c\210 T\211\315U\2035 \316\317c\210\320 \321\246!\203 \317c\210\202 *\322 \221\207" [standard-output i "*WoMan Extended Font Map*" 32 256 format "\\%03o " string " " put-text-property face woman-symbol " " 128 160 "\n" zerop 8 print-help-return-message] 7 (#$ . 72045) nil]) #@104 Delete any double-quote characters between point and TO. Leave point at TO (which should be a marker). (defalias 'woman-unquote #[(to) "\303\304\305 \306#\203/ \203 \307\305!\203 \310\306!\210\202 \204% \307\311!\203) \310\312!\210?\202 \2057 \313\314\n\")\207" [in-quote to request nil search-forward "\"" 1 looking-at delete-char ".*\"" -1 WoMan-warn "Unpaired \" in .%s arguments."] 4 (#$ . 72759)]) #@63 Delete any double-quote characters up to the end of the line. (defalias 'woman-unquote-args #[nil "\300\212\301\210\302 )!\207" [woman-unquote nil point-marker] 2 (#$ . 73178)]) (put 'woman-unquote-args 'byte-optimizer 'byte-compile-inline-expand) #@32 Process non-breaking requests. (defalias 'woman1-roff-buffer #[nil "\306\307\211\211\310\f\307\306#\205Q \311\312\313\314!\211P!\211\203 \315N\203* \210\202 \316\211 \224 \225|\210)l?l\203> \317\314!\210 \210\203 g\320>\203 \321c\210\202 ,\207" [unquote fn request case-fold-search woman-request-regexp subexp t nil re-search-forward intern-soft "woman1-" match-string 1 notfont 0 delete-char (46 39) "\\&"] 5 (#$ . 73433)]) #@47 .B -- Set words of current line in bold font. (defalias 'woman1-B #[nil "\300\301!\207" [woman1-B-or-I ".ft B\n"] 2 (#$ . 73881)]) #@49 .I -- Set words of current line in italic font. (defalias 'woman1-I #[nil "\300\301!\207" [woman1-B-or-I ".ft I\n"] 2 (#$ . 74018)]) #@105 .B/I -- Set words of current line in bold/italic font. B-OR-I is the appropriate complete control line. (defalias 'woman1-B-or-I #[(B-or-I) "c\210\212 \203 \302\212\303\210\304 )!\210\202' \305\306!\203! \303y\210\202 \303\210\307 \210\310c)\207" [B-or-I unquote woman-unquote nil point-marker looking-at "^[.']" delete-horizontal-space "\\fR"] 2 (#$ . 74158)]) #@57 .SM -- Set the current line in small font, i.e. IGNORE! (defalias 'woman1-SM #[nil "\300\207" [nil] 1 (#$ . 74531)]) (defalias 'woman1-SB 'woman1-B) #@70 .BI -- Join words of current line alternating bold and italic fonts. (defalias 'woman1-BI #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fB" "\\fI"] 3 (#$ . 74686)]) #@69 .BR -- Join words of current line alternating bold and Roman fonts. (defalias 'woman1-BR #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fB" "\\fR"] 3 (#$ . 74859)]) #@70 .IB -- Join words of current line alternating italic and bold fonts. (defalias 'woman1-IB #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fI" "\\fB"] 3 (#$ . 75031)]) #@71 .IR -- Join words of current line alternating italic and Roman fonts. (defalias 'woman1-IR #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fI" "\\fR"] 3 (#$ . 75204)]) #@69 .RB -- Join words of current line alternating Roman and bold fonts. (defalias 'woman1-RB #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fR" "\\fB"] 3 (#$ . 75378)]) #@71 .RI -- Join words of current line alternating Roman and italic fonts. (defalias 'woman1-RI #[nil "\300\301\302D!\207" [woman1-alt-fonts "\\fR" "\\fI"] 3 (#$ . 75550)]) #@76 Join words using alternating fonts in FONTS, which MUST be a dynamic list. (defalias 'woman1-alt-fonts #[(fonts) "\211\244\210@c\210\212A\302 \303\"\210l\204$ @c\210A\302 \303\"\210\202 \304c)\207" [fonts unquote woman-forward-arg concat "\\fR"] 3 (#$ . 75724)]) #@199 Move forward over one ?roff argument, optionally unquoting and/or joining. If optional arg UNQUOTE is non-nil then delete any argument quotes. If optional arg CONCAT is non-nil then join arguments. (defalias 'woman-forward-arg #[(&optional unquote concat) "g\303=\203L \203 \304\305!\210\202 \306u\210\307\310!\210g\303=\2033 \203) \304\305!\210\202, \306u\210\307\310!\210\202 h\303=\203D \203P \311\305!\210\202P \312\313 \"\210\202P \314\315!\210\n\204X \316\306w\207\n\317=\206e `\316\306w\210`|\207" [unquote request concat 34 delete-char 1 nil re-search-forward "\"\\|$" delete-backward-char WoMan-warn "Unpaired \" in .%s arguments." skip-syntax-forward "^ " " " noskip] 3 (#$ . 76002)]) (put 'woman1-TP 'notfont t) #@64 .TP -- After tag line, reset font to Roman for paragraph body. (defalias 'woman1-TP #[nil "\212\300y\210\301\302!\203 \303\202 \304y\210\305c)\207" [nil looking-at "\\.\\S-+[ ]*$" 2 1 ".ft R\n"] 2 (#$ . 76738)]) (put 'woman1-ul 'notfont t) #@71 .ul N -- Underline (italicize) the next N input lines, default N = 1. (defalias 'woman1-ul #[nil "l\203 \301\202\n \302 \303 \210\304\301!\210\305c\210y\210\306c)\207" [N 1 woman-parse-numeric-arg beginning-of-line woman-delete-line ".ft I\n" ".ft R\n"] 2 (#$ . 76987)]) (put 'woman1-nh 'notfont t) #@37 .nh -- No hyphenation, i.e. IGNORE! (defalias 'woman1-nh #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 77295)]) (put 'woman1-hy 'notfont t) #@50 .hy N -- Set hyphenation mode to N, i.e. IGNORE! (defalias 'woman1-hy #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 77474)]) (put 'woman1-hc 'notfont t) #@58 .hc c -- Set hyphenation character to c, i.e. delete it! (defalias 'woman1-hc #[nil "\301g!\302 \210\303\304!\210\305\306Q\212\307\310\311#\205% \304\224\205% \312\313!\210\202 *\207" [c char-to-string beginning-of-line woman-delete-line 1 "\\(" "\\)\\|^[.'][ ]*hc" re-search-forward nil t delete-char -1] 4 (#$ . 77666)]) (put 'woman1-hw 'notfont t) #@60 .hw words -- Set hyphenation exception words, i.e. IGNORE! (defalias 'woman1-hw #[nil "\300 \210\301\302!\207" [beginning-of-line woman-delete-line 1] 2 (#$ . 78029)]) (byte-code "\300\301\302\303#\210\304\301\305\"\210\300\306\302\303#\210\304\306\305\"\210\300\307\302\303#\210\304\307\305\"\210\300\310\302\303#\210\304\310\305\"\210\300\311\302\303#\210\304\311\305\"\210\300\312\302\303#\210\304\312\305\"\207" [put woman1-ps notfont t defalias woman-delete-whole-line woman1-ss woman1-cs woman1-ne woman1-vs woman1-bd] 4) #@72 .TX t p -- Resolve SunOS abbrev t and join to p (usually punctuation). (defalias 'woman1-TX #[nil "\300c\210\301\302\303\"\207" ["SunOS " woman-forward-arg unquote concat] 3 (#$ . 78563)]) (byte-code "\300\301\302\303#\210\304\301\305\"\207" [put woman1-IX notfont t defalias woman-delete-whole-line] 4) #@68 Alist of ?roff font indicators and woman font variables and names. (defconst woman-font-alist '(("R" . default) ("I" . woman-italic) ("B" . woman-bold) ("P" . previous) ("1" . default) ("2" . woman-italic) ("3" . woman-bold)) (#$ . 78873)) #@23 Process font changes. (defalias 'woman-change-fonts #[nil "`\306\211 \307\310\311\312#\203\313 \311\211\211\211 \313\224\203< \314\224 \315\311w\210l\2032 \n \2026 \316\317!\210\311y\210\202[ \320\224\203G \306 \202[ \321\224\203X \314\224 \322\323 \210\202[ \322 \204\307 \204\214 \324\314! \325 \f\"\211 \203{ A\202\211 \326\327 \"\210 \330B\fB\330 ) \203\240 `|\210 \331=\203\240 \n \203\256 \316 !\203\256 \332c\210\333 ` #\210 \203\300 ` \202\304 `\306 ,\202 \333 ` #,\207" [woman-font-alist current-font previous-font previous-pos font-alist fescape default re-search-forward "^[.'][ ]*\\(\\(\\ft\\)\\|\\(.P\\)\\)\\|\\(\\\\f\\)" nil 1 2 0 " " looking-at "[^ \n]+" 3 4 t woman-match-name match-string assoc WoMan-warn "Unknown font %s." woman-unknown previous "\\&" woman-set-face notfont beg font fontstring woman-request-regexp] 5 (#$ . 79119)]) #@116 Set the face of the text from FROM to TO to face FACE. Ignore the default face and underline only word characters. (defalias 'woman-set-face #[(from to face) "\305=\206J ?\206J \306!\203D \212\307\310!\311P! b\210`\fW\205B \312\313\f\"\210\314 `\300$\210`\312\315\f\"\210\314 `\300\n$\210`\202 *\207\314 \f\300$\207" [face woman-fontify face-no-ul from to default face-underline-p intern symbol-name "-no-ul" skip-syntax-forward "w" put-text-property "^w"] 5 (#$ . 80026)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list translations default-boundp set-default nil] 3) #@65 Return and delete next char in buffer, including special chars. (defalias 'woman-get-next-char #[nil "\301\302!\203 \303\304!\304\211\224\225|\210)\207\305g!\306\307!\210\207" [subexp looking-at "\\\\\\((..\\|\\*\\(\\[[^]]+\\]\\|(..\\|.\\)\\)" match-string 0 char-to-string delete-char 1] 4 (#$ . 80645)]) #@135 .tr abcde -- Translate a -> b, c -> d, ..., e -> space. Format paragraphs upto TO. Supports special chars. (Breaks, but should not.) (defalias 'woman2-tr #[(to) "@A\306\211\211 \205 \f\307\310O\311Pl\204C \312 l\203% \313\202( \312 \nG\307U\2035 \n\fP\2029 \f\314\nQ\n B B\202 \315\307!\210\316\f!\317U\203V \f\320\306O\202Y \321\fP\211 B\322 !,\207" [translations b a alist matches to nil 1 -1 "]" woman-get-next-char " " "\\|\\" delete-char string-to-char 93 3 "[" woman2-format-paragraphs] 5 (#$ . 80961)]) #@66 Translate up to marker TO. Do this last of all transformations. (defalias 'woman-translate #[(to) "\205, @A\305\n \306#\205+ \307\310\311\312\224\312\225\" \"A!\210\312\211 \224\f\225|\210)\202\n *\207" [translations alist matches to subexp re-search-forward t insert-before-markers-and-inherit assoc buffer-substring-no-properties 0] 6 (#$ . 81493)]) (put 'woman-translate 'byte-optimizer 'byte-compile-inline-expand) #@166 Register alist: the key is the register name as a string. Each element has the form (KEY VALUE . INC) -- inc may be nil. Also bound locally in `woman2-roff-buffer'. (defvar woman-registers '((".H" 24) (".V" 48) (".g" 0) (".i" left-margin) (".j" woman-adjust) (".l" fill-column) (".s" 12) (".u" (if woman-nofill 0 1)) (".v" 48)) (#$ . 81925)) #@71 \kx -- Store current horizontal position in INPUT LINE in register x. (defalias 'woman-mark-horizonal-position #[nil "\302\303\304\305#\205 \306\224b\210\307\310!iDB\306\211\224 \225|\210)\202 \207" [woman-registers subexp re-search-forward "\\\\k\\(.\\)" nil t 0 match-string 1] 5 (#$ . 82273)]) #@123 Process remaining escape sequences up to eol. Handle numeric arguments specially if optional argument NUMERIC is non-nil. (defalias 'woman2-process-escapes-to-eol #[(&optional numeric) "\301\302\303 \304\"\"\207" [numeric woman2-process-escapes copy-marker line-end-position t] 4 (#$ . 82582)]) (put 'woman2-process-escapes-to-eol 'byte-optimizer 'byte-compile-inline-expand) #@179 .nr R +/-N M -- Assign +/-N (wrt to previous value, if any) to register R. The increment for auto-incrementing is set to M. Format paragraphs upto TO. (Breaks, but should not!) (defalias 'woman2-nr #[(to) "`\306\307!\210`{\310\311w\210\311f\312>\205 \311u\210`Sfl?\205- \302\313\314\315 \316\"\n\"\210)\317 \310\311w\210l?\2059 \317 \320 \"\211 \203Q A\f\204Q A \204_ \321\322\323\"\210\202h 9\203h \324 D \203\214 \203w @\202x \321 \325=\203\207 \\\202\213 Z \fBB B\326 \210\327\330!\210\331!-\207" [name pm numeric value inc woman-registers skip-syntax-forward "^ " " " nil (43 45) woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg assoc 0 WoMan-warn "nr %s -- null value assigned as zero!" quote 43 beginning-of-line woman-delete-line 1 woman2-format-paragraphs oldvalue to] 5 (#$ . 82966)]) #@176 Get the value of a numeric argument at or after point. The argument can include the width function and scale indicators. Assumes 10 characters per inch. Does not move point. (defalias 'woman-get-numeric-arg #[nil "\300\301\302\303 \304\"\"\210)\212\305 )\207" [numeric woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg] 4 (#$ . 83835)]) (put 'woman-get-numeric-arg 'byte-optimizer 'byte-compile-inline-expand) #@168 Get the value of a numeric expression at or after point. Unlike `woman-get-numeric-arg', leaves point after the argument. The expression may be an argument in quotes. (defalias 'woman-parse-numeric-arg #[nil "g\302U\203 \303u\210\304\305!\203 \306\202 \307 \303\304\310!\2031 \303u\210\311\312\306!!\211 \307 \"\211\202\247 \304\313!\203_ \306\225b\210\311\312\306!\314\230\203H \315\202K \312\306!!\211 \307 \"\203Y \316\202Z \306\211\202\247 g\211\317>\203\252 \303u\210\320=\203\214 \306V\203\205 \307 \306V\203\201 \316\202\245 \306\202\245 \306\307 \210\202\245 \306V\203\231 \316\307 \210\202\245 \307 \306V\203\244 \316\202\245 \306\211\204 *\207" [op value 34 nil looking-at "[+-]" 0 woman-parse-numeric-value "[+-/*%]" intern-soft match-string "[<=>]=?" "==" "=" 1 (38 58) 38] 4 (#$ . 84284)]) #@245 Get a single numeric value at or after point. The value can be a number register or width function (which assumes 10 characters per inch) and can include scale indicators. It may be an expression in parentheses. Leaves point after the value. (defalias 'woman-parse-numeric-value #[nil "g\306=\203% \307\211u\210\310 \311\312!\210g\313=\203 \307u\210\202\" \314\315!\210)\207\316\317!\2033 \320\321\322!!\202\261 \316\323!\203\211 \324\325!\324\326!\206L \324\327!\206L \324\330!\331\n \"\211 \203 \307 \fA\211A\332\f@! \203z \203z \333 !\f \"\n\f BB B\f)\202\205 \314\334\n\"\210\322+\202\261 \335\336\307\337#\205\261 \322\225\340\321\325!! / 0\335/\307\337#\203\255 \322\2240Z\202\260 \314\341!*\211\204\312 \314\342`\212\307\210`){\"\210\311\343!\210\322\202\"\322\225b\210\316\344!\204\316\345!\204\316\346!\203\350 \347_\211\202\316\350!\203\366 \351_\211\202\316\352!\203\353_\211\202\316\354!\203\355_\211\203\322\225b\210\247\203!\356!\202\")\207" [n pm name woman-registers value inc 40 nil woman-parse-numeric-arg skip-syntax-forward " " 41 WoMan-warn "Parenthesis confusion in numeric expression!" looking-at "[-+]?[.0-9]+" string-to-number match-string 0 "\\\\n\\([-+]\\)?\\(?:\\[\\([^]]+\\)\\]\\|(\\(..\\)\\|\\(.\\)\\)" match-string-no-properties 1 2 3 4 assoc eval intern-soft "Undefined register %s defaulted to 0." re-search-forward "\\=\\\\w\\(\\\\\\[[^]]+\\]\\|\\\\(..\\|.\\)" t regexp-quote "Width escape delimiter error!" "Numeric/register argument error: %s" "^ " "\\s " "[mnuv]" "i" 10 "c" 3.9 "P" 1.7 "p" 0.14 round delim from] 5 (#$ . 85110)]) #@50 Process breaks. Format paragraphs and headings. (defalias 'woman2-roff-buffer #[nil "\306\307 \310K\311K\305K\312\211\211\211 \313 \306\"\210\310\314M\210\311\315KM\210\305\314M\210\316\216\317!\312\306#\205\231 \320\321\322\323!\211P!\211\203V \324\211 \"\224\"\225|\210)\202z \312\325 \326\"\210\204z \327\330!\204j #\203t \331 \210\332\323!\210\202z \312\210\333c\210\f\204\212 g\334>\2041 \335\211\2031 \336 \312\223\210\f !\210\2021 . \207" [woman-registers tab-stop-list translations request fn set-text-properties t make-marker canonically-space-region insert-and-inherit nil set-marker-insertion-type ignore insert ((byte-code "m\204\f \305\306d\307\"\"\210\301 M\210\302\nM\210\303 M\210\f\310\211\223\207" [woman-left-margin canonically-space-region set-text-properties insert-and-inherit to woman2-format-paragraphs copy-marker t nil] 4)) re-search-forward intern-soft "woman2-" match-string 1 0 WoMan-warn-ignored "ignored!" looking-at "[ ]*$" beginning-of-line woman-delete-line 10 (46 39) woman2-format-paragraphs woman-find-next-control-line to case-fold-search woman-request-regexp subexp woman-ignore] 11 (#$ . 86733)]) #@45 Find and return start of next control line. (defalias 'woman-find-next-control-line #[nil "\301\212\302\303\301\304#\211\203# \305\224\203# \306\307!\203# \310\224b\210\311\312!\210\202 )\203- S\202. d)\207" [to nil re-search-forward "\\(\\\\c\\)?\n[.']" t 1 looking-at "br" 0 woman-delete-line 2] 4 (#$ . 87904)]) #@140 .PD d -- Set the interparagraph distance to d. Round to whole lines, default 1 line. Format paragraphs upto TO. (Breaks, but should not.) (defalias 'woman2-PD #[(to) "\301 \210\302!\207" [to woman-set-interparagraph-distance woman2-format-paragraphs] 2 (#$ . 88231)]) #@62 Set the interparagraph distance from a .PD request at point. (defalias 'woman-set-interparagraph-distance #[nil "l\203 \302\202 \300\303\304\305 \306\"\"\210)\212\307 )\310\302!\207" [numeric woman-interparagraph-distance 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line] 4 (#$ . 88507)]) #@78 Set variable `woman-leave-blank-lines' from `woman-interparagraph-distance'. (defalias 'woman-interparagraph-space #[nil "\211\207" [woman-interparagraph-distance woman-leave-blank-lines] 2 (#$ . 88857)]) (put 'woman-interparagraph-space 'byte-optimizer 'byte-compile-inline-expand) #@225 .TH n c x v m -- Begin a man page. Format paragraphs upto TO. n is the name of the page in chapter c; x is extra commentary; v alters page foot left; m alters page head center. (Should set prevailing indent and tabs to 5.) (defalias 'woman2-TH #[(to) "\306\307\310\"\210\311c\210\306\307\310\"\210\312c\210`\313l\204@ \314\315!\203\" \316\317!\210\320 \210`\321c\210\306\307\310\"\210`{ {\230\203 `|\210\202 *\322\212\323 \210`)`\324#\210\313y\210\325 \210\n\n\326 \"\207" [here start woman-default-indent woman-left-margin woman-prevailing-indent to woman-forward-arg unquote concat 40 41 nil looking-at "\"\"[ ]" delete-char 2 delete-horizontal-space " -- " woman-set-face beginning-of-line woman-bold delete-blank-lines woman2-format-paragraphs] 4 (#$ . 89149)]) #@105 .SH -- Sub-head. Leave blank line and subhead. Format paragraphs upto TO. Set prevailing indent to 5. (defalias 'woman2-SH #[(to) "l\203 \306\307!\210\202 \310\212\311\210\312 )!\210\313 \210\311\314\315\316 \317\"\"\210)\302 !\210\311 \2039 \320`\212\311\210`)\321#\210\311y\210\f\311\f\322 \"\207" [numeric woman-interparagraph-distance woman-leave-blank-lines woman-bold-headings woman-default-indent woman-left-margin delete-char 1 woman-unquote nil point-marker beginning-of-line woman2-process-escapes copy-marker line-end-position t woman-set-face woman-bold woman2-format-paragraphs woman-nofill woman-prevailing-indent to] 4 (#$ . 89935)]) #@88 .SS -- Sub-sub-head. Like .SH but indent heading 3 spaces. Format paragraphs upto TO. (defalias 'woman2-SS #[(to) "l\203 \301\302!\210\303c\210\304 \210\305!\207" [to delete-char 1 " " beginning-of-line woman2-SH] 2 (#$ . 90606)]) #@106 .LP,.PP -- Begin paragraph. Set prevailing indent to 5. Leave 1 blank line. Format paragraphs upto TO. (defalias 'woman2-LP #[(to) "\306\307!\210\n\310\f \"\207" [woman-interparagraph-distance woman-leave-blank-lines woman-default-indent woman-prevailing-indent to woman-left-margin woman-delete-line 1 woman2-format-paragraphs] 3 (#$ . 90849)]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias woman2-PP woman2-LP woman2-P] 3) #@59 .ns -- Turn on no-space mode. Format paragraphs upto TO. (defalias 'woman2-ns #[(to) "\302\303!\210\304\305 !\207" [woman-nospace to woman-delete-line 1 t woman2-format-paragraphs] 2 (#$ . 91299)]) #@60 .rs -- Turn off no-space mode. Format paragraphs upto TO. (defalias 'woman2-rs #[(to) "\302\303!\210\304\305 !\207" [woman-nospace to woman-delete-line 1 nil woman2-format-paragraphs] 2 (#$ . 91505)]) #@72 .sp N -- If N > 0 then leave 1 blank line. Format paragraphs upto TO. (defalias 'woman2-sp #[(to) "l\203 \305\202 \300\306\307\310 \311\"\"\210)\212\312 )\211\313Y\203& \314\305!\210\202. \311\315c\210\316y\210 \317\f!)\207" [numeric N woman-negative-vertical-space woman-leave-blank-lines to 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg 0 woman-delete-line ".sp " nil woman2-format-paragraphs] 5 (#$ . 91714)]) #@69 .sp N with N < 0 => overlap following with preceding lines at FROM. (defalias 'woman-negative-vertical-space #[(from) "\306\307!\210b\210\310\311\312\313#\205\364 \301\314\315\316 \313\" \"\210)\212\317 )\312\211 \320 \210\321\322!\210`\211\f[y\210`{`|\210\fy\210 G\323\312 W\203\357 H\211\324=\203^ \312y\210\202\346 l\203 \325\326 # Oc\210 \206y )\202\346 \327=\203\213 \312u\210\202\346 \330=\203\306 g\330=\203\235 \312u\210\202\346 \323 W\203\302 l\203\266 \327c\210\202\271 \312u\210 T\211 \202\246 *\202\346 g\327=\204\332 \n\204\332 \313\306\331\332\322`\"\"\210\333\322!\210 \211TOc\210 T\211 \202G .\202 \207" [from numeric overwritten overlap N c WoMan-warn "Negative vertical spacing support is experimental!" re-search-forward "^\\.sp " nil t woman2-process-escapes copy-marker line-end-position woman-parse-numeric-arg beginning-of-line woman-delete-line 1 0 10 string-match "\n" 32 9 "Character(s) overwritten by negative vertical spacing in line %d" count-lines delete-char i imax eol woman-tab-width #1=#:--cl-dotimes-temp--] 6 (#$ . 92176)]) #@141 Process remaining escape sequences up to marker TO, preserving point. Optional argument NUMERIC, if non-nil, means the argument is numeric. (defalias 'woman2-process-escapes #[(to &optional numeric) "\306!\203\f \307!\204 \310\311\312C\"\210`\313\314\315#\203( \316\211\224\n\225|\210)\202 b\210\313\317\315#\203? \316\211\224\n\225|\210)\202+ m\204I `U\203Q n\204Q \320\321!\210 b\210 \203\203 @ A \313 \315#\205\201 \322\323\324\316\224\316\225\"\f\"A!\210\316\211\224\n\225|\210)\202` *\210) b\210\325!\210 b\210\326\327\315#\203\366 g\211 *\330=\203\262 \331\332!\210+\203\362 \331\333!\210\334c\210\202\362 *\335=\204\362 *\336=\203\316 \331\333!\210\331\332!\210\337c\210\202\362 +\203\332 *\340>\204\362 *\341=\203\347 \342 \210\202\362 \343\344*\211#\210\331\332!\210)\202\216 b\210,\203\326\337\315#\203\f\345 \210\202\376 b\210\313\346\315#\2033\316\224\347 -\211b\210\350 - `|\210\320\351-!!\210*\202 b)\207" [to from subexp translations alist matches markerp marker-insertion-type signal cl-assertion-failed (and (markerp to) (marker-insertion-type to)) re-search-forward "\\\\[&|^]" t 0 "\\\\c.*\n?" insert-before-markers 10 insert-before-markers-and-inherit assoc buffer-substring-no-properties woman-special-characters search-forward "\\" 39 delete-char -1 1 96 40 116 " " (119 110 104) 108 woman-horizontal-line WoMan-warn "Escape ignored: \\%c -> %c" woman-tab-to-tab-stop "\\\\[nw]" nil woman-parse-numeric-value number-to-string c numeric tab-stop-list N] 7 (#$ . 93296)]) #@76 \l'Nc' -- Draw a horizontal line of length N using character c, default _. (defalias 'woman-horizontal-line #[nil "\304\305!\210\304\306!\210\307\310!\210\306u\210\311\225\312\224\313 `W\203\" g\202# \314 |\210\304\306!\210\315\n \"c,\207" [to from N c delete-char -1 1 looking-at "\\(.\\)\\(.*\\)\\1" 2 0 woman-parse-numeric-arg 95 make-string] 3 (#$ . 94834)]) #@65 .br -- Break. Leave no blank line. Format paragraphs upto TO. (defalias 'woman2-br #[(to) "\301\302!\210\303!\207" [to woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 95209)]) #@87 .fi -- Fill subsequent output lines. Leave no blank line. Format paragraphs upto TO. (defalias 'woman2-fi #[(to) "\303\304\305!\210\212\306y\210\307\310!\203 \305)\311\n!\207" [woman-nofill woman-leave-blank-lines to nil woman-delete-line 1 -1 looking-at "[ ]*$" woman2-format-paragraphs] 2 (#$ . 95400)]) #@192 .nf -- Nofill. Subsequent lines are neither filled nor adjusted. Input text lines are copied directly to output lines without regard for the current line length. Format paragraphs upto TO. (defalias 'woman2-nf #[(to) "\302\303\304!\210\305 !\207" [woman-nofill to t woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 95718)]) #@155 .ad c -- Line adjustment is begun (once fill mode is on). Set justification mode to c if specified. Format paragraphs upto TO. (Breaks, but should not.) (defalias 'woman2-ad #[(to) "l\203 \202@ g\306=\203 \202@ g\307=\203 \n\202@ g\310=\203& \202@ g\311>\2030 \f\202@ \305 \312\313\314 \315\" \"\210)\212\316 )\2118\317\320!\210\321!\207" [woman-adjust-previous woman-adjust-left woman-adjust-right woman-adjust-center woman-adjust-both numeric 108 114 99 (98 110) woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line 1 woman2-format-paragraphs woman-adjust woman-justify-list woman-justify to] 5 (#$ . 96057)]) #@76 .na -- No adjusting. Format paragraphs upto TO. (Breaks, but should not.) (defalias 'woman2-na #[(to) "\n\f\211 8\306\307!\210\310 !\207" [woman-adjust woman-adjust-previous woman-justify woman-justify-previous woman-adjust-left woman-justify-list woman-delete-line 1 woman2-format-paragraphs to] 3 (#$ . 96734)]) #@194 Delete all blank lines around point. Leave one blank line if optional argument LEAVE is non-nil and non-zero, or if LEAVE is nil and variable `woman-leave-blank-lines' is non-nil and non-zero. (defalias 'woman-leave-blank-lines #[(&optional leave) "\212\303\304!\305=\204\f \306y\210`)\307\304!\210\310 \210`|\210\2046 \203& \305=\203( \n \2036 \305V\2036 \311\312!\210\306\211\207" [woman-nospace leave woman-leave-blank-lines skip-syntax-backward " " 0 nil skip-syntax-forward beginning-of-line insert-before-markers 10] 3 (#$ . 97062)]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list woman-temp-indent default-boundp set-default nil] 3) #@207 Indent, fill and adjust paragraphs upto TO to current left margin. If optional arg NEW-LEFT is non-nil then reset current left margin. If `woman-nofill' is non-nil then indent without filling or adjusting. (defalias 'woman2-format-paragraphs #[(to &optional new-left) "\203 \306\307!\203 \310\311\312!\210` Y?\205\303 \313\314 \315\"\210 \203@ \302 \210\2033 j\210\313y\210\316` #\210\317 !\210\202\277 ` W\203\277 \302 \210` \206R j\210\317 !\210\313y\210\320\321 \310#\203o l\203o \311\312!\203o \310l\203w m\204z \322 \210\323`\"\310V\204\220 \212\324u\210iV)\203\273 \203\263 W\203\263 \325`#\210\212b\210\313y\210`*\325`#\210)\202@ \313\211\207" [new-left left-margin woman-leave-blank-lines to woman-nospace woman-nofill looking-at "^\\s *$" 1 skip-syntax-forward " " nil woman2-process-escapes numeric indent-rigidly woman-horizontal-escapes re-search-forward "\\(^\\s *$\\)\\|\\(^\\s +\\)" beginning-of-line count-lines -1 fill-region-as-paragraph woman-temp-indent from fill-column woman-justify] 4 (#$ . 97749)]) #@182 .TP i -- Set prevailing indent to i. Format paragraphs upto TO. Begin indented paragraph with hanging tag given by next text line. If tag doesn't fit, place it on a separate line. (defalias 'woman2-TP #[(to) "\303 \304 !\210\305\n\")\207" [i woman-interparagraph-distance to woman2-get-prevailing-indent woman-leave-blank-lines woman2-tagged-paragraph] 3 (#$ . 98822)]) #@64 .IP x i -- Same as .TP with tag x. Format paragraphs upto TO. (defalias 'woman2-IP #[(to) "l\203 \306\n \f\\\"\207\307\310!\210\311\312! \313 \210\301 \210\314\315!\2064 \314\316!\2054 \212\317\320y!\2053 \314!)?\205< \321\n \")\207" [woman-interparagraph-distance woman-leave-blank-lines to woman-left-margin woman-prevailing-indent i woman2-format-paragraphs woman-forward-arg unquote woman2-get-prevailing-indent leave-eol beginning-of-line looking-at "^\\.IP" "^\\.sp" zerop 1 woman2-tagged-paragraph woman-request-regexp] 4 (#$ . 99201)]) #@68 Find and return start of next control line, even if already there! (defalias 'woman-find-next-control-line-carefully #[nil "\300\301!\203 `\207\302 \207" [looking-at "^[.']" woman-find-next-control-line] 2 (#$ . 99757)]) #@174 Begin indented paragraph with hanging tag given by current text line. If tag doesn't fit, leave it on separate line. Format paragraphs upto TO. Set prevailing indent to I. (defalias 'woman2-tagged-paragraph #[(to i) "\306\307!\204 \310` U\203D \306\311!\203D \312\313!\314\235\203# \315\313!\210\202> \316\211\224\n\225|\210)\312\313!\317\230\203; \320 !\210\202> \321 \210 \322 \310\223\210`\310\211 \323\324\325 \326\" \"\210) \310y\210\327\212\330y\210`)`!#\210` U\203\205 \306\331!\203\205 \316\211\224\n\225|\210)\321 \210 \322 \310\223\210 \"\\ ` W\205\267 \332 !\210 b\210\310\210 iZ\211\"\316V\203\265 \333\313!\210\334 \210\335\336\"\"\210 b)\207" [woman-leave-blank-lines to subexp tag woman-nospace numeric looking-at "\\s *$" nil "^[.'][ ]*\\(PD\\|br\\|ta\\|sp\\) *" match-string 1 ("br" "sp") woman-delete-line 0 "ta" woman2-ta woman-set-interparagraph-distance woman-find-next-control-line-carefully woman2-process-escapes copy-marker line-end-position t fill-region-as-paragraph -1 "^[.'][ ]*PD *" woman2-format-paragraphs delete-char delete-horizontal-space insert-char 32 woman-left-margin left-margin woman-justify i] 5 (#$ . 99986)]) #@103 .HP i -- Set prevailing indent to i. Format paragraphs upto TO. Begin paragraph with hanging indent. (defalias 'woman2-HP #[(to) "\306 \307 \\\")\207" [i woman-interparagraph-distance woman-leave-blank-lines woman-left-margin woman-temp-indent to woman2-get-prevailing-indent woman2-format-paragraphs] 4 (#$ . 101166)]) #@187 Set prevailing indent to integer argument at point, and return it. If no argument then return the existing prevailing indent. Delete line from point and eol unless LEAVE-EOL is non-nil. (defalias 'woman2-get-prevailing-indent #[(&optional leave-eol) "l\203 \2044 \304\305!\210\2024 \301\306\307\310 \311\" \"\210)\212\312 )\313 \210\204+ \304\305!\210\n\314V\2033 \n) \207" [leave-eol numeric i woman-prevailing-indent delete-char 1 woman2-process-escapes copy-marker line-end-position t woman-parse-numeric-arg woman-delete-line 0] 4 (#$ . 101501)]) #@24 Push VALUE onto STACK. (defalias 'woman-push '(macro . #[(value stack) "\302\303 EE\207" [stack value setq cons] 5 (#$ . 102064)])) #@81 Pop into VARIABLE the value at the top of STACK. Allow for mismatched requests! (defalias 'woman-pop '(macro . #[(variable stack) "\302\303 \304D\305D\257E\207" [stack variable if setq car cdr] 8 (#$ . 102204)])) #@140 .RS i -- Start relative indent, move left margin in distance i. Set prevailing indent to 5 for nested indents. Format paragraphs upto TO. (defalias 'woman2-RS #[(to) " B\n B\306 \\\f\307 \"\207" [woman-left-margin woman-RS-left-margin woman-prevailing-indent woman-RS-prevailing-indent woman-default-indent to woman2-get-prevailing-indent woman2-format-paragraphs] 3 (#$ . 102429)]) #@109 .RE -- End of relative indent. Format paragraphs upto TO. Set prevailing indent to amount of starting .RS. (defalias 'woman2-RE #[(to) "\203\n @A\n\203 \n@\nA\305\306!\210\307\f \"\207" [woman-RS-left-margin woman-left-margin woman-RS-prevailing-indent woman-prevailing-indent to woman-delete-line 1 woman2-format-paragraphs] 3 (#$ . 102827)]) #@200 Reset, increment or decrement argument ARG, which must be quoted. If no argument then use value of optional arg PREVIOUS if non-nil, otherwise set PREVIOUS. Delete the whole remaining control line. (defalias 'woman-set-arg #[(arg &optional previous) "l\203 \203 \305 !\202 \306L\210\202g \203 \305!L\210\302\307\310\311 \312\"\n\"\210)\313\314!\2055 g\315u\210\316 \211 \204D L\210\202c \f\317U\203U \305! \\L\210\202c \f\320U\203c \305! ZL\210*\321 \210\322\315!\207" [arg previous numeric i pm eval 0 woman2-process-escapes copy-marker line-end-position t looking-at "[+-]" 1 woman-parse-numeric-arg 43 45 beginning-of-line woman-delete-line] 5 (#$ . 103187)]) (byte-code "\303B\304\303!\204 \305\303 \"\210\306B\304\306!\204 \305\306\n\"\210\303\207" [current-load-list woman-fill-column woman-left-margin woman-ll-fill-column default-boundp set-default woman-in-left-margin] 3) #@108 .ll +/-N -- Set, increment or decrement line length. Format paragraphs upto TO. (Breaks, but should not.) (defalias 'woman2-ll #[(to) "\301\302\303\"\210\304!\207" [to woman-set-arg fill-column woman-ll-fill-column woman2-format-paragraphs] 3 (#$ . 104100)]) #@80 .in +/-N -- Set, increment or decrement the indent. Format paragraphs upto TO. (defalias 'woman2-in #[(to) "\301\302\303\"\210\304!\207" [to woman-set-arg left-margin woman-in-left-margin woman2-format-paragraphs] 3 (#$ . 104367)]) #@59 .ti +/-N -- Temporary indent. Format paragraphs upto TO. (defalias 'woman2-ti #[(to) "\303\301!\210\304\n\305\"\207" [left-margin woman-temp-indent to woman-set-arg woman2-format-paragraphs nil] 3 (#$ . 104606)]) #@235 .ta Nt ... -- Set tabs, left type, unless t=R(right), C(centered). (Breaks, but should not.) The tab stops are separated by spaces; a value preceded by + represents an increment to the previous stop value. Format paragraphs upto TO. (defalias 'woman2-ta #[(to) "\306\301\307\310\311 \312\" \"\210)\212\313l\204I g\314=\205 \315u\210\312\316 \211 \203- \n \\\202. *g\317>\203: \ngB\nB\320\321!\210\322\306w\210\202 *\323\315!\210\324!\325 !\207" [tab-stop-list numeric tab-stop i plus to nil woman2-process-escapes copy-marker line-end-position t 0 43 1 woman-parse-numeric-arg (82 67) skip-syntax-forward "^ " " " woman-delete-line reverse woman2-format-paragraphs] 5 (#$ . 104829)]) #@72 If TAB-STOP-LIST is a cons, return its car, else return TAB-STOP-LIST. (defalias 'woman-get-tab-stop #[(tab-stop-list) ":\203 @\207\207" [tab-stop-list] 1 (#$ . 105534)]) (put 'woman-get-tab-stop 'byte-optimizer 'byte-compile-inline-expand) #@182 Insert spaces to next defined tab-stop column. The variable `tab-stop-list' is a list whose elements are either left tab stop columns or pairs (COLUMN . TYPE) where TYPE is R or C. (defalias 'woman-tab-to-tab-stop #[nil "\306\307!\210\211\203% i @\211:\203 @\202 )Y\203% A\211\204\n \203\203 @\211:\2053 \nA\310\211 \203w \n\211:\203H @\202I )\212\310\210`)\212\311\312\f\313#)\211\203c S\202d \f`Z\n \314=\203t \315\245\202u Z\niZ\316\317 \",\202\205 \317c)\207" [tab-stop-list tabs tab type eol n delete-backward-char 1 nil search-forward " " t 67 2 insert-char 32] 5 (#$ . 105786)]) #@84 .DT -- Restore default tabs. Format paragraphs upto TO. (Breaks, but should not.) (defalias 'woman2-DT #[(to) "\302\303\304!\210\305 !\207" [tab-stop-list to nil woman-delete-line 1 woman2-format-paragraphs] 2 (#$ . 106406)]) #@159 .fc a b -- Set field delimiter a and pad character b. Format paragraphs upto TO. A VERY FIRST ATTEMPT to make fields at least readable! Needs doing properly! (defalias 'woman2-fc #[(to) "l\203 \305 \210\306\307!\210\202n g\310\311\311u\210\312\311w\210l\204! g\305 \210\306\307!\210\212\313\314\311\315#\2034 \316\224)\317\n\320\321\n\322\323\n&\212\313\n\315#\203m \316\224b\210\324\307!\210 c\210\316\225b\210\325\307!\210\326 !\210\327\316\224\316\225 \315%\210\202A ,\330\f!\207" [end pad delim woman-unpadded-space-char to beginning-of-line woman-delete-line 1 32 nil " " re-search-forward "^[.'][ ]*fc\\s " t 0 string 91 94 93 42 delete-char delete-backward-char insert-before-markers subst-char-in-region woman2-format-paragraphs] 8 (#$ . 106641)]) #@78 .TS -- Start of table code for the tbl processor. Format paragraphs upto TO. (defalias 'woman2-TS #[(to) "\305\306!\210\203~ \307\310!\203 \305\306!\210\307\311!\204 \305\306!\210\202 \305\306!\210`\306\312\313 \314#\nb\210\203} ` W\203Q \312\313 \314#\203K \315u\210i V\203K i\316y\210\2022 \nb\210 \317\\` W\203w \312\313 \314#\203q \320\315!\210\321\322 iZ\"\210\316y\210\202X \nb\210\202' *\314\323 !\207" [woman-emulate-tbl col start to woman-nofill woman-delete-line 1 looking-at ".*;[ ]*$" ".*\\.[ ]*$" search-forward " " t -1 nil 3 delete-char insert-char 32 woman2-format-paragraphs] 4 (#$ . 107415)]) (byte-code "\301\302\303\"\210\304B\305\304!\204 \306\304\307\"\210\310B\305\310!\204# \306\310\307\"\210\307\207" [current-load-list defalias woman2-TE woman2-fi WoMan-current-file default-boundp set-default nil WoMan-Log-header-point-max] 3) #@49 Log the beginning of formatting in *WoMan-Log*. (defalias 'WoMan-log-begin #[nil "\305 r\306\307!q\210 \310=\204 \310\311!\210\312db\210\313 ;\203$ \314 P\202' \315P\316\317 \320\261\210d\211*\207" [WoMan-current-buffer major-mode buffer-read-only WoMan-current-file WoMan-Log-header-point-max buffer-name get-buffer-create "*WoMan-Log*" view-mode 1 nil "\n\f\nFormatting " "file " "buffer " " at " current-time-string "\n"] 5 (#$ . 108292)]) #@63 Log a message out of FORMAT control string and optional ARGS. (defalias 'WoMan-log #[(format &rest args) "\302\303\300 #!\207" [format args WoMan-log-1 apply] 5 (#$ . 108747)]) #@71 Log a warning message out of FORMAT control string and optional ARGS. (defalias 'WoMan-warn #[(format &rest args) "\302\300 #\303\304P!\207" [format args apply WoMan-log-1 "** "] 4 (#$ . 108931)]) #@105 Log a warning message about ignored directive REQUEST. IGNORED is a string appended to the log message. (defalias 'WoMan-warn-ignored #[(request ignored) "`\212\303\210`){\211G\304V\203 \305!\306U\204 \307P\310\311 \312\n\260!)\207" [tail request ignored nil 0 string-to-char 32 " " WoMan-log-1 "** " " request "] 7 (#$ . 109139)]) #@131 Log the end of formatting in *WoMan-Log*. TIME specifies the time it took to format the man page, to be printed with the message. (defalias 'WoMan-log-end #[(time) "\301\302\303\"\304\"\207" [time WoMan-log-1 format "Formatting time %d seconds." end] 4 (#$ . 109489)]) #@128 Log a message STRING in *WoMan-Log*. If optional argument END is non-nil then make buffer read-only after logging the message. (defalias 'WoMan-log-1 #[(string &optional end) "r\305\306!q\210\307db\210 \204 \310c\210\n\311\261\210 \203 \312\202= \203= \313\314 \313\315p!!\210\f\203; \fb\210\316y\210\317\320!\210!\210)\307\207" [buffer-read-only end string woman-show-log WoMan-Log-header-point-max get-buffer-create "*WoMan-Log*" nil " " "\n" t select-window selected-window display-buffer -1 recenter 0] 5 (#$ . 109766)]) (provide 'woman)
Close
