Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ 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
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ 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
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : server.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317\320\321& \210\306\322\310\311\323DD\324\316\325\320\321&\210\326\322\327\330#\210\306\331\310\311\332DD\333\316\334\320\335&\210\326\331\327\330#\210\306\336\310\311\337DD\340\316\341\320\321&\210\326\336\327\330#\210\306\342\310\311\343DD\344\316\345\320\346&\210\306\347\310\311\350DD\351\316\317\320\321&\210\306\352\310\311\353DD\354\316\355%\210\306\356\310\311\357DD\360\316\355%\210\306\361\310\311\362DD\363\316\355\320\364&\210\306\365\310\311\366DD\367\316\355%\207" [custom-declare-group server nil "Emacs running as a server process." :group external custom-declare-variable server-use-tcp funcall function #[0 "\300\207" [nil] 1] "If non-nil, use TCP sockets instead of local sockets." :set #[514 "\301\302\303\"\204 \304\262\204 \305\306!\210\307\"\207" [load-in-progress featurep make-network-process (:family local) t message "Local sockets unsupported, using TCP sockets" set-default] 5 "\n\n(fn SYM VAL)"] :type boolean :version "22.1" server-host #[0 "\300\207" [nil] 1] "The name or IP address to use as host address of the server process.\nIf set, the server accepts remote connections; otherwise it is local.\n\nDO NOT give this a non-nil value unless you know what you are doing!\nOn unsecured networks, accepting remote connections is very dangerous,\nbecause server-client communication (including session authentication)\nis not encrypted." (choice (string :tag "Name or IP address") (const :tag "Local" nil)) put risky-local-variable t server-port #[0 "\300\207" [nil] 1] "The port number that the server process should listen on.\nThis variable only takes effect when the Emacs server is using\nTCP instead of local sockets. A nil value means to use a random\nport number." (choice (string :tag "Port number") (const :tag "Random" nil)) "24.1" server-auth-dir #[0 "\300\301!\207" [locate-user-emacs-file "server/"] 2] "Directory for server authentication files.\nWe only use this if `server-use-tcp' is non-nil.\nOtherwise we use `server-socket-dir'.\n\nNOTE: On FAT32 filesystems, directories are not secure;\nfiles can be read and modified by any user or process.\nIt is strongly suggested to set `server-auth-dir' to a\ndirectory residing in a NTFS partition instead." directory server-auth-key #[0 "\300\207" [nil] 1] "Server authentication key.\nThis is only used if `server-use-tcp' is non-nil.\n\nNormally, the authentication key is randomly generated when the\nserver starts. It is recommended to leave it that way. Using a\nlong-lived shared key will decrease security (especially since\nthe key is transmitted as plain-text).\n\nIn some situations however, it can be difficult to share randomly\ngenerated passwords with remote hosts (e.g., no shared directory),\nso you can set the key with this variable and then copy the\nserver file to the remote host (with possible changes to IP\naddress and/or port if that applies).\n\nNote that the usual security risks of using the server over\nremote TCP, arising from the fact that client-server\ncommunications are unencrypted, still apply.\n\nThe key must consist of 64 ASCII printable characters except for\nspace (this means characters from ! to ~; or from code 33 to\n126). You can use \\[server-generate-key] to get a random key." (choice (const :tag "Random" nil) (string :tag "Password")) "24.3" server-raise-frame #[0 "\300\207" [t] 1] "If non-nil, raise frame when switching to a buffer." server-visit-hook #[0 "\300\207" [nil] 1] "Hook run when visiting a file for the Emacs server." hook server-switch-hook #[0 "\300\207" [nil] 1] "Hook run when switching to a buffer for the Emacs server." server-after-make-frame-hook #[0 "\300\207" [nil] 1] "Hook run when the Emacs server creates a client frame.\nThe created frame is selected when the hook is called." "27.1" server-done-hook #[0 "\300\207" [nil] 1] "Hook run when done editing a buffer for the Emacs server."] 10) #@29 The current server process. (defvar server-process nil (#$ . 4373)) #@60 List of current server clients. Each element is a process. (defvar server-clients nil (#$ . 4447)) #@64 List of client processes requesting editing of current buffer. (defvar server-buffer-clients nil (#$ . 4552)) (byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311DD\312\313\314\315\316&\210\305\317\307\310\320DD\321\315\322%\210\305\323\307\310\324DD\325\315\326\313\327&\207" [make-variable-buffer-local server-buffer-clients put permanent-local t custom-declare-variable server-window funcall function #[0 "\300\207" [nil] 1] "Specification of the window to use for selecting Emacs server buffers.\nIf nil, use the selected window.\nIf it is a function, it should take one argument (a buffer) and\ndisplay and select it. A common value is `pop-to-buffer'.\nIf it is a window, use that.\nIf it is a frame, use the frame's selected window.\n\nIt is not meaningful to set this to a specific frame or window with Custom.\nOnly programs can do so." :version "22.1" :type (choice (const :tag "Use selected window" :match (lambda (widget value) (not (functionp value))) nil) (function-item :tag "Display in new frame" switch-to-buffer-other-frame) (function-item :tag "Use pop-to-buffer" pop-to-buffer) (function :tag "Other function")) server-temp-file-regexp #[0 "\300\207" [#1="\\`/tmp/Re\\|/draft\\'"] 1 #1#] "Regexp matching names of temporary files.\nThese are deleted and reused after each edit by the programs that\ninvoke the Emacs server." regexp server-kill-new-buffers #[0 "\300\207" [t] 1] "Whether to kill buffers when done with them.\nIf non-nil, kill a buffer unless it already existed before editing\nit with the Emacs server. If nil, kill only buffers as specified by\n`server-temp-file-regexp'.\nPlease note that only buffers that still have a client are killed,\ni.e. buffers visited with \"emacsclient --no-wait\" are never killed\nin this way." boolean "21.1"] 8) #@178 Non-nil means the buffer existed before the server was asked to visit it. This means that the server should not kill the buffer when you say you are done with it in the server. (defvar server-existing-buffer nil (#$ . 6358)) (make-variable-buffer-local 'server-existing-buffer) #@205 When an external socket is passed into Emacs, we need to call `server-start' in order to initialize the connection. This flag prevents multiple initializations when an external socket has been consumed. (defvar server--external-socket-initialized nil (#$ . 6643)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable server-name funcall function #[0 "\203 \301!\207\302\207" [internal--daemon-sockname file-name-nondirectory "server"] 2] "The name of the Emacs server, if this Emacs process creates one.\nThe command `server-start' makes use of this. It should not be\nchanged while a server is running.\nIf this is a file name with no leading directories, Emacs will\ncreate a socket file by that name under `server-socket-dir'\nif `server-use-tcp' is nil, else under `server-auth-dir'.\nIf this is an absolute file name, it specifies where the socket\nfile will be created. To have emacsclient connect to the same\nsocket, use the \"-s\" switch for local non-TCP sockets, and\nthe \"-f\" switch otherwise." :type string :version "23.1"] 8) #@101 The directory in which to place the server socket. If local sockets are not supported, this is nil. (defvar server-socket-dir (byte-code "\203 \301!\207\302\303\304\"\205+ \305\306!\211\203 \307\310\"\202) \307\311\305\312!\206& \313\314 #\262\207" [internal--daemon-sockname file-name-directory featurep make-network-process (:family local) getenv "XDG_RUNTIME_DIR" format "%s/emacs" "%s/emacs%d" "TMPDIR" "/tmp" user-uid] 5) (#$ . 7732)) #@75 Return a list of clients with PROPERTY set to VALUE. (fn PROPERTY VALUE) (defalias 'server-clients-with #[514 "\301\211\203 \211@\302\"\232\203 \211B\262A\266\202\202 \210\211\207" [server-clients nil process-get] 9 (#$ . 8184)]) #@110 Create a client for process PROC, if it doesn't already have one. New clients have no properties. (fn PROC) (defalias 'server-add-client #[257 "\211\235\203 \207\211B\211\207" [server-clients] 3 (#$ . 8433)]) #@258 Evaluate BODY with environment variables VARS set to those in ENV. The environment variables are then restored to their previous values. VARS should be a list of strings. ENV should be in the same format as `process-environment'. (fn ENV VARS &rest BODY) (defalias 'server-with-environment '(macro . #[642 "\300\301!\300\302!\303\304\305D\303\306\fEDC\307\310\311 D\312 \313\fF F\314BBEE\315BF\207" [make-symbol "var" "value" let ((process-environment process-environment)) dolist getenv-internal push if stringp concat "=" (process-environment) progn] 18 (#$ . 8655)])) (byte-code "\300\301\302\303#\300\207" [function-put server-with-environment lisp-indent-function 2] 4) #@158 Delete PROC, including its buffers, terminals and frames. If NOFRAME is non-nil, let the frames live. Updates `server-clients'. (fn PROC &optional NOFRAME) (defalias 'server-delete-client #[513 "\305\306\205 \307P\"\210>\205\304 \310\311\"\211\211\203d \211@\312!\203] r\211q\210 C\232\203\\ \n\2035 \203: \313 \203\\ \314 \204\\ \315C\316\317\320\321\322\n\"\323\"\324$\216\315\325p!\210\211\326\240\210)\210)A\266\202\202 \210\204\222 \327 \211\203\221 \211@\330!\203\212 \331\332\"\232\203\212 \333\332\315#\210\334!\210A\266\202\202k \210\335\"\f\336=\204\262 \310\337\"\211\203\261 \340!\326=\203\261 \341!\210\210\342!\343=\203\276 \344!\210\305\345\"\262\207" [server-clients server-buffer-clients server-kill-new-buffers server-existing-buffer system-type server-log "server-delete-client" " noframe" process-get buffers buffer-live-p server-temp-file-p buffer-modified-p nil make-byte-code 0 "\301\242?\205\n \300C\211\207" vconcat vector [server-buffer-clients] 2 kill-buffer t frame-list frame-live-p frame-parameter client set-frame-parameter delete-frame delq windows-nt terminal terminal-live-p delete-terminal process-status open delete-process "Deleted"] 13 (#$ . 9352)]) #@54 Function to generate timestamps for `server-buffer'. (defvar server-log-time-function 'current-time-string (#$ . 10580)) #@257 Buffer used internally by Emacs's server. One use is to log the I/O for debugging purposes (see option `server-log'), the other is to provide a current buffer in which the process filter can safely let-bind buffer-local variables like `default-directory'. (defconst server-buffer " *server*" (#$ . 10708)) #@73 If non-nil, log the server's inputs and outputs in the `server-buffer'. (defvar server-log nil (#$ . 11020)) #@166 If option `server-log' is non-nil, log STRING to `server-buffer'. If CLIENT is non-nil, add a description of it to the logged message. (fn STRING &optional CLIENT) (defalias 'server-log #[513 "\2053 r\303 !q\210db\210\n \204 \304\202( <\203$ \305\306@\"\202( \305\306\"\261\210n\2062 \307 )\207" [server-log server-buffer server-log-time-function get-buffer-create " " format " %s: " newline] 6 (#$ . 11136)]) #@67 The process sentinel for Emacs server connections. (fn PROC MSG) (defalias 'server-sentinel #[514 "\300!\301=\203 \302!\203 \303\304\"\210\305\306\"\2035 \300!\307=\2035 \31010 \311\312\313\"!0\2024 \210\2025 \210\314\315\316\300!#\"\210\317!\207" [process-status open process-query-on-exit-flag set-process-query-on-exit-flag nil process-contact :server closed (error) delete-file process-get :server-file server-log format "Status changed to %s: %s" server-delete-client] 7 (#$ . 11561)]) #@22 (fn FRAME DISPLAY) (defalias 'server--on-display-p #[514 "\300\301\"\232\205 \302!\303=?\207" [frame-parameter display framep t] 5 (#$ . 12071)]) #@16 (fn DISPLAY) (defalias 'server-select-display #[257 "\300\301!?\206\f \302\303 \"?\205K \304 \211\203* \211@\302\"\203# \305!\210A\266\202\202 \210\302\303 \"?\205K \306\307!\301\310B\311B\"\305!\210\312\313 \"\210\262\207" [fboundp make-frame-on-display server--on-display-p selected-frame frame-list select-frame generate-new-buffer " *server-dummy*" server-dummy-buffer ((visibility)) set-window-buffer selected-window] 6 (#$ . 12229)]) #@14 (fn FRAME) (defalias 'server-unselect-display #[257 "\300!\2059 \301\302\"\303\304\"\203\" \305\306!!=\203\" \307!\210\202. \310\311\312#\210\310\302\313#\210\314!\2057 \315!\262\207" [frame-live-p frame-parameter server-dummy-buffer one-window-p nomini window-buffer frame-first-window delete-frame set-frame-parameter visibility t nil buffer-live-p kill-buffer] 6 (#$ . 12689)]) #@125 Delete the client connection when the emacsclient frame is deleted. (To be used from `delete-frame-functions'.) (fn FRAME) (defalias 'server-handle-delete-frame #[257 "\300\301\"\302!\205@ \211\205@ \303\304\305 \211\203, \211@\300\301\"=\203% T\262A\266\202\202 \210\211\262Y\205@ \306\307\310\"\"\210\311\312\"\207" [frame-parameter client frame-live-p 1 0 frame-list server-log format "server-handle-delete-frame, frame %s" server-delete-client noframe] 10 (#$ . 13090)]) #@76 Notify the client process that its tty device is suspended. (fn TERMINAL) (defalias 'server-handle-suspend-tty #[257 "\300\301\"\211\2054 \211@\302\303\304\"\"\210\3051 \306\307\"0\202, \210\3101* \311!0\202, \210\312\210A\266\202\202 \207" [server-clients-with terminal server-log format "server-handle-suspend-tty, terminal %s" (file-error) server-send-string "-suspend \n" (error) server-delete-client nil] 7 (#$ . 13584)]) #@92 Remove &-quotation from ARG. See `server-quote-arg' and `server-process-filter'. (fn ARG) (defalias 'server-unquote-arg #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "&." #[257 "\211\300H\211\301\267\202 \302\202 \303\202 \304\202 \305\207" [1 #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (38 9 45 13 110 17)) "&" "-" "\n" " "] 4 "\n\n(fn S)"] t] 7 (#$ . 14026)]) #@217 In ARG, insert a & before each &, each space, each newline, and -. Change spaces to underscores, too, so that the return value never contains a space. See `server-unquote-arg' and `server-process-filter'. (fn ARG) (defalias 'server-quote-arg #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "[-&\n ]" #[257 "\211\300H\211\301\267\202 \302\202 \303\202 \304\202 \305\202 \306\207" [0 #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (38 9 45 13 10 17 32 21)) "&&" "&-" "&n" "&_" nil] 4 "\n\n(fn S)"] t] 7 (#$ . 14458)]) #@71 A wrapper around `process-send-string' for logging. (fn PROC STRING) (defalias 'server-send-string #[514 "\300\301P\"\210\302\"\207" [server-log "Sent " process-send-string] 5 (#$ . 15039)]) #@217 Make sure DIR is a directory with no race-condition issues. Creates the directory if necessary and makes sure: - there's no symlink involved - it's owned by us - it's not readable/writable by anybody else. (fn DIR) (defalias 'server-ensure-safe-dir #[257 "\301!\262\302\303\"\211\204, \304 \305\306\307\310\311!\312\"\313$\216\314\315!\210\316\317\"\210)\210\302\303\"\262\211\3208\262\321=\211@\262\317=\204[ \204G \322\202\272 \323\324\211@\262;\203V \325\202W \326\"\202\272 \211\203u \306U\203u \327\330\331\332\333!\"\334#\210\335\202\272 \336 U\204\227 \211\203\215 \337U\203\215 \336 \340U\204\227 \323\341\342!#\202\272 \211\203\237 \335\202\272 \343!\344\206\250 \306\345\"\306U?\205\264 \323\346\"\262\206\272 \335\211\205\306 \347\350\351!#\266\203\207" [system-type directory-file-name file-attributes integer default-file-modes make-byte-code 0 "\300\301!\210\211\207" vconcat vector [set-default-file-modes] 3 set-default-file-modes 448 make-directory t 2 windows-nt "its attributes can't be checked" format "it is a %s" "symlink" "file" display-warning server format-message "Using `%s' to store Emacs-server authentication files.\nDirectories on FAT32 filesystems are NOT secure against tampering.\nSee variable `server-auth-dir' for details." file-name-as-directory :warning nil user-uid 544 500 "it is not owned by you (owner = %s (%d))" user-full-name file-modes logand 63 "it is accessible by others (%03o)" error "`%s' is not a safe directory because %s" expand-file-name] 10 (#$ . 15242)]) #@179 Generate and return a random authentication key. The key is a 64-byte string of random chars in the range `!'..`~'. If called interactively, also inserts it into current buffer. (defalias 'server-generate-key #[0 "\300\301S\211\262\302Y\203 \211\303\304\305!\\C\244\262\202 \211\260\266\202\306\307!\203' \211c\210\211\207" [64 nil 0 33 random 94 called-interactively-p interactive] 6 (#$ . 16792) nil]) #@201 Return server's authentication key. If `server-auth-key' is nil, just call `server-generate-key'. Otherwise, if `server-auth-key' is a valid key, return it. If the key is not valid, signal an error. (defalias 'server-get-auth-key #[0 "\203 \302\303\304\305#)\266\203\203 \207\306\307\"\207\310 \207" [server-auth-key inhibit-changing-match-data "^[!-~]\\{64\\}$" nil t string-match error "The key `%s' is invalid" server-generate-key] 7 (#$ . 17209)]) #@792 Allow this Emacs process to be a server for client processes. This starts a server communications subprocess through which client "editors" can send your editing commands to this Emacs job. To use the server, set up the program `emacsclient' in the Emacs distribution as your standard "editor". Optional argument LEAVE-DEAD (interactively, a prefix arg) means just kill any existing server communications subprocess. If a server is already running, restart it. If clients are running, ask the user for confirmation first, unless optional argument INHIBIT-PROMPT is non-nil. To force-start a server, do \[server-force-delete] and then \[server-start]. To check from a Lisp program whether a server is running, use the `server-process' variable. (fn &optional LEAVE-DEAD INHIBIT-PROMPT) (defalias 'server-start #[512 "\203$ \306 \203 \307 A\204 \310 =\203 \202! \211\204$ \311\312!\205\276\n\203, \202- \f\313 \"@\203G \3141B \315@!0\202F \210\202G \210A\203W B\204W \316B\202\212 \317 !\316=\204v \3201n \321 C\322!)0\202r \210\202\212 \210\202\212 \321D\323\324\325\326\327 \"\330\331!Q\332#\210\316\262\203\226 \333@!\210\202\212 \203\255 \316=\204\246 \334\335\336!!\210\321\211@\202\274\337!\210@\203\274 \334\335\340!!\210\341 \342\343\344\345\346!\347\"\350$\216\351\352!\210\353\354\355\"\210\353\356\357\"\210\353\360\361\"\210\353\362\363\316#\210\364\365\366 \367\316\370\316\371\372\373\374\375\316\376\377\n\203 \201H \201I \201J E\206\316\201K F\206\201L \201M \201N \257\202/\201H \201L \201J \201M \201O \257&\211@\204?\201P \201Q !\210\201R @\201S #\210\n\205\271\201T \201R @\201U #\210\201V \201W !\342\343\201X \345\346!\201Y \"\201Z $\216r\211q\210\201[ \321!\210\201\\ G\201] \201^ @\201_ \"!\201` \201a \201b !\201c \261)rq\210\201d \321\211\321\343%\210*\266\202\262)\262\266\202\207" [server-clients terminal-frame server-use-tcp server-auth-dir server-socket-dir server-name daemonp frame-list selected-frame yes-or-no-p "The current server still has clients; delete them? " expand-file-name (error) delete-process t server-running-p (error) nil delete-file display-warning server "Unable to start the Emacs server.\n" format "There is an existing Emacs server, named %S.\n" substitute-command-keys "To start the server in this Emacs process, stop the existing\nserver or call `\\[server-force-delete]' to forcibly disconnect it." :warning server-delete-client server-log message "Server stopped" server-ensure-safe-dir "Restarting server" default-file-modes make-byte-code 0 "\300\301!\210\211\207" vconcat vector [set-default-file-modes] 3 set-default-file-modes 448 add-hook suspend-tty-functions server-handle-suspend-tty delete-frame-functions server-handle-delete-frame kill-emacs-query-functions server-kill-emacs-query-function kill-emacs-hook server-force-stop apply make-network-process :name :server :noquery :sentinel server-sentinel :filter server-process-filter :use-external-socket :coding raw-text-unix server-process internal--daemon-sockname server--external-socket-initialized delete-by-moving-to-trash server-mode server-port server-host buffer-file-coding-system :family ipv4 :service :host local :plist (:authenticated nil) (:authenticated t) error "Could not start server process" process-put :server-file server-get-auth-key :auth-key generate-new-buffer " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 set-buffer-multibyte no-conversion format-network-address process-contact :local " " number-to-string emacs-pid "\n" write-region] 30 (#$ . 17679) "P"]) #@105 Kill all connections to the current server. This function is meant to be called from `kill-emacs-hook'. (defalias 'server-force-stop #[0 "\300\301\211\"\207" [server-start t] 3 (#$ . 21282)]) #@183 Unconditionally delete connection file for server NAME. If server is running, it is first stopped. NAME defaults to `server-name'. With argument, ask for NAME. (fn &optional NAME) (defalias 'server-force-delete #[256 "\203+ \306\211C\307\310\311\312\313\"\314\"\315$\216\203$ \211\316 \240\210\317\320\"\210\300\321!\210)\266\322\2061 \n\2039 \202: \f\"\3231N \306 \324!\210\317\325\")0\202S \210\317\326\"\207" [server-mode server-name server-use-tcp server-auth-dir server-socket-dir delete-by-moving-to-trash nil make-byte-code 0 "\300\205 \301\242\203 \302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# -1 expand-file-name (file-error) delete-file "Connection file %S deleted" "No connection file %S"] 10 (#$ . 21481) (byte-code "\205\n \302\303\304\211 $C\207" [current-prefix-arg server-name read-string "Server name: " nil] 5)]) #@538 Test whether server NAME is running. Return values: nil the server is definitely not running. t the server seems to be running. something else we cannot determine whether it's running without using commands which may have to wait for a long time. This function can return non-nil if the server was started by some other Emacs process. To check from a Lisp program whether a server was started by the current Emacs process, use the `server-process' variable. (fn &optional NAME) (defalias 'server-running-p #[256 "\211\204 \262\3041] \203F \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\316\317\n\"!\210\320\321!\203? \322\323\324\325\326!!!\236\203? \327\202@ \330*\262\202[ \331\332\333\334\335\336\337\340\341\327\342\317\f \"&\n!\210\3270\207\210\340\207" [server-name server-use-tcp server-auth-dir server-socket-dir (file-error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally expand-file-name looking-at "127\\.0\\.0\\.1:[0-9]+ \\([0-9]+\\)" comm process-attributes string-to-number match-string 1 t :other delete-process make-network-process :name "server-client-test" :family local :server nil :noquery :service] 15 (#$ . 22396)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317& \207" [custom-declare-variable server-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Server mode is enabled.\nSee the `server-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `server-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group server :type boolean :version "22.1"] 14) #@424 Toggle Server mode. If called interactively, enable Server mode if ARG is positive, and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'; disable the mode otherwise. Server mode runs a process that accepts commands from the `emacsclient' program. See Info node `Emacs server' and `server-start' for details. (fn &optional ARG) (defalias 'server-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\307?!\210\310\311\304\300!\203) \312\202* \313\"\210\314\315!\203T \316\300!\210\301 \203B \211\301 \232\203T \317\320\321\304\300!\203O \322\202P \323#\266\210\324 \210\304\300!\207" [server-mode current-message set-default toggle default-value prefix-numeric-value 0 server-start run-hooks server-mode-hook server-mode-on-hook server-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Server mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 24260) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (defvar server-mode-hook nil) (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [server-mode-map server-mode-hook variable-documentation put "Hook run after entering or leaving `server-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode server-mode nil boundp] 6) #@68 Eval EXPR and send the result back to client PROC. (fn EXPR PROC) (defalias 'server-eval-and-print #[514 "\3031 \304\305\306!@\307\")0\202 \210\307\305\310!\205D \311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216p\322!\210\323ed\"\324\325!\"\262+\262\207" [inhibit-quit quit-flag standard-output (quit) nil eval read-from-string t (ignore nil) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 pp buffer-substring-no-properties server-reply-print server-quote-arg] 10 (#$ . 25732)]) #@45 Maximum size of a message sent to a client. (defconst server-msg-size 1024 (#$ . 26311)) #@175 Send a `-print QTEXT' command to client PROC. QTEXT must be already quoted. This handles splitting the command if it would be bigger than `server-msg-size'. (fn QTEXT PROC) (defalias 'server-reply-print #[514 "\301\302\303GG\304#V\203> \305\306\307G\304##\262\310\311\"\203) \305\306\312#\262\305G\"\262\313\314Q\"\210\315\262\202 \313\314Q\"\207" [server-msg-size "-print " nil + 1 substring 0 - string-match "\\(^\\|[^&]\\)&\\(&&\\)*$" -1 server-send-string "\n" "-print-nonl "] 11 (#$ . 26407)]) #@43 (fn TTY TYPE PROC &optional PARAMETERS) (defalias 'server-create-tty-frame #[1027 "\204 \301\302!\210\204 \301\303!\210\304\305\306\"\210\307\211\203> \211@\310\311\312\"\"\211;\2032 \313Q\2023 B\210A\266\202\202 \210\314\315\316B\317B\306B\320\311\312\"BBBBBB!)\321\322\310\323\311\312\"\"#\210\324!\210\325\326#\210\325\327\330!#\210\211\207" [process-environment error "Invalid terminal device" "Invalid terminal type" add-to-list frame-inherited-parameters client ("LANG" "LC_CTYPE" "LC_ALL" "BAUDRATE" "COLUMNS" "ESCDELAY" "HOME" "LINES" "NCURSES_ASSUMED_COLORS" "NCURSES_NO_PADDING" "NCURSES_NO_SETBUF" "TERM" "TERMCAP" "TERMINFO" "TERMINFO_DIRS" "TERMPATH" "COLORFGBG" "COLORTERM") getenv-internal process-get env "=" make-frame (window-system) tty tty-type environment set-frame-parameter display "DISPLAY" select-frame process-put frame terminal frame-terminal] 13 (#$ . 26936)]) #@59 (fn DISPLAY NOWAIT PROC PARENT-ID &optional PARAMETERS) (defalias 'server-create-window-system-frame #[1284 "\206 \300\301\302\"\206 \303\304!\305\236A\206 \306!\307\310!\203$ \311\262\312\262\211\203z \313\2032 \314\2023 B\315\316\317\"BBB\301\203M \320\321!BB\262\322\323\313\"\210\324\"\262\325\326\327\"\"\210\330!\210\331\332#\210\331\333\334!#\210\262\202\206 \325\335\"\210\336\337\"\210\301\207" [frame-parameter nil display error "Please specify display." window-system window-system-for-display featurep ns-win ns "ns" client nowait environment process-get env parent-id string-to-number add-to-list frame-inherited-parameters make-frame-on-display server-log format "%s created" select-frame process-put frame terminal frame-terminal "Window system unsupported" server-send-string "-window-system-unsupported \n"] 14 (#$ . 27867)]) #@13 (fn PROC) (defalias 'server-goto-toplevel #[257 "\3011+ \302 \211\205% \211@r\211q\210\303\300!\203 \203 \304 \210)A\266\202\202 \2620\202/ \210\305\306!\210\307 \310V\205J \311\310\306\312\310\313\314\315!\316\"\317$#\210\320 \207" [isearch-mode (quit) buffer-list boundp isearch-cancel message nil minibuffer-depth 0 run-with-timer make-byte-code "\301\300!\207" vconcat vector [server-execute-continuation] 2 top-level] 10 (#$ . 28754)]) #@13 (fn PROC) (defalias 'server-execute-continuation #[257 "\300\301\"\302\301\303#\210\211\205 \3041 \211 0\202 \210\303\207" [process-get continuation process-put nil (error)] 6 (#$ . 29211)]) #@2650 Process a request from the server to edit some files. PROC is the server process. STRING consists of a sequence of commands prefixed by a dash. Some commands have arguments; these are &-quoted and need to be decoded by `server-unquote-arg'. The filter parses and executes these commands. To illustrate the protocol, here is an example command that emacsclient sends to create a new X frame (note that the whole sequence is sent on a single line): -env HOME=/home/lorentey -env DISPLAY=:0.0 ... lots of other -env commands -display :0.0 -window-system The following commands are accepted by the server: `-auth AUTH-STRING' Authenticate the client using the secret authentication string AUTH-STRING. `-env NAME=VALUE' An environment variable on the client side. `-dir DIRNAME' The current working directory of the client process. `-current-frame' Forbid the creation of new frames. `-frame-parameters ALIST' Set the parameters of the created frame. `-nowait' Request that the next frame created should not be associated with this client. `-display DISPLAY' Set the display name to open X frames on. `-position +LINE[:COLUMN]' Go to the given line and column number in the next file opened. `-file FILENAME' Load the given file in the current frame. `-eval EXPR' Evaluate EXPR as a Lisp expression and return the result in -print commands. `-window-system' Open a new X frame. `-tty DEVICENAME TYPE' Open a new tty frame at the client. `-suspend' Suspend this tty frame. The client sends this string in response to SIGTSTP and SIGTTOU. The server must cease all I/O on this tty until it gets a -resume command. `-resume' Resume this tty frame. The client sends this string when it gets the SIGCONT signal and it is the foreground process on its controlling tty. `-ignore COMMENT' Do nothing, but put the comment in the server log. Useful for debugging. The following commands are accepted by the client: `-emacs-pid PID' Describes the process id of the Emacs process; used to forward window change signals to it. `-window-system-unsupported' Signals that the server does not support creating X frames; the client must try again with a tty frame. `-print STRING' Print STRING on stdout. Used to send values returned by -eval. `-print-nonl STRING' Print STRING on stdout. Used to continue a preceding -print command that would be too big to send in a single message. `-error DESCRIPTION' Signal an error and delete process PROC. `-suspend' Suspend this terminal, i.e., stop the client process. Sent when the user presses C-z. (fn PROC STRING) (defalias 'server-process-filter #[514 "\3052\331\306\307P\"\210\310\311\"\204U \312\313\"\203: \314\315\"\310\316\"\232\203: \317\320\225\"\262\321\311\322#\210\306\323\"\210\202U \306\324\"\210\325\326\327\324!P\"\210\330\315!\210\331!\210\332\305\333\"\210\310\334\"\211\203h \211P\262\321\334\333#\210\210\3351\320\336!\210\325\337\340\341 !\342Q\"\210\312\342\"\204\222 \211G\320V\205\314\321\334#\202\314\320\225G=\204\236 \343\344!\210\317\320\211\224#\206\251 \333C\333C\333\211\211C\333C\333C\333\211\211C\333\211C\333\211\317\320\225\"\262\345\346\347\350\322#\"\262\211\203\364\211A\262\242\211\351\267\202\347\211A\262\210\202\360\322\240\210\202\360\322\262\202\360\211A\262\242\203\n\352\"\262\353!@\262\210\202\360\211A\262\242\262 \fG\320U\203\360\333\262 \202\360\211A\262\242\262\f G\320U\203\360\333\262\f\202\360\354\355!\203\360\n\322\240\210\303\240\210\202\360\310\356\" \322\240\210\n\357\320\360\361\362!\363\"\364$\f\242B\240\266\202\360\310\356\" \322\240\210\n\357\320\360\361\362!\365\"\364$\f\242B\240\266\202\360\n\322\240\210\211A\262\210\202\360\211A\262\242\240\210\211A\262\242\262\n\211\242\206\277?\240\210\n\366=\203\360\367 \204\322 \370=\203\360\371B\262\202\360\312\372@\"\204\346\373\374!\210\211A\262\242\375\314\315\"!\375\314\364\"\206\373\376!B\262\210\202\360\211A\262\242\203\352\"\262\354\377!\203)\312\201@ \"\203)\377!\262\201A \242\"\262B\242B\240\210\306\201B \201C \206K\376#\"\266\333\262\202\360\203a\201D \262\211A\262\242C\203v\211\352\242\"\240\210\n\357\320\201E \361\362\"\201F \"\201G $\f\242B\240\210\333\262\210\202\360\211A\262\242\321\201H \310\201H \"B#\266\202\360\211A\262\242\240\210\203\316\352\n\242\"\240\210\201I \n\242!\240\210\321\201J \242#\210\202\360\211\373\201K \"\266\210\202\321 \242\203\242\303=\204\242\204\f\242\203\322\262\f\203J\201D =\2045\367 \2035\201L A\2045\201M \f=\204J\333\240\210\333\262\f\205\207\201N !\202\207\n\366=\203^\367 \203^\201O \211\262\204e\242\303=\203w\201P \242 %\202\207\242\205\207\201Q \242#\240\210\321\201R \357\320\201S \361\362&\201T \"\201U $#\210\f\242\204\275\242\203\304\201V !\210\201W !\266\2200\202\330\201X \"\2620\207" [file-name-coding-system default-file-name-coding-system system-type window-system terminal-frame --cl-block-server-process-filter-- server-log "Received " process-get :authenticated string-match "-auth \\([!-~]+\\)\n?" match-string 1 :auth-key substring 0 process-put t "Authentication successful" "Authentication failed" server-send-string "-error " server-quote-arg sit-for delete-process throw nil previous-string (t) server-add-client "-emacs-pid " number-to-string emacs-pid "\n" cl--assertion-failed (eq (match-end 0) (length string)) mapcar server-unquote-arg split-string " " #s(hash-table size 16 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("-version" 225 "-nowait" 234 "-current-frame" 242 "-frame-parameters" 248 "-display" 276 "-parent-id" 298 "-window-system" 320 "-resume" 338 "-suspend" 372 "-ignore" 406 "-tty" 420 "-position" 474 "-file" 515 "-eval" 599 "-env" 665 "-dir" 692)) decode-coding-string read-from-string fboundp x-create-frame terminal make-byte-code "\301\300!\302=\205 \303\300!\207" vconcat vector [terminal-live-p t resume-tty] 2 [terminal-live-p t suspend-tty] windows-nt daemonp w32 "-window-system" "\\+\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?" error "Invalid -position command in client args" string-to-number "" cygwin-convert-file-name-from-windows "\\`[A-Za-z]:" expand-file-name format "New file: %s %s" always "\302\301\242\300\"\207" [server-eval-and-print] 3 env command-line-normalize-file-name server-client-directory "Unknown command: %s" frame-list selected-frame server-select-display "w32" server-create-window-system-frame server-create-tty-frame continuation "r\310 !q\210\305\242\203 \311\305\242!\203 \305\242\202 \f \f\312\300\307\242\301\242\304\242\303\242\302\242\306\242&*\207" [get-buffer-create file-directory-p server-execute server-buffer default-directory] 8 server-goto-toplevel server-execute-continuation server-return-error] 34 (#$ . 29417)]) #@59 (fn PROC FILES NOWAIT COMMANDS DONTKILL FRAME TTY-NAME) (defalias 'server-execute #[1799 "\3041\323 \305\3061\276 \307#\310\311\237\"\210\204G \204G ;\203- \312 !\2025 \313 !\2055 \314\315!\203@ \202C \316\317!\320\"\266\203Y \321\322 \"\210\323!\210\202l \204l \211\204l \321\324 \"\210\323!\210\n\204\254 \325 \204\254 \203\213 \211\204\213 \326\327!\210\330\331\332\333!\"\210\202\254 \211\203\254 \326\327!\210\334@\305 @A#\210\326\335!\210\204\254 \330\331\332\336!\"\210\205\270 ?\205\270 \337!\2620\202\320 \211@\340=\203\311 \330\341!\210\342\"\262)0\207\210\343\344\345!\207" [inhibit-quit initial-buffer-choice isearch-mode quit-flag (quit) nil (quit error) server-visit-files mapc funcall find-file-noselect functionp switch-to-buffer buffer-live-p get-buffer-create "*scratch*" norecord server-log "Close nowait client" server-delete-client "Close empty client" minibufferp run-hooks server-after-make-frame-hook message "%s" substitute-command-keys "When done with this frame, type \\[delete-frame]" server-switch-buffer server-switch-hook "When done with a buffer, type \\[server-edit]" server-unselect-display quit "Quit emacsclient request" server-return-error t eval (ignore nil)] 12 (#$ . 36450)]) #@17 (fn PROC ERR) (defalias 'server-return-error #[514 "\3001 \301\302\303\304!!P\"\210\305\304!\"\210\306\307!\210\310!0\207\210\311\207" [(error) server-send-string "-error " server-quote-arg error-message-string server-log sit-for 5 delete-process nil] 8 (#$ . 37713)]) #@106 Move point to the position indicated in LINE-COL. LINE-COL should be a pair (LINE . COL). (fn LINE-COL) (defalias 'server-goto-line-column #[257 "\211\205 eb\210\211@Sy\210\211A\211\300V\205 \301S!\262\207" [0 move-to-column] 4 (#$ . 37997)]) #@386 Find FILES and return a list of buffers created. FILES is an alist whose elements are (FILENAME . FILEPOS) where FILEPOS can be nil or a pair (LINENUMBER . COLUMNNUMBER). PROC is the client that requested this operation. NOWAIT non-nil means this client is not waiting for the results, so don't mark these buffers specially, just visit them normally. (fn FILES PROC &optional NOWAIT) (defalias 'server-visit-files #[770 "\305\306r\211\203\205 \211@ \206 \n\211@\307!\310\311\"\210\211\204, \312\313!\210\314!q\210\202Z \211q\210\312\313!\210\315!\203G \316!\204T \317\305\306\"\210\202T \320\321\322Q!\203T \323!\210 \204Z \305\324A!\210\312\325!\210\312\326!\210)\266\204y \327\330\331\306\305$\210 BpB\262A\266\202\202 \210)\204\227 \332\333\334\333\"\244#\210)\207" [last-nonmenu-event server-raise-frame minibuffer-auto-raise server-buffer-clients server-existing-buffer t nil get-file-buffer add-to-history file-name-history run-hooks pre-command-hook find-file-noselect file-exists-p verify-visited-file-modtime revert-buffer y-or-n-p "File no longer exists: " ", write buffer to file? " write-file server-goto-line-column server-visit-hook post-command-hook add-hook kill-buffer-hook server-kill-buffer process-put buffers process-get] 13 (#$ . 38252)]) #@72 Non-nil while `server-kill-buffer' or `server-buffer-done' is running. (defvar server-kill-buffer-running nil (#$ . 39547)) #@397 Mark BUFFER as "done" for its client(s). This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED). NEXT-BUFFER is another server buffer, as a suggestion for what to select next, or nil. KILLED is t if we killed BUFFER (typically, because it was visiting a temp file). FOR-KILLING if non-nil indicates that we are called from `kill-buffer'. (fn BUFFER &optional FOR-KILLING) (defalias 'server-buffer-done #[513 "\305\211\211\203m \211@\306\307\"\204 >A@\262\211\203e \310\"\262\211\211\203D \211@\311!\203= \312!\204= \310\"\262A\266\202\202% \210\313\307#\210\211\204e \314\315\"\210\203a r\316!\210)\202e \316!\210\210A\266\202\202 \210\311!\203\336 \317!\203\336 \320rq\210\305\321\322!\210)\317!\204\223 \320\262\202\335 \204\335 \211\204\274 \203\274 rq\210\f)\204\274 \320\262\323!\210rq\210\324\305!\210)\325!\210\211\204\335 \326!\203\331 rq\210\324\305!\210)\325!\210\320\262\202\335 \323!\210)D\207" [server-clients server-kill-buffer-running server-buffer-clients server-kill-new-buffers server-existing-buffer nil process-get buffers delq bufferp buffer-live-p process-put server-log "Close" server-delete-client buffer-name t run-hooks server-done-hook bury-buffer set-buffer-modified-p kill-buffer server-temp-file-p] 12 (#$ . 39678)]) #@281 Return non-nil if BUFFER contains a file considered temporary. These are files whose names suggest they are repeatedly reused to pass information to another program. The variable `server-temp-file-regexp' controls which filenames are considered temporary. (fn &optional BUFFER) (defalias 'server-temp-file-p #[256 "\302!\205 \302!\303\304\305#)\266\203\207" [server-temp-file-regexp inhibit-changing-match-data buffer-file-name nil t string-match] 8 (#$ . 41003)]) #@378 Offer to save current buffer, mark it as "done" for clients. This kills or buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED). NEXT-BUFFER is another server buffer, as a suggestion for what to select next, or nil. KILLED is t if we killed BUFFER, which happens if it was created specifically for the clients and did not exist before their request for it. (defalias 'server-done #[0 "\205, \304 \203 \305\211\306 \210*\202) \307 \203) \203) \310\311 \312Q!\203) \306 \210\313p!\207" [server-buffer-clients buffer-backed-up version-control buffer-file-name server-temp-file-p nil save-buffer buffer-modified-p y-or-n-p "Save file " "? " server-buffer-done] 4 (#$ . 41485)]) #@50 Ask before exiting Emacs if it has live clients. (defalias 'server-kill-emacs-query-function #[0 "\301\211\203 \211@\302\303\304\305\306\"\">\203 \302\262A\266\202\202 \210\211\262?\206) \307\310!\207" [server-clients nil t mapcar buffer-live-p process-get buffers yes-or-no-p "This Emacs session has clients; exit anyway? "] 9 (#$ . 42190)]) #@102 Remove the current buffer from its clients' buffer list. Designed to be added to `kill-buffer-hook'. (defalias 'server-kill-buffer #[0 "\206 \205 \303\n\205 \304p\303\")\207" [server-kill-buffer-running server-buffer-clients server-process t server-buffer-done] 3 (#$ . 42548)]) #@793 Switch to next server editing buffer; say "Done" for current buffer. If a server buffer is current, it is marked "done" and optionally saved. The buffer is also killed if it did not exist before the clients asked for it. When all of a client's buffers are marked as "done", the client is notified. Temporary files such as MH <draft> files are always saved and backed up, no questions asked. (The variable `make-backup-files', if nil, still inhibits a backup; you can set it locally in a particular buffer to prevent a backup for it.) The variable `server-temp-file-regexp' controls which filenames are considered temporary. If invoked with a prefix argument, or if there is no server process running, starts server process and that is all. Invoked by \[server-edit]. (fn &optional ARG) (defalias 'server-edit #[256 "\211\204 \203 \302!\303>\203 \304\305!\207 \203 \306\307\310 \"\207\311\312!\207" [server-process server-clients process-status (signal exit) server-mode 1 apply server-switch-buffer server-done message "No server editing buffers exist"] 4 (#$ . 42840) "P"]) #@548 Switch to another buffer, preferably one that has a client. Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it. KILLED-ONE is t in a recursive call if we have already killed one temp-file server buffer. This means we should avoid the final "switch to some other buffer" since we've already effectively done that. FILEPOS specifies a new buffer position for NEXT-BUFFER, if we visit NEXT-BUFFER in an existing window. If non-nil, it should be a cons cell (LINENUMBER . COLUMNNUMBER). (fn &optional NEXT-BUFFER KILLED-ONE FILEPOS) (defalias 'server-switch-buffer #[768 "\204J \211\203. \204. \211@\304\305\"\203 \304\305\"\306 =\203' \304\307\"@\262A\266\202\202 \210\2038 \310\"\210\206B \206B \311 ?\205\344 \312\313!\207\314!\204Z \315\310\316!\"\210\202\334 \317 !\203g !\210\202\334 \320\321\"\211\203\205 \204\205 \322!\210q\210\203\333 \323!\210\202\333 \324 !\203\222 \322 !\210\202\247 \325 !\203\247 \326 !\204\241 \327 \322\330 !!\210\331 \203\264 \322\332\333\334\321#!\210\311 \203\303 \322\335\336\334\337\340 $!\210\3411\326 ?\205\315 \n\342!)0\202\332 \210\343!\210\210 \205\344 \344\345 !\207" [server-clients server-window switch-to-buffer-preserve-window-point server-raise-frame process-get frame selected-frame buffers server-switch-buffer window-dedicated-p message "No server buffers remain to edit" buffer-live-p apply server-buffer-done functionp get-buffer-window 0 select-window server-goto-line-column window-live-p framep frame-live-p make-frame frame-selected-window window-minibuffer-p next-window nil nomini get-window-with-predicate #[257 "\300!?\205 \301\302!!\301 \232\207" [window-dedicated-p frame-terminal window-frame] 4 "\n\n(fn W)"] visible selected-window (error) switch-to-buffer pop-to-buffer select-frame-set-input-focus window-frame] 10 (#$ . 43934)]) #@249 Offer to save each buffer, then kill the current client. With ARG non-nil, silently save all file-visiting buffers, then kill. If emacsclient was started with a list of filenames to edit, then only these files will be asked to be saved. (fn ARG) (defalias 'server-save-buffers-kill-terminal #[257 "\300\301\302\"\211\303=\203 \304 A\203 \305!\210\306 \202P \307!\202P \310!\203M \311\312\"\305\203> \313\314\315\316\317!\320\"\321$\202C \205C \322\"\210\323!\262\202P \324\325!\207" [frame-parameter nil client nowait frame-list save-some-buffers delete-frame save-buffers-kill-emacs processp process-get buffers make-byte-code 0 "p\300>\207" vconcat vector [] 2 t server-delete-client error "Invalid client frame"] 11 (#$ . 45788)]) (define-key ctl-x-map "#" 'server-edit) #@28 Unload the Server library. (defalias 'server-unload-function #[0 "\301\302!\210\303\304\305#\210r\306 \211\203# \211@\211q\210\307\310\311\312#\210A\266\202\202 \210)\305\207" [ctl-x-map server-mode -1 substitute-key-definition server-edit nil buffer-list remove-hook kill-buffer-hook server-kill-buffer t] 6 (#$ . 46583)]) #@303 Contact the Emacs server named SERVER and evaluate FORM there. Returns the result of the evaluation, or signals an error if it cannot contact the specified server. For example: (server-eval-at "server" \='(emacs-pid)) returns the process ID of the Emacs instance running "server". (fn SERVER FORM) (defalias 'server-eval-at #[514 "\203 \202 \n\305\"\306\211 \307\211\211\211\310!\204! \311\312 \"\210\313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216\203b \324\325!\210\326\327!\204I \311\330!\210\331\332!\262\333\331\323!!\262\332y\210`\334 {\262\335 \210)\336\337\340\341p\342\n\343\203t \202v \344\203 \345\202\200 \346\347\350&\f\211\262\204\216 \311\351!\210\203\232 \352\353\354Q\"\210\352\355\356\357\360 \"!\354Q\"\210\361!\362>\203\270 \363\364\"\210\202\250 eb\210\365\366\367\307\350#\203\322 \211`\370\307w\210`{P\262\202\274 \211\365\232?\205\341 \371\372\373!\374\"!\262*\262*\207" [server-use-tcp server-auth-dir server-socket-dir coding-system-for-read coding-system-for-write expand-file-name binary nil file-exists-p error "No such server: %s" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 no-conversion insert-file-contents looking-at "\\([0-9.]+\\):\\([0-9]+\\)" "Invalid auth file" match-string 1 string-to-number line-end-position erase-buffer make-network-process :name "eval-at" :buffer :host :service :family ipv4 local :noquery t "Unable to contact the server" process-send-string "-auth " "\n" "-eval " server-quote-arg format "%S" process-status (open run) accept-process-output 0.01 "" re-search-forward "\n-print\\(-nonl\\)? " "^\n" read decode-coding-string server-unquote-arg emacs-internal] 23 (#$ . 46917)]) (provide 'server)
Close
