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 : proced.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/proced.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 "`proced.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\306\310\311\312& \207" [require time-date custom-declare-group proced nil "Proced mode." :group processes unix :prefix "proced-"] 10) #@143 Name of signal function. It can be an elisp function (usually `signal-process') or a string specifying the external command (usually "kill"). (custom-declare-variable 'proced-signal-function ''signal-process '(#$ . 788) :group 'proced :type '(choice (function :tag "function") (string :tag "command"))) #@50 List of signals, used for minibuffer completion. (custom-declare-variable 'proced-signal-list ''(("HUP (1. Hangup)") ("INT (2. Terminal interrupt)") ("QUIT (3. Terminal quit)") ("ABRT (6. Process abort)") ("KILL (9. Kill - cannot be caught or ignored)") ("ALRM (14. Alarm Clock)") ("TERM (15. Termination)") ("CONT (Continue executing)") ("STOP (Stop executing / pause - cannot be caught or ignored)") ("TSTP (Terminal stop / pause)")) '(#$ . 1097) :group 'proced :type '(repeat (string :tag "signal"))) #@2536 Alist of rules for handling Proced attributes. Each element has the form (KEY NAME FORMAT JUSTIFY PREDICATE REVERSE SORT-SCHEME REFINER). Symbol KEY is the car of a process attribute. String NAME appears in the header line. FORMAT specifies the format for displaying the attribute values. It can be a string passed to `format'. It can be a function called with one argument, the value of the attribute. The value nil means take as is. If JUSTIFY is an integer, its modulus gives the width of the attribute values formatted with FORMAT. If JUSTIFY is positive, NAME appears right-justified, otherwise it appears left-justified. If JUSTIFY is 'left or 'right, the field width is calculated from all field values in the listing. If JUSTIFY is 'left, the field values are formatted left-justified and right-justified otherwise. PREDICATE is the predicate for sorting and filtering the process listing based on attribute KEY. PREDICATE takes two arguments P1 and P2, the corresponding attribute values of two processes. PREDICATE should return 'equal if P1 has same rank like P2. Any other non-nil value says that P1 is "less than" P2, or nil if not. If PREDICATE is nil the attribute cannot be sorted. PREDICATE defines an ascending sort order. REVERSE is non-nil if the sort order is descending. SORT-SCHEME is a list (KEY1 KEY2 ...) defining a hierarchy of rules for sorting the process listing. KEY1, KEY2, ... are KEYs appearing as cars of `proced-grammar-alist'. First the PREDICATE of KEY1 is evaluated. If it yields non-equal, it defines the sort order for the corresponding processes. If it evaluates to 'equal the PREDICATE of KEY2 is evaluated, etc. REFINER can be a list of flags (LESS-B EQUAL-B LARGER-B) used by the command `proced-refine' (see there) to refine the listing based on attribute KEY. This command compares the value of attribute KEY of every process with the value of attribute KEY of the process at the position of point using PREDICATE. If PREDICATE yields non-nil, the process is accepted if LESS-B is non-nil. If PREDICATE yields 'equal, the process is accepted if EQUAL-B is non-nil. If PREDICATE yields nil, the process is accepted if LARGER-B is non-nil. REFINER can also be a list (FUNCTION HELP-ECHO). FUNCTION is called with one argument, the PID of the process at the position of point. The function must return a list of PIDs that is used for the refined listing. HELP-ECHO is a string that is shown when mouse is over this field. If REFINER is nil no refinement is done. (custom-declare-variable 'proced-grammar-alist ''((euid "EUID" "%d" right proced-< nil (euid pid) (nil t nil)) (user "USER" nil left proced-string-lessp nil (user pid) (nil t nil)) (egid "EGID" "%d" right proced-< nil (egid euid pid) (nil t nil)) (group "GROUP" nil left proced-string-lessp nil (group user pid) (nil t nil)) (comm "COMMAND" nil left proced-string-lessp nil (comm pid) (nil t nil)) (state "STAT" nil left proced-string-lessp nil (state pid) (nil t nil)) (ppid "PPID" "%d" right proced-< nil (ppid pid) ((lambda (ppid) (proced-filter-parents proced-process-alist ppid)) "refine to process parents")) (pgrp "PGRP" "%d" right proced-< nil (pgrp euid pid) (nil t nil)) (sess "SESS" "%d" right proced-< nil (sess pid) (nil t nil)) (ttname "TTY" proced-format-ttname left proced-string-lessp nil (ttname pid) (nil t nil)) (tpgid "TPGID" "%d" right proced-< nil (tpgid pid) (nil t nil)) (minflt "MINFLT" "%d" right proced-< nil (minflt pid) (nil t t)) (majflt "MAJFLT" "%d" right proced-< nil (majflt pid) (nil t t)) (cminflt "CMINFLT" "%d" right proced-< nil (cminflt pid) (nil t t)) (cmajflt "CMAJFLT" "%d" right proced-< nil (cmajflt pid) (nil t t)) (utime "UTIME" proced-format-time right proced-time-lessp t (utime pid) (nil t t)) (stime "STIME" proced-format-time right proced-time-lessp t (stime pid) (nil t t)) (time "TIME" proced-format-time right proced-time-lessp t (time pid) (nil t t)) (cutime "CUTIME" proced-format-time right proced-time-lessp t (cutime pid) (nil t t)) (cstime "CSTIME" proced-format-time right proced-time-lessp t (cstime pid) (nil t t)) (ctime "CTIME" proced-format-time right proced-time-lessp t (ctime pid) (nil t t)) (pri "PR" "%d" right proced-< t (pri pid) (nil t t)) (nice "NI" "%3d" 3 proced-< t (nice pid) (t t nil)) (thcount "THCOUNT" "%d" right proced-< t (thcount pid) (nil t t)) (start "START" proced-format-start 6 proced-time-lessp nil (start pid) (t t nil)) (vsize "VSIZE" "%d" right proced-< t (vsize pid) (nil t t)) (rss "RSS" "%d" right proced-< t (rss pid) (nil t t)) (etime "ETIME" proced-format-time right proced-time-lessp t (etime pid) (nil t t)) (pcpu "%CPU" "%.1f" right proced-< t (pcpu pid) (nil t t)) (pmem "%MEM" "%.1f" right proced-< t (pmem pid) (nil t t)) (args "ARGS" proced-format-args left proced-string-lessp nil (args pid) (nil t nil)) (pid "PID" "%d" right proced-< nil (pid) ((lambda (ppid) (proced-filter-children proced-process-alist ppid)) "refine to process children")) (tree "TREE" proced-format-tree left nil nil nil nil)) '(#$ . 1623) :group 'proced :type '(repeat (list :tag "Attribute" (symbol :tag "Key") (string :tag "Header") (choice :tag "Format" (const :tag "None" nil) (string :tag "Format String") (function :tag "Formatting Function")) (choice :tag "Justification" (const :tag "left" left) (const :tag "right" right) (integer :tag "width")) (choice :tag "Predicate" (const :tag "None" nil) (function :tag "Function")) (boolean :tag "Descending Sort Order") (repeat :tag "Sort Scheme" (symbol :tag "Key")) (choice :tag "Refiner" (const :tag "None" nil) (list (function :tag "Refinement Function") (string :tag "Help echo")) (list :tag "Refine Flags" (boolean :tag "Less") (boolean :tag "Equal") (boolean :tag "Larger")))))) #@415 List of functions defining custom attributes. This variable extends the functionality of `proced-process-attributes'. Each function is called with one argument, the list of attributes of a system process. It returns a cons cell of the form (KEY . VALUE) like `process-attributes'. This cons cell is appended to the list returned by `proced-process-attributes'. If the function returns nil, the value is ignored. (custom-declare-variable 'proced-custom-attributes 'nil '(#$ . 7387) :group 'proced :type '(repeat (function :tag "Attribute"))) #@328 Alist of formats of listing. The car of each element is a symbol, the name of the format. The cdr is a list of attribute keys appearing in `proced-grammar-alist'. An element of this list may also be a list of attribute keys that specifies alternatives. If the first attribute is absent for a process, use the second one, etc. (custom-declare-variable 'proced-format-alist ''((short user pid tree pcpu pmem start time (args comm)) (medium user pid tree pcpu pmem vsize rss ttname state start time (args comm)) (long user euid group pid tree pri nice pcpu pmem vsize rss ttname state start time (args comm)) (verbose user euid group egid pid ppid tree pgrp sess pri nice pcpu pmem state thcount vsize rss ttname tpgid minflt majflt cminflt cmajflt start time utime stime ctime cutime cstime etime (args comm))) '(#$ . 7937) :group 'proced :type '(alist :key-type (symbol :tag "Format Name") :value-type (repeat :tag "Keys" (choice (symbol :tag #1="") (repeat :tag "Alternative Keys" (symbol :tag #1#)))))) #@160 Current format of Proced listing. It can be the car of an element of `proced-format-alist'. It can also be a list of keys appearing in `proced-grammar-alist'. (custom-declare-variable 'proced-format ''short '(#$ . 8949) :group 'proced :type '(choice (symbol :tag "Format Name") (repeat :tag "Keys" (symbol :tag "")))) (make-variable-buffer-local 'proced-format) #@767 Alist of process filters. The car of each element is a symbol, the name of the filter. The cdr is a list of elementary filters that are applied to every process. A process is displayed if it passes all elementary filters of a selected filter. An elementary filter can be one of the following: (KEY . REGEXP) If value of attribute KEY matches REGEXP, accept this process. (KEY . FUN) Apply function FUN to attribute KEY. Accept this process, if FUN returns non-nil. (function . FUN) For each process, apply function FUN to list of attributes of each. Accept the process if FUN returns non-nil. (fun-all . FUN) Apply function FUN to entire process list. FUN must return the filtered list. (custom-declare-variable 'proced-filter-alist '`((user (user \, (concat "\\`" (user-real-login-name) "\\'"))) (user-running (user \, (concat "\\`" (user-real-login-name) "\\'")) (state . "\\`[Rr]\\'")) (all) (all-running (state . "\\`[Rr]\\'")) (emacs (fun-all lambda (list) (proced-filter-children list ,(emacs-pid))))) '(#$ . 9318) :group 'proced :type '(repeat (cons :tag "Filter" (symbol :tag "Filter Name") (repeat :tag "Filters" (choice (cons :tag "Key . Regexp" (symbol :tag "Key") regexp) (cons :tag "Key . Function" (symbol :tag "Key") function) (cons :tag "Function" (const :tag "Key: function" function) function) (cons :tag "Fun-all" (const :tag "Key: fun-all" fun-all) function)))))) #@194 Current filter of proced listing. It can be the car of an element of `proced-filter-alist'. It can also be a list of elementary filters as in the cdrs of the elements of `proced-filter-alist'. (custom-declare-variable 'proced-filter ''user '(#$ . 10788) :group 'proced :type '(choice (symbol :tag "Filter Name") (repeat :tag "Filters" (choice (cons :tag "Key . Regexp" (symbol :tag "Key") regexp) (cons :tag "Key . Function" (symbol :tag "Key") function) (cons :tag "Function" (const :tag "Key: function" function) function) (cons :tag "Fun-all" (const :tag "Key: fun-all" fun-all) function))))) (make-variable-buffer-local 'proced-filter) #@197 Current sort scheme for proced listing. It must be the KEY of an element of `proced-grammar-alist'. It can also be a list of KEYs as in the SORT-SCHEMEs of the elements of `proced-grammar-alist'. (custom-declare-variable 'proced-sort ''pcpu '(#$ . 11435) :group 'proced :type '(choice (symbol :tag "Sort Scheme") (repeat :tag "Key List" (symbol :tag "Key")))) (make-variable-buffer-local 'proced-sort) #@58 Non-nil if proced listing is sorted in descending order. (custom-declare-variable 'proced-descend 't '(#$ . 11843) :group 'proced :type '(boolean :tag "Descending Sort Order")) (make-variable-buffer-local 'proced-descend) #@66 If non-nil, key of the attribute that defines the `goal-column'. (custom-declare-variable 'proced-goal-attribute ''args '(#$ . 12071) :group 'proced :type '(choice (const :tag "none" nil) (symbol :tag "key"))) #@60 Time interval in seconds for auto updating Proced buffers. (custom-declare-variable 'proced-auto-update-interval '5 '(#$ . 12287) :group 'proced :type 'integer) #@107 Non-nil for auto update of a Proced buffer. Can be changed interactively via `proced-toggle-auto-update'. (custom-declare-variable 'proced-auto-update-flag 'nil '(#$ . 12455) :group 'proced :type 'boolean) (make-variable-buffer-local 'proced-auto-update-flag) #@55 Non-nil for display of Proced buffer as process tree. (custom-declare-variable 'proced-tree-flag 'nil '(#$ . 12721) :group 'proced :type 'boolean) (make-variable-buffer-local 'proced-tree-flag) #@128 Normal hook run after displaying or updating a Proced buffer. May be used to adapt the window size via `fit-window-to-buffer'. (custom-declare-variable 'proced-post-display-hook 'nil '(#$ . 12922) :type 'hook :options '(fit-window-to-buffer) :group 'proced) #@121 Normal hook run after sending a signal to processes by `proced-send-signal'. May be used to revert the process listing. (custom-declare-variable 'proced-after-send-signal-hook 'nil '(#$ . 13187) :type 'hook :options '(proced-revert) :group 'proced) #@55 Non-nil means Proced is known to work on this system. (defvar proced-available (byte-code "\300 ??\207" [list-system-processes] 1) (#$ . 13442)) #@147 Alist of processes displayed by Proced. The car of each element is the PID, and the cdr is a list of cons pairs, see `proced-process-attributes'. (defvar proced-process-alist nil (#$ . 13594)) (make-variable-buffer-local 'proced-process-alist) #@91 Sort scheme for listing (internal format). It is a list of lists (KEY PREDICATE REVERSE). (defvar proced-sort-internal nil (#$ . 13844)) #@40 In Proced, the current mark character. (defvar proced-marker-char 42 (#$ . 13987)) (byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\304\301%\210\307\313\314\315\304\301%\210\307\316\317\320\304\301%\207" [custom-declare-group proced-faces nil "Faces used by Proced." :group proced faces custom-declare-face proced-mark ((t (:inherit font-lock-constant-face))) "Face used for Proced marks." proced-marked ((t (:inherit font-lock-warning-face))) "Face used for marked processes." proced-sort-header ((t (:inherit font-lock-keyword-face))) "Face used for header of attribute used for sorting."] 8) #@81 Regexp matching a marked line. Important: the match ends just after the marker. (defvar proced-re-mark "^[^ \n]" (#$ . 14606)) #@39 Headers in Proced buffer as a string. (defvar proced-header-line nil (#$ . 14739)) (make-variable-buffer-local 'proced-header-line) #@38 Temporary alist (internal variable). (defvar proced-temp-alist nil (#$ . 14877)) #@42 Proced process tree (internal variable). (defvar proced-process-tree nil (#$ . 14964)) #@53 Internal variable for depth of Proced process tree. (defvar proced-tree-depth nil (#$ . 15057)) #@58 Stores if Proced auto update timer is already installed. (defvar proced-auto-update-timer nil (#$ . 15159)) #@28 Name of Proced Log buffer. (defvar proced-log-buffer "*Proced log*" (#$ . 15273)) #@25 Help string for Proced. (defconst proced-help-string "(n)ext, (p)revious, (m)ark, (u)nmark, (k)ill, (q)uit (type ? for more help)" (#$ . 15361)) #@57 Help string shown when mouse is over a sortable header. (defconst proced-header-help-echo "mouse-1, mouse-2: sort by attribute %s%s (%s)" (#$ . 15512)) #@57 Help string shown when mouse is over a refinable field. (defconst proced-field-help-echo "mouse-2, RET: refine by attribute %s %s" (#$ . 15670)) (byte-code "\303B\304\303!\204 \305\303 \306B\307\310\n!\311Q\312BD\"\210\303\207" [current-load-list proced-re-mark proced-marker-char proced-font-lock-keywords default-boundp set-default 'proced-mark "^[" char-to-string "]" (".+" (proced-move-to-goal-column) nil (0 'proced-marked))] 6) #@29 Keymap for Proced commands. (defvar proced-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\304#\210\302\311\307#\210\302\312\307#\210\302\313\304#\210\302\314\307#\210\302\315\316#\210\302\317\316#\210\302\320\321#\210\302\312\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\340#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\361#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\372#\210\302\374\375#\210\302\376\377#\210\302\201@ \201A #\210\302\201B \201A #\210)\207" [km make-sparse-keymap define-key " " next-line "n" "p" previous-line "" "" "" [down] [up] "d" proced-mark "m" "u" proced-unmark proced-unmark-backward "M" proced-mark-all "U" proced-unmark-all "t" proced-toggle-marks "C" proced-mark-children "P" proced-mark-parents "f" proced-filter-interactive [mouse-2] proced-refine " " "sc" proced-sort-pcpu "sm" proced-sort-pmem "sp" proced-sort-pid "ss" proced-sort-start "sS" proced-sort-interactive "st" proced-sort-time "su" proced-sort-user [header-line mouse-1] proced-sort-header [header-line mouse-2] "T" proced-toggle-tree "F" proced-format-interactive "o" proced-omit-processes "x" proced-send-signal "k" "h" describe-mode "?" proced-help [remap undo] proced-undo [remap advertised-undo]] 4) (#$ . 16113)) #@13 Proced Menu (defvar proced-menu nil (#$ . 17648)) (byte-code "\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323 \"BBB\324\325\320\326\322\327\n\"BBB\330BBBBBBBBBBBB$\207" [proced-mode-map proced-filter-alist proced-format-alist easy-menu-do-define proced-menu "Proced Menu" "Proced" ["Mark" proced-mark :help "Mark Current Process"] ["Unmark" proced-unmark :help "Unmark Current Process"] ["Mark All" proced-mark-all :help "Mark All Processes"] ["Unmark All" proced-unmark-all :help "Unmark All Process"] ["Toggle Marks" proced-toggle-marks :help "Marked Processes Become Unmarked, and Vice Versa"] ["Mark Children" proced-mark-children :help "Mark Current Process and its Children"] ["Mark Parents" proced-mark-parents :help "Mark Current Process and its Parents"] "--" "Filters" :help "Select Filter for Process Listing" mapcar #[(el) "@\302\303 !\304\305 DD\306\307\310\311\312\305 DE&)\207" [el filter vector symbol-name proced-filter-interactive quote :style radio :selected eq proced-filter] 10] ("Sorting" :help "Select Sort Scheme" ["Sort..." proced-sort-interactive :help "Sort Process List"] "--" ["Sort by %CPU" proced-sort-pcpu] ["Sort by %MEM" proced-sort-pmem] ["Sort by PID" proced-sort-pid] ["Sort by START" proced-sort-start] ["Sort by TIME" proced-sort-time] ["Sort by USER" proced-sort-user]) "Formats" "Select Format for Process Listing" #[(el) "@\302\303 !\304\305 DD\306\307\310\311\312\305 DE&)\207" [el format vector symbol-name proced-format-interactive quote :style radio :selected eq proced-format] 10] (["Tree Display" proced-toggle-tree :style toggle :selected (eval proced-tree-flag) :help "Display Proced Buffer as Process Tree"] "--" ["Omit Marked Processes" proced-omit-processes :help "Omit Marked Processes in Process Listing."] "--" ["Revert" revert-buffer :help "Revert Process Listing"] ["Auto Update" proced-toggle-auto-update :style toggle :selected (eval proced-auto-update-flag) :help "Auto Update of Proced Buffer"] ["Send signal" proced-send-signal :help "Send Signal to Marked Processes"])] 21) #@46 Return regexp matching `proced-marker-char'. (defalias 'proced-marker-regexp #[nil "\301\302\303!!P\207" [proced-marker-char "^" regexp-quote char-to-string] 4 (#$ . 19720)]) #@67 Display success message for ACTION performed for COUNT processes. (defalias 'proced-success-message #[(action count) "\302\303 \211\304U\203 \305\202 \306$\207" [action count message "%s %s process%s" 1 "" "es"] 6 (#$ . 19902)]) #@62 Move to `goal-column' if non-nil. Return position of point. (defalias 'proced-move-to-goal-column #[nil "\301 \210m\204 \203 u\210\202 \302u\210`\207" [goal-column beginning-of-line 2] 1 (#$ . 20140)]) #@39 Return header line for Proced buffer. (defalias 'proced-header-line #[nil "\301\302\303\304#\305 GX\205 \306\307\310\305 \311O#D\207" [proced-header-line propertize " " display (space :align-to 0) window-hscroll replace-regexp-in-string "\\(%\\)" "\\1\\1" nil] 7 (#$ . 20354)]) #@86 Return pid of system process at point. Return nil if point is not on a process line. (defalias 'proced-pid-at-point #[nil "\212\300 \210\301\302!\205 \303\304\225\305\")\207" [beginning-of-line looking-at "^. ." get-text-property 0 proced-pid] 3 (#$ . 20641)]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list proced-mode-abbrev-table proced-mode-hook variable-documentation put "Hook run when entering Proced mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp proced-mode-map definition-name proced-mode default-boundp set-default make-sparse-keymap proced-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent special-mode] 5) #@1682 Mode for displaying UNIX system processes and sending signals to them. Type \[proced] to start a Proced session. In a Proced buffer type \<proced-mode-map>\[proced-mark] to mark a process for later commands. Type \[proced-send-signal] to send signals to marked processes. The initial content of a listing is defined by the variable `proced-filter' and the variable `proced-format'. The variable `proced-filter' specifies which system processes are displayed. The variable `proced-format' specifies which attributes are displayed for each process. Type \[proced-filter-interactive] and \[proced-format-interactive] to change the values of `proced-filter' and `proced-format'. The current value of the variable `proced-filter' is indicated in the mode line. The sort order of Proced listings is defined by the variable `proced-sort'. Type \[proced-sort-interactive] or click on a header in the header line to change the sort scheme. The current sort scheme is indicated in the mode line, using "+" or "-" for ascending or descending sort order. Type \[proced-toggle-tree] to toggle whether the listing is displayed as process tree. An existing Proced listing can be refined by typing \[proced-refine]. Refining an existing listing does not update the variable `proced-filter'. The attribute-specific rules for formatting, filtering, sorting, and refining are defined in `proced-grammar-alist'. After displaying or updating a Proced buffer, Proced runs the normal hook `proced-post-display-hook'. \{proced-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `proced-mode-hook', as the final step during initialization. (defalias 'proced-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210&'\326\327!\210\330\327!\210\307\211()\331*\332\333\334\335\307$\210\306\336!\210\337 \306\340!\210\341 #\204\201 +\203\201 \342\307+\343##)\344\345!\207" [delay-mode-hooks major-mode mode-name proced-mode-map proced-mode-syntax-table parent make-local-variable t special-mode proced-mode "Proced" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table abbrev-mode 0 auto-fill-mode (:eval (proced-header-line)) add-hook post-command-hook force-mode-line-update nil revert-buffer-function proced-revert font-lock-defaults (proced-font-lock-keywords t nil nil beginning-of-line) run-at-time proced-auto-update-timer run-mode-hooks proced-mode-hook proced-mode-abbrev-table local-abbrev-table buffer-read-only truncate-lines header-line-format proced-auto-update-interval] 6 (#$ . 21667) nil]) #@284 Generate a listing of UNIX system processes. If invoked with optional ARG the window displaying the process information will be displayed but not selected. Runs the normal hook `proced-post-display-hook'. See `proced-mode' for a description of features available in Proced buffers. (defalias 'proced #[(&optional arg) "\204 \304\305!\210\306\307!\310\211q\210\311\312 !\211\203! \313 \210\314\315!\210 \2034 \316\n!\210r\nq\210\317\320!)\202A \321\n!\210\317\320!\210\322\323\324!!*\207" [proced-available new buffer arg error "Proced is not available on this system" get-buffer-create "*Proced*" nil zerop buffer-size proced-mode proced-update t display-buffer run-hooks proced-post-display-hook pop-to-buffer message substitute-command-keys "Type \\<proced-mode-map>\\[quit-window] to quit, \\[proced-help] for help"] 4 (#$ . 24479) "P"]) #@49 Auto-update Proced buffers using `run-at-time'. (defalias 'proced-auto-update-timer #[nil "\304 \305\211\205( @rq\210\n\306=\203 \203 \307\310\211\"\210) A\211\204 \305*\207" [buf --dolist-tail-- major-mode proced-auto-update-flag buffer-list nil proced-mode proced-update t] 4 (#$ . 25332)]) #@280 Change whether this Proced buffer is updated automatically. With prefix ARG, update this buffer automatically if ARG is positive, otherwise do not update. Sets the variable `proced-auto-update-flag'. The time interval for updates is specified via `proced-auto-update-interval'. (defalias 'proced-toggle-auto-update #[(arg) "\302=\203 ?\202 \203 \303!\304V\202 ?\305\306 \203$ \307\202% \310\"\207" [arg proced-auto-update-flag toggle prefix-numeric-value 0 message "Proced auto update %s" "enabled" "disabled"] 3 (#$ . 25642) (list (or current-prefix-arg 'toggle))]) #@45 Mark the current (or next COUNT) processes. (defalias 'proced-mark #[(&optional count) "\301\302\"\207" [count proced-do-mark t] 3 (#$ . 26226) "p"]) #@47 Unmark the current (or next COUNT) processes. (defalias 'proced-unmark #[(&optional count) "\301\302\"\207" [count proced-do-mark nil] 3 (#$ . 26383) "p"]) #@52 Unmark the previous (or COUNT previous) processes. (defalias 'proced-unmark-backward #[(&optional count) "\301\302\206 \303[\"\207" [count proced-do-mark nil 1] 3 (#$ . 26546) "p"]) #@56 Mark the current (or next COUNT) processes using MARK. (defalias 'proced-do-mark #[(mark &optional count) "\204 \304\305W\306\305X\203 \202 \307 S\310!^T\311 \210\312S\211!\2047 m\2047 \313 \n\"\210\202\" \314 *\207" [count buffer-read-only backward mark 1 0 nil line-number-at-pos abs beginning-of-line zerop proced-insert-mark proced-move-to-goal-column] 3 (#$ . 26736)]) #@65 Toggle marks: marked processes become unmarked, and vice versa. (defalias 'proced-toggle-marks #[nil "\302 \303\212eb\210m?\205. \304 !\203 \305\303!\210\202 \304\306!\203( \305\307!\210\202 \310y\210\202 +\207" [buffer-read-only mark-re proced-marker-regexp nil looking-at proced-insert-mark " " t 1] 2 (#$ . 27130) nil]) #@183 If MARK is non-nil, insert `proced-marker-char'. If BACKWARD is non-nil, move one line backwards before inserting the mark. Otherwise move one line forward after inserting the mark. (defalias 'proced-insert-mark #[(mark &optional backward) "\203 \303y\210 \203 \n\202 \304c\210\305\306!\210?\205 \307y\207" [backward mark proced-marker-char -1 32 delete-char 1 nil] 2 (#$ . 27466)]) #@102 Mark all processes. If `transient-mark-mode' is turned on and the region is active, mark the region. (defalias 'proced-mark-all #[nil "\300\301!\207" [proced-do-mark-all t] 2 (#$ . 27862) nil]) #@106 Unmark all processes. If `transient-mark-mode' is turned on and the region is active, unmark the region. (defalias 'proced-unmark-all #[nil "\300\301!\207" [proced-do-mark-all nil] 2 (#$ . 28063) nil]) #@113 Mark all processes using MARK. If `transient-mark-mode' is turned on and the region is active, mark the region. (defalias 'proced-do-mark-all #[(mark) "\306 \203\n \n\202 \307\310 \311\211 \212\312 \203: \212\313 b\210\314\315!\204' \311y\210`)\316 b\210\314\315!\204? \317 \210\202? eb\210d`\fW\203[ \314 !\204U T\nc\210\320\321!\210\311y\210\202? \322 \203d \323\202e \324\".\207" [count mark proced-marker-char marker-re end buffer-read-only 0 32 proced-marker-regexp nil use-region-p region-end looking-at "^" region-beginning beginning-of-line delete-char 1 proced-success-message "Marked" "Unmarked"] 4 (#$ . 28272)]) #@98 Mark child processes of process PPID. Also mark process PPID unless prefix OMIT-PPID is non-nil. (defalias 'proced-mark-children #[(ppid &optional omit-ppid) "\303\304 \n#!\207" [proced-process-alist ppid omit-ppid proced-mark-process-alist proced-filter-children] 5 (#$ . 28913) (list (proced-pid-at-point) current-prefix-arg)]) #@91 Mark parent processes of process CPID. Also mark CPID unless prefix OMIT-CPID is non-nil. (defalias 'proced-mark-parents #[(cpid &optional omit-cpid) "\303\304 \n#!\207" [proced-process-alist cpid omit-cpid proced-mark-process-alist proced-filter-parents] 5 (#$ . 29250) (list (proced-pid-at-point) current-prefix-arg)]) #@79 Mark processes in PROCESS-ALIST. If QUIET is non-nil suppress status message. (defalias 'proced-mark-process-alist #[(process-alist &optional quiet) "\305 \203( \306\212eb\210m\204' \307 \236\203! c\210\310\311!\210T\306y\210\202\f *\f?\2051 \312\313\")\207" [count process-alist buffer-read-only proced-marker-char quiet 0 nil proced-pid-at-point delete-char 1 proced-success-message "Marked"] 3 (#$ . 29578)]) #@303 Omit marked processes. With prefix ARG, omit that many lines starting with the current line. (A negative argument omits backward.) If `transient-mark-mode' is turned on and the region is active, omit the processes in region. If QUIET is non-nil suppress status message. Returns count of omitted lines. (defalias 'proced-omit-processes #[(&optional arg quiet) "\306 \307\310\311 \203, \312\313 \314 \"\212\313 b\210 W\203( \315 \210 T\211\202 *\202\203 \f\204M \212eb\210m\204I \316\n\310\317#\203I \315 \210 T\2024 )\202\203 \307\fW\203f m\204\203 \fW\203\203 \315 \210 T\202S \f\307W\203\203 o\204\203 \f[W\203\203 \320y\210\315 \210 T\202l \321 !\204\214 \322 \210 \204\225 \323\324 \"\210 +\207" [buffer-read-only count mark-re lines arg quiet proced-marker-regexp 0 nil use-region-p count-lines region-beginning region-end proced-omit-process re-search-forward t -1 zerop proced-move-to-goal-column proced-success-message "Omitted"] 5 (#$ . 30004) "P"]) #@83 Omit process from listing point is on. Update `proced-process-alist' accordingly. (defalias 'proced-omit-process #[nil "\301\302 \"\303 \212\304y\210`)|\207" [proced-process-alist assq-delete-all proced-pid-at-point line-beginning-position nil] 3 (#$ . 30980)]) #@71 Apply FILTER-LIST to PROCESS-ALIST. Return the filtered process list. (defalias 'proced-filter #[(process-alist filter-list) "9\203\n \236A\306\211\203\245 @\306 \n@\307=\203& \nA !\202\233 \n@\310=\203S \306 \211\203O @ \n@ A!\203H \fB A\211\2046 *\202\233 \nA;\203e \311\312\313\nA\314BBE\202g \nA\306 \306 \211\203\232 @ \n@ A\236A\211\203\223 !\203\223 \fB A\211\204u ,\f) A\211\204 * \207" [filter-list proced-filter-alist filter --dolist-tail-- new-alist process-alist nil fun-all function lambda (val) string-match (val) process value fun] 6 (#$ . 31250)]) #@167 Filter Proced buffer using SCHEME. When called interactively, an empty string means nil, i.e., no filtering. Set variable `proced-filter' to SCHEME. Revert listing. (defalias 'proced-filter-interactive #[(scheme) " =?\205\f \302\303!\207" [proced-filter scheme proced-update t] 2 (#$ . 31863) (let ((scheme (completing-read "Filter: " proced-filter-alist nil t))) (list (if (string= "" scheme) nil (intern scheme))))]) #@110 For PROCESS-ALIST return list of parent processes of PID. This list includes PID unless OMIT-PID is non-nil. (defalias 'proced-filter-parents #[(process-alist pid &optional omit-pid) "?\205 \n\236C \n\236\306 \303\fA\236A\211\2031 U\2041 \n\236\211\2031 \f B\202 +\207" [omit-pid pid process-alist ppid process parent-list nil] 3 (#$ . 32293)]) #@112 For PROCESS-ALIST return list of child processes of PPID. This list includes PPID unless OMIT-PPID is non-nil. (defalias 'proced-filter-children #[(process-alist ppid &optional omit-ppid) "\306!\307\310 !\307 \211 \203 @\211\236 B A\211\204 *\n\203- \311 \"\202. *\207" [process-alist new-alist proced-temp-alist ppid pid --dolist-tail-- proced-children-alist nil proced-children-pids assq-delete-all omit-ppid] 4 (#$ . 32660)]) #@285 Return children alist for PROCESS-ALIST. The children alist has elements (PPID PID1 PID2 ...). PPID is a parent PID. PID1, PID2, ... are the child processes of PPID. The children alist inherits the sorting order of PROCESS-ALIST. The list of children does not include grandchildren. (defalias 'proced-children-alist #[(process-alist) "\306\307\"\310\310\211 \203W \f@\301 A\236A\211\203P @U\204P \236\203P \n\310 \n\n\211A\n@\211\203O @=\203. \310\n @ AB\241\210\202. *\fA\211\204 *\306\311\n\"\211*\207" [process-alist ppid process-tree process --dolist-tail-- elt mapcar #[(a) "@C\207" [a] 1] nil #[(a) "@A\237B\207" [a] 2] temp-alist] 4 (#$ . 33109)]) #@56 Return list of children PIDs of PPID (including PPID). (defalias 'proced-children-pids #[(ppid) " \236A\211\203 \303\304\305\306\n\"\"B\202 C)\207" [ppid proced-temp-alist cpids apply append mapcar proced-children-pids] 7 (#$ . 33796)]) #@268 Return process tree for PROCESS-ALIST. It is an alist of alists where the car of each alist is a parent process and the cdr is a list of child processes according to the ppid attribute of these processes. The process tree inherits the sorting order of PROCESS-ALIST. (defalias 'proced-process-tree #[(process-alist) "\304!\305\211 \211A@\211\203 \306\n! B\202 \237+\207" [process-alist proced-process-tree pid-alist proced-temp-alist proced-children-alist nil proced-process-tree-internal] 3 (#$ . 34046)]) #@44 Helper function for `proced-process-tree'. (defalias 'proced-process-tree-internal #[(pid-alist) "A\306\211 @\211\2038 \f\236\211\203$ \307 \f\" \310\n!\240\210\202/ \236\240\210\307 \" \211A@\210\202 +\207" [pid-alist cpid cpid-alist cpid-list proced-temp-alist proced-process-tree nil assq-delete-all proced-process-tree-internal] 3 (#$ . 34569)]) #@692 Toggle the display of the process listing as process tree. With prefix ARG, display as process tree if ARG is positive, otherwise do not display as process tree. Sets the variable `proced-tree-flag'. The process tree is generated from the selected processes in the Proced buffer (that is, the processes in `proced-process-alist'). All processes that do not have a parent process in this list according to their ppid attribute become the root of a process tree. Each parent process is followed by its child processes. The process tree inherits the chosen sorting order of the process listing, that is, child processes of the same parent process are sorted using the selected sorting order. (defalias 'proced-toggle-tree #[(arg) "\302=\203 ?\202 \203 \303!\304V\202 ?\305 \210\306\307 \203' \310\202( \311\"\207" [arg proced-tree-flag toggle prefix-numeric-value 0 proced-update message "Proced process tree display %s" "enabled" "disabled"] 3 (#$ . 34942) (list (or current-prefix-arg 'toggle))]) #@472 Rearrange PROCESS-ALIST as process tree. If `proced-tree-flag' is non-nil, rearrange PROCESS-ALIST such that every processes is followed by its child processes. Each process gets a tree attribute that specifies the depth of the process in the tree. A root process is a process with no parent within PROCESS-ALIST according to its value of the ppid attribute. It has depth 0. If `proced-tree-flag' is nil, remove the tree attribute. Return the rearranged process list. (defalias 'proced-tree #[(process-alist) "\203( \303 !\306 \307\211 \211A @\211\203$ \310\n!\210\202 \237-\207 \203? \311\312 @\"\240\210 \211A@\210\202* ) \207" [proced-tree-flag process-alist pt proced-process-tree proced-temp-alist proced-tree-depth 0 nil proced-tree-insert assq-delete-all tree process-tree] 5 (#$ . 35957)]) #@36 Helper function for `proced-tree'. (defalias 'proced-tree-insert #[(process-tree) "@ \236\305\n@C\306 BC\nA#\fBA\205! T\307\310A\"))\207" [process-tree proced-temp-alist pprocess proced-tree-depth proced-process-tree append tree mapc proced-tree-insert] 4 (#$ . 36780)]) #@1557 Refine Proced listing by comparing with the attribute value at point. Optional EVENT is the location of the Proced field. Refinement is controlled by the REFINER defined for each attribute ATTR in `proced-grammar-alist'. If REFINER is a list of flags and point is on a process's value of ATTR, this command compares the value of ATTR of every process with the value of ATTR of the process at the position of point. The predicate for the comparison of two ATTR values is defined in `proced-grammar-alist'. For each return value of the predicate a refine flag is defined in `proced-grammar-alist'. One can select processes for which the value of ATTR is "less than", "equal", and / or "larger" than ATTR of the process point is on. A process is included in the new listing if the refine flag for the corresponding return value of the predicate is non-nil. The help-echo string for `proced-refine' uses "+" or "-" to indicate the current values of these refine flags. If REFINER is a cons pair (FUNCTION . HELP-ECHO), FUNCTION is called with one argument, the PID of the process at the position of point. The function must return a list of PIDs that is used for the refined listing. HELP-ECHO is a string that is shown when mouse is over this field. This command refines an already existing process listing generated initially based on the value of the variable `proced-filter'. It does not change this variable. It does not revert the listing. If you frequently need a certain refinement, consider defining a new filter in `proced-filter-alist'. (defalias 'proced-refine #[(&optional event) "\203& \306\211:\203 \3078:\203 \307\202 \3108\202# \311 `\312\313F)!\210\314`\315\"\314`\316\"\211\203\310 \203\310 \n \236 \317\f8\211 \205\304 \320 @!\203T @ !\202\302 :\203\302 \321\f8\n \236A\236A\322\211 \322 \211 \203\274 @ \n A\236A\"\211\204\225 \307 8\202\251 \323=\203\242 A@\202\251 \203\263 @\203\263 B A\211 \204y *,\324 *\202\313 \325\326!*\207" [event pid key proced-grammar-alist grammar refiner posn-set-point 2 1 selected-window (0 . 0) 0 get-text-property proced-key proced-pid 7 functionp 4 nil equal proced-update message "No refiner defined here." proced-process-alist new-alist val ref predicate process --dolist-tail--] 6 (#$ . 37066) (list last-input-event)]) #@109 Return t if NUM1 less than NUM2. Return `equal' if NUM1 equals NUM2. Return nil if NUM1 greater than NUM2. (defalias 'proced-< #[(num1 num2) " U\203 \302\207 W\207" [num1 num2 equal] 2 (#$ . 39416)]) #@138 Return t if string S1 is less than S2 in lexicographic order. Return `equal' if S1 and S2 have identical contents. Return nil otherwise. (defalias 'proced-string-lessp #[(s1 s2) " \230\203 \302\207 \231\207" [s1 s2 equal] 2 (#$ . 39627)]) #@110 Return t if time value T1 is less than time value T2. Return `equal' if T1 equals T2. Return nil otherwise. (defalias 'proced-time-lessp #[(t1 t2) "\211\211A@\306\211 :\203& \211A@ \203! @\202* \307\202* \307 \211 \211A @ \n\306\211 \f :\203] \211A @ \203W @\f\202d \307\f\202d \307\f\n\nW\206\233 \n\nW\203v \306\202\233 W\206\233 W\203\210 \306\202\233 \f\fW\206\233 \f\fW\203\232 \306\202\233 \310.\207" [t1 #1=#:time high1 low1 micro1 t2 nil 0 equal #2=#:time high2 low2 micro2] 3 (#$ . 39876)]) #@52 Return the logical exclusive or of args B1 and B2. (defalias 'proced-xor #[(b1 b2) "\204 \205 \205 ?\207" [b1 b2] 1 (#$ . 40429)]) (put 'proced-xor 'byte-optimizer 'byte-compile-inline-expand) #@44 Predicate for sorting processes P1 and P2. (defalias 'proced-sort-p #[(p1 p2) "A\204? @\211@\nA\236A @\fA\236A \205= \205= A@ \"\306 8 \n\211 \2044 \n\205< \205; \n?*+\207\307\211\211\211 \f \310\311\215-\207" [proced-sort-internal sorter p1 k1 p2 k2 2 nil done (byte-code "\211A@\211\203P @\nA\236A @\fA\236A \205& \205& A@ \"\211 \306=\204 \307\310 \311 8 \f\211 \204B \f\205J \205I \f?*\"\210\202 \312=\207" [sort-list sorter p1 k1 p2 k2 equal throw done 2 t predicate b2 b1] 6) b2 b1 predicate sort-list] 6 (#$ . 40635)]) #@193 Sort PROCESS-ALIST using scheme SORTER. SORTER is a scheme like `proced-sort'. DESCEND is non-nil if the first element of SORTER is sorted in descending order. Return the sorted process list. (defalias 'proced-sort #[(process-alist sorter descend) "\306\307<\203 \202& 9\203 \310 \2368\206& 9\203\" C\202& \311\312\"\"\211\203@ \n\211\211@@)\n@A@\fE\240\210\313 \314\"\207 \207" [sorter proced-grammar-alist proced-sort-internal x descend process-alist mapcar #[(arg) " \236\303\n8\204 \304\305\n@\"\210\303\n8\306\n8E)\207" [arg proced-grammar-alist grammar 4 error "Attribute %s not sortable" 5] 4] 6 error "Sorter undefined %s" sort proced-sort-p] 6 (#$ . 41206)]) #@624 Sort Proced buffer using SCHEME. When called interactively, an empty string means nil, i.e., no sorting. Prefix ARG controls sort order: - If prefix ARG is positive (negative), sort in ascending (descending) order. - If ARG is nil or 'no-arg and SCHEME is equal to the previous sorting scheme, reverse the sorting order. - If ARG is nil or 'no-arg and SCHEME differs from the previous sorting scheme, adopt the sorting order defined for SCHEME in `proced-grammar-alist'. Set variable `proced-sort' to SCHEME. The current sort scheme is displayed in the mode line, using "+" or "-" for ascending or descending order. (defalias 'proced-sort-interactive #[(scheme &optional arg) "\305=\203 \n\232\203 ?\202O \305=\203) \306\n:\203\" \n@\202# \n\f\2368\202O \2035 \307!\310W\202O \n\232\203@ ?\202O \306\n:\203K \n@\202L \n\f\2368\n\311 \207" [arg proced-sort scheme proced-descend proced-grammar-alist no-arg 5 prefix-numeric-value 0 proced-update] 3 (#$ . 41896) (let* (choices (scheme (completing-read "Sort attribute: " (dolist (grammar proced-grammar-alist choices) (if (nth 4 grammar) (push (list (car grammar)) choices))) nil t))) (list (if (string= "" scheme) nil (intern scheme)) (or current-prefix-arg 'no-arg)))]) #@114 Sort Proced buffer by percentage CPU time (%CPU). Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-pcpu #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive pcpu] 3 (#$ . 43143) (list (or current-prefix-arg 'no-arg))]) #@118 Sort Proced buffer by percentage memory usage (%MEM). Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-pmem #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive pmem] 3 (#$ . 43418) (list (or current-prefix-arg 'no-arg))]) #@91 Sort Proced buffer by PID. Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-pid #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive pid] 3 (#$ . 43696) (list (or current-prefix-arg 'no-arg))]) #@120 Sort Proced buffer by time the command started (START). Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-start #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive start] 3 (#$ . 43946) (list (or current-prefix-arg 'no-arg))]) #@103 Sort Proced buffer by CPU time (TIME). Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-time #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive time] 3 (#$ . 44229) (list (or current-prefix-arg 'no-arg))]) #@92 Sort Proced buffer by USER. Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-user #[(&optional arg) "\301\302\"\207" [arg proced-sort-interactive user] 3 (#$ . 44492) (list (or current-prefix-arg 'no-arg))]) #@274 Sort Proced listing based on an attribute. EVENT is a mouse event with starting position in the header line. It is converted to the corresponding attribute key. This command updates the variable `proced-sort'. Prefix ARG controls sort order, see `proced-sort-interactive'. (defalias 'proced-sort-header #[(event &optional arg) "\211:\203 A@\202 \306 `\307\310F)\311\211\306 \312\313\314 \" r\315\216\316 \211 @)!\210\317 !@S\320 \\\310\nX\205[ \nGW\205[ \321\n\322#\211\203X \323 \"\202[ \324\325!.\207" [event key col start save-selected-window-alist save-selected-window-window selected-window (0 . 0) 0 nil mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window posn-actual-col-row window-hscroll get-text-property proced-key proced-sort-interactive message "No sorter defined here." position proced-header-line arg] 5 (#$ . 44745) (list last-input-event (or last-prefix-arg 'no-arg))]) #@28 Format time interval TIME. (defalias 'proced-format-time #[(time) "\306!\307 \310\"\311 \310\"\307 \312\"\311 \312\"\307 \313\" \311 \313\" \314\nW\2032 \315\316\n \f %\202F \314 W\203A \315\317 \f $\202F \315\320\f #.\207" [time ftime days hours minutes seconds float-time truncate 86400 mod 3600 60 0 format "%d-%02d:%02d:%02d" "%02d:%02d:%02d" "%02d:%02d"] 6 (#$ . 45985)]) #@67 Format time START. The return string is always 6 characters wide. (defalias 'proced-format-start #[(start) "\303!\303 \304\n8\304 8W\203 \305\306\"\2027 \307\n8\307 8U\2033 \310\n8\310 8U\2033 \305\311\"\2027 \305\312\"*\207" [start d-current d-start decode-time 5 format-time-string " %Y" 3 4 " %H:%M" "%b %e"] 3 (#$ . 46375)]) #@49 Format attribute TTNAME, omitting path "/dev/". (defalias 'proced-format-ttname #[(ttname) "\301\302\"\203 \303\225\202 \303\304O\207" [ttname string-match "\\`/dev/" 0 nil] 4 (#$ . 46718)]) #@24 Format attribute TREE. (defalias 'proced-format-tree #[(tree) "\301\302\"\303!P\207" [tree make-string 32 number-to-string] 3 (#$ . 46919)]) #@77 Format attribute ARGS. Replace newline characters by "^J" (two characters). (defalias 'proced-format-args #[(args) "\301\302\303#\207" [args replace-regexp-in-string "\n" "^J"] 4 (#$ . 47068)]) #@37 Display PROCESS-ALIST using FORMAT. (defalias 'proced-format #[(process-alist format) "9\203\n \236A\306\307 C!@\310\211 \203% \311\f\236\203% \312\313B\fB\310 7\211 8\203n 8@\21179\203H 7\f\236\203e 7 B\202e 7\211A7@\211\203e \n\f\236\203H \n B\310\2117\202J 8A\2118\204/ * \237+\3149G\315\"c\210\316\317::\203\211 :@\202\213 :\310\211 ; < = > ?\211A@@\236\211;\203\370;@ A\320;8;\203\300 \321\322\300\320;8\323BBE\202\317 \320;8\204\313 \324\202\317 \320;8 B\203\332 ?\202\333 \325 ?\326;8\205 A==\203\361 C\202\365 \327;8 D\330A\331\332\333\300ED\203 \334\202\n\335;A@D\203\336\202\337$\257) F\340;8 G\341G@!\203>\330A\331\332\333\300\342GA@\"\257\202YG:\205Y\330A\331\332\333\300\343;A@\344\345G\325##\257 H\310 IA==\203m\346\347F\"Feb\210\350;8\247\203\3409\310 J\211 8\203\3038@J\310\210AJA\236A\211I\203\245\351\352BI!H#\202\262\300\353\354\350;8!\355Q>\"?\261\210\310y\2108A\2118\204\203*\300\353\354\350;8!\355Q\351\352;A@F#\"<B<\202\363\204<\350;8\356=\203<9\310 J\211 8\203*8@J\310\210AJA\236A\211I\203\351\352BI!H#\202 >c\210\310y\2108A\2118\204\370*\351\352;A@F#<B<\202\363;A@G\310\211 I K L9\310 J\211 8\203\2348@JAJA\236A\211I\203\204\351\352BI!H#ILIG]LIKBK\202\223>KBKL>G]L8A\2118\204T*\353\350;8\356=\203\253\334\202\254\325\354L!\355R M\300M\351\352;A@F#\"<B<K\237\310 I\211 8\203\3618@I\310\210\300MI\"?\261\210\310y\2108A\2118\204\322..\202\227 eb\2109\310 J\211 8\203!8@J\357`\360 \361J@$\210\310y\2108A\2118\204*\344\324<\237?#N\362\363N\"\203<N\313\211\224ONeb\210\364\365\310\366#\205P\313\224\313\225|\210\202?-\207" [format proced-format-alist fmi new-format standard-attributes proced-tree-flag proced-process-attributes emacs-pid nil ppid tree 0 make-string 10 " " "?" 2 lambda (arg) (arg) identity "" 4 5 proced-key mouse-face highlight help-echo "-" "+" "descending" "ascending" 7 functionp "mouse-2, RET: %s" "mouse-2, RET: refine by attribute %s %s" mapconcat #[(s) "\203 \301\207\302\207" [s "+" "-"] 1] append (face proced-sort-header) 3 apply propertize "%" number-to-string "s" left put-text-property line-end-position proced-pid string-match "[ ]+$" re-search-forward "[ ]+$" t fmt --dolist-tail-- process-alist proced-sort grammar header-list sort-key unknown whitespace proced-grammar-alist key fun proced-descend descend proced-header-help-echo hprops refiner fprops value process field-list width afmt proced-header-line] 13 (#$ . 47269)]) #@194 Format Proced buffer using SCHEME. When called interactively, an empty string means nil, i.e., no formatting. Set variable `proced-format' to SCHEME. With prefix REVERT non-nil revert listing. (defalias 'proced-format-interactive #[(scheme &optional revert) " =\203\n \n\205 \303\n!\207" [proced-format scheme revert proced-update] 2 (#$ . 49861) (let ((scheme (completing-read "Format: " proced-format-alist nil t))) (list (if (string= "" scheme) nil (intern scheme)) current-prefix-arg))]) #@291 Return alist of attributes for each system process. This alist can be customized via `proced-custom-attributes'. Optional arg PID-LIST is a list of PIDs of system process that are analyzed. If no attributes are known for a process (possibly because it already died) the process is ignored. (defalias 'proced-process-attributes #[(&optional pid-list) "\306\211\211 \206\f \307 \306 \211 \203S @\310\f!\211\203L \304\fB B \306 \n\211 \203E @\211\n !\211\203> B A\211\204. *\f B\nB A\211\204 \306\n-\207" [attr attributes process-alist pid-list pid --dolist-tail-- nil list-system-processes process-attributes proced-custom-attributes fun] 4 (#$ . 50364)]) #@246 Update the Proced process information. Preserves point and marks. With prefix REVERT non-nil, revert listing. Suppress status information if QUIET is nil. After updating a displayed Proced buffer run the normal hook `proced-post-display-hook'. (defalias 'proced-update #[(&optional revert quiet) "\206 ?\n\204 \306\203 \307\202 \310!\210\203 \311 \304\303 \"\f #\312 !6:\2034 \3136\314\315 \316`\317\" 7\211 87\211\203[ \316`S\317\"\203W `\320`\317\"Z\202\\ \321\202\\ iE*\313\211 9 : ; 6eb\210\322\323\313\314#\203\210 \324 <\325\216\315 *\326\327!B9B9\202k \330 \210\331 \"\210eb\210m\204\241 \332c\210\313y\210\202\224 \332=P=\203\257 \333\313!\210>?\236\211 @\205\335 \334\335 !?\205\335 \336\337@A@!=\"\205\335 \340@8\203\333 \321\224\202\335 \321\225A)eb\210\313\211\211 B C 89\204\367 ;@\203m\204\315 \21189\236\211C\203CAc\210\341\327!\210\342 \210;@8=\203y;A@\203m\343 \313 D EB\204`\344`\313E#\211D\203`Db\210;A@\316`\317\"=\203,\345;8\344`!`Z^u\210`\211B\2031B\204i\346 B*\202y\347 \345;8\\\343 ^B\313y\210\202\367 B\203\213Bb\210\202\221eb\210\346 \210+\350 \203\237\351\352 !P\202\240\353\f\203\312\f:\203\256\f@\202\257\f\211 7?\236 @\354 \203\300\355\202\301\356@A@Q*\202\313\353QF\357 \210\360 \203\332\361\362!\210\n\206\356\363 \206\356\306\203\354\364\202\355\365!,\207" [revert proced-process-alist quiet proced-filter proced-sort proced-descend message "Updating process information..." "Updating process display..." proced-process-attributes proced-tree nil t proced-pid-at-point get-text-property proced-key previous-single-property-change 0 re-search-forward "^\\(\\S-\\)" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) match-string-no-properties 1 erase-buffer proced-format " " set-buffer-modified-p zerop buffer-size string-match regexp-quote 3 delete-char beginning-of-line line-end-position next-property-change 2 proced-move-to-goal-column line-beginning-position "Proced" ": " symbol-name "" " by " "-" "+" force-mode-line-update get-buffer-window run-hooks proced-post-display-hook input-pending-p "Updating process information...done." "Updating process display...done." buffer-undo-list key pid mp-list buffer-read-only old-pos save-match-data-internal proced-header-line proced-goal-attribute proced-grammar-alist grammar goal-column new-pos mark pos limit mode-name] 8 (#$ . 51044) "P"]) #@101 Reevaluate the process listing based on the currently running processes. Preserves point and marks. (defalias 'proced-revert #[(&rest args) "\300\301!\207" [proced-update t] 2 (#$ . 53513)]) #@323 Send a SIGNAL to the marked processes. If no process is marked, operate on current process. SIGNAL may be a string (HUP, INT, TERM, etc.) or a number. If SIGNAL is nil display marked processes and query interactively for SIGNAL. After sending the signal, this command runs the normal hook `proced-after-send-signal-hook'. (defalias 'proced-send-signal #[(&optional signal) "\306 \307\212eb\210\310 \307\311#\203\" \312 \313\314\315 \\\316 \"BB\202 )\203, \237\2028 \312 \313\314\315 \\\316 \"BC\n\204\200 \317\320 ! r\321 !q\210\3114\f\3225\323\324\325\307\311$\210\326 \210\307 6\211 7\203{ 7@6\3276A\330\261\2107A\2117\204e *\331\213\210+\332\307 8 9\333:!\203\310 \n;\203\245 \334\335\n\"\203\237 \336\n!\202\246 \337\n!\202\246 \n\307 6\211 7\203\304 7@6\340\341\342\217\2107A\2117\204\261 +\202\343\n\247\203\324 \344\n!\202\325 \nP\307 6\211 7\2037@6\345\346! ;r;q\210\347\216\340\350\351\217\210+7A\2117\204\341 +8\203\"\352\n\353\3548GGG\355U\203\356\202 \357$\"\210\202(\360\3619\"\210*\362\363!*\207" [process-alist regexp signal proced-header-line header-line bufname proced-marker-regexp nil re-search-forward t proced-pid-at-point buffer-substring-no-properties 2 line-beginning-position line-end-position " *Marked Processes*" substring-no-properties get-buffer-create (:eval (proced-header-line)) add-hook post-command-hook force-mode-line-update erase-buffer " " "\n" ((byte-code "\306\307p!\210)\310\311 \306\312#\210\313\nG\312U\203 \314\202 \315\316\nG\"\317\320 \321Q\f\306\211\211\211\322& \323\324 \"\203= \325\312 \"\202> +\306\207" [split-width-threshold completion-ignore-case process-alist pnum proced-signal-list tmp nil pop-to-buffer fit-window-to-buffer get-buffer-window 1 t "1 process" format "%d processes" completing-read "Send signal [" "] (default TERM): " "TERM" string-match "^\\(\\S-+\\)\\s-" match-string signal] 8)) 0 functionp string-match "\\`[0-9]+\\'" string-to-number make-symbol err (byte-code "\305 @\n\"!\203 T\202 \306\307 A\"\210 A\fB\305\207" [proced-signal-function process signal count failures zerop proced-log "%s\n"] 4) ((error (byte-code "\303\304\"\210\303\304 A\"\210 A\nB\303\207" [err process failures proced-log "%s\n"] 3))) "-" number-to-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) (byte-code "\305\306\307\310\307 \311\n@!&!\203 T\202& \312p!\210\312\313\nA\"\210\nA\fB\307\207" [proced-signal-function signal process count failures zerop call-process nil t number-to-string proced-log "%s\n"] 9) ((error (byte-code "\302p!\210\302\303A\"\210A B\302\207" [process failures proced-log "%s\n"] 3))) proced-log-summary format "%d of %d signal%s failed" 1 "" "s" proced-success-message "Sent signal to" run-hooks proced-after-send-signal-hook truncate-lines header-line-format process --dolist-tail-- failures count proced-signal-function #1#] 9 (#$ . 53711) nil]) #@185 Pop up a buffer with error log output from Proced. A group of errors from a single command ends with a formfeed. Thus, use \[backward-page] to find the beginning of a group of errors. (defalias 'proced-why #[nil "\305!\2050 \306 \307\310\311 \"r\312\216\313\314\305!!!\210\315\316\317!\210\315db\210\320y\210\321\322!\210\323\324!,\207" [proced-log-buffer save-selected-window-alist save-selected-window-window truncate-lines buffer-read-only get-buffer selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window display-buffer t set-buffer-modified-p nil -1 backward-page 1 recenter 0] 4 (#$ . 56703) nil]) #@318 Log a message or the contents of a buffer. If LOG is a string and there are more args, it is formatted with those ARGS. Usually the LOG string ends with a \n. End each bunch of errors with (proced-log t signal): this inserts the current time, buffer and signal at the start of the page, and (formfeed) at the end. (defalias 'proced-log #[(log &rest args) "pr\305 !q\210db\210\306 ;\203# \f\203 \307\310 \f#\202 c\202T \311 !\203/ \312 !\202T \313=\205T \314\315!\210n\204@ \316c\210\317 \320\321!\322\310\323\f@\"\261\210db\210\324c+\207" [obuf proced-log-buffer buffer-read-only log args get-buffer-create nil apply format bufferp insert-buffer-substring t backward-page 1 "\n" current-time-string " Buffer `" buffer-name "', " "signal `%s'\n" "\f\n"] 7 (#$ . 57661)]) #@114 State a summary of SIGNAL's failures, in echo area and log buffer. STRING is an overall summary of the failures. (defalias 'proced-log-summary #[(signal string) "\302\303 #\210\304\305 \305Q!\210\304\306\"\207" [signal string message "Signal %s: %s--type ? for details" proced-log "\n" t] 4 (#$ . 58449)]) #@35 Provide help for the Proced user. (defalias 'proced-help #[nil "\302 \210\303=\203\f \304 \207\305 !\207" [last-command proced-help-string proced-why proced-help describe-mode message] 2 (#$ . 58763) nil]) #@144 Undo in a Proced buffer. This doesn't recover killed processes, it just undoes changes in the Proced buffer. You can use it to recover marks. (defalias 'proced-undo #[nil "\301\302 \210)\303\304!\207" [buffer-read-only nil undo message "Change in Proced buffer undone.\nKilled processes cannot be recovered by Emacs."] 2 (#$ . 58977) nil]) (provide 'proced)
Close
