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 : frame.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:16 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/frame.el ;;; in Emacs version 23.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 "`frame.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@217 Alist of window-system dependent functions to call to create a new frame. The window system startup file should add its frame creation function to this list, which should take an alist of parameters as its argument. (defvar frame-creation-function-alist (byte-code "\300\301\302!\203 \302\202\f \303BC\207" [nil fboundp tty-create-frame-with-faces #[(parameters) "\300\301!\207" [error "Can't create multiple frames without a window system"] 2]] 3) (#$ . 600)) #@418 Alist of window-system dependent default frame parameters. You can set this in your init file; for example, ;; Disable menubar and toolbar on the console, but enable them under X. (setq window-system-default-frame-alist '((x (menu-bar-lines . 1) (tool-bar-lines . 1)) (nil (menu-bar-lines . 0) (tool-bar-lines . 0)))) Parameters specified here supersede the values given in `default-frame-alist'. (defvar window-system-default-frame-alist nil (#$ . 1069)) #@1073 Alist of parameters for the initial X window frame. You can set this in your init file; for example, (setq initial-frame-alist '((top . 1) (left . 1) (width . 80) (height . 55))) Parameters specified here supersede the values given in `default-frame-alist'. If the value calls for a frame without a minibuffer, and you have not created a minibuffer frame on your own, a minibuffer frame is created according to `minibuffer-frame-alist'. You can specify geometry-related options for just the initial frame by setting this variable in your init file; however, they won't take effect until Emacs reads your init file, which happens after creating the initial frame. If you want the initial frame to have the proper geometry as soon as it appears, you need to use this three-step process: * Specify X resources to give the geometry you want. * Set `default-frame-alist' to override these options so that they don't affect subsequent frames. * Set `initial-frame-alist' in a way that matches the X resources, to override what you put in `default-frame-alist'. (custom-declare-variable 'initial-frame-alist 'nil '(#$ . 1553) :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :group 'frames) #@517 Alist of parameters for the initial minibuffer frame. This is the minibuffer frame created if `initial-frame-alist' calls for a frame without a minibuffer. The parameters specified here supersede those given in `default-frame-alist', for the initial minibuffer frame. You can set this in your init file; for example, (setq minibuffer-frame-alist '((top . 1) (left . 1) (width . 80) (height . 2))) It is not necessary to include (minibuffer . only); that is appended when the minibuffer frame is created. (custom-declare-variable 'minibuffer-frame-alist ''((width . 80) (height . 2)) '(#$ . 2794) :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :group 'frames) #@569 Alist of parameters for automatically generated new frames. You can set this in your init file; for example, (setq pop-up-frame-alist '((width . 80) (height . 20))) If non-nil, the value you specify here is used by the default `pop-up-frame-function' for the creation of new frames. Since `pop-up-frame-function' is used by `display-buffer' for making new frames, any value specified here by default affects the automatic generation of new frames via `display-buffer' and all functions based on it. The behavior of `make-frame' is not affected by this variable. (custom-declare-variable 'pop-up-frame-alist 'nil '(#$ . 3507) :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :group 'frames) #@212 Function used by `display-buffer' for creating a new frame. This function is called with no arguments and should return a new frame. The default value calls `make-frame' with the argument `pop-up-frame-alist'. (custom-declare-variable 'pop-up-frame-function '(lambda nil (make-frame pop-up-frame-alist)) '(#$ . 4243) :type 'function :group 'frames) #@413 Alist of parameters for special frames. Special frames are used for buffers whose names are listed in `special-display-buffer-names' and for buffers whose names match one of the regular expressions in `special-display-regexps'. This variable can be set in your init file, like this: (setq special-display-frame-alist '((width . 80) (height . 20))) These supersede the values given in `default-frame-alist'. (custom-declare-variable 'special-display-frame-alist ''((height . 14) (width . 80) (unsplittable . t)) '(#$ . 4600) :type '(repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :group 'frames) #@620 Display BUFFER and return the window chosen. If BUFFER is already displayed in a visible or iconified frame, raise that frame. Otherwise, display BUFFER in a new frame. Optional argument ARGS is a list specifying additional information. If ARGS is an alist, use it as a list of frame parameters. If these parameters contain (same-window . t), display BUFFER in the selected window. If they contain (same-frame . t), display BUFFER in a window of the selected frame. If ARGS is a list whose car is a symbol, use (car ARGS) as a function to do the work. Pass it BUFFER as first argument, and (cdr ARGS) as second. (defalias 'special-display-popup-frame #[(buffer &optional args) "\203 @9\203 \306@ A#\207\307 \310\"\211\203, \311\n!\312 !\210\313 !\210\n)\206x \314\236A\203: \315\316\317\217\206x \320\236A\204H \314\236A\203Y \321 \315\211 \315 \322 !,\206x r q\210\323\324\"!)\325\326 ! \"\210\327\326 !\321\"\210\326 !))\207" [args buffer window frame pop-up-windows pop-up-frames apply get-buffer-window 0 window-frame make-frame-visible raise-frame same-window nil (byte-code "\301!\210\302 \207" [buffer switch-to-buffer selected-window] 2) ((error)) same-frame t display-buffer make-frame append set-window-buffer frame-selected-window set-window-dedicated-p special-display-buffer-names special-display-regexps special-display-frame-alist] 5 (#$ . 5234)]) #@47 Handle delete-frame events from the X server. (defalias 'handle-delete-frame #[(event) "\211:\203 A@\202 \305 `\306\307F)\211@)\307\310 \n\203: \311\n@!\2033 \n@\f=\2043 T\nA\211\204\" \307V\203G \312\f\313\"\202I \314 +\207" [event position tail i frame selected-window (0 . 0) 0 frame-list frame-visible-p delete-frame t save-buffers-kill-emacs] 5 (#$ . 6629) "e"]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list frame-initial-frame default-boundp set-default nil frame-initial-geometry-arguments] 3) #@39 Create an initial frame if necessary. (defalias 'frame-initialize #[nil "\205K ?\205K \306=?\205K \307\n\310 \"\204: \311 \f\312#\313 \236\204( \314 B\315B B\316 !\211\317 !\320\321\322\n\321\"#\210\323\n!\210\312\211\207" [initial-window-system noninteractive terminal-frame initial-frame-alist default-frame-alist frame-initial-frame-alist pc delq minibuffer-frame-list append nil horizontal-scroll-bars (horizontal-scroll-bars . t) window-system make-frame frame-remove-geometry-params set-frame-parameter environment frame-parameter delete-frame frame-initial-frame default-minibuffer-frame] 6 (#$ . 7225)]) #@69 Non-nil means function `frame-notice-user-settings' wasn't run yet. (defvar frame-notice-user-settings t (#$ . 7858)) #@202 Act on user's init file settings of frame parameters. React to settings of `initial-frame-alist', `window-system-default-frame-alist' and `default-frame-alist' there (in decreasing order of priority). (defalias 'frame-notice-user-settings #[nil "\306\302!\203& \307\236\211\203 A\310=?\202% \307\n\203 \311\202! \310BB)\306\304!\203T \204T \312\236\211\203A A\310=?\202S \203S \312\f\203N \311\202O \310BB)p 7\236A 8 9:\203\314 ;\204\314 \313;! <\314\315<\236<\"<\314\316<\236<\"<\317\320 \204\225 \321=8<\320%\202\227 <\"\210 \204\313 \313 \322 > ?\323>?\"\210\324?\236\203\312 \325=\236\204\305 \325\236\204\305 \326>!\210\327>!\210*)\330;!\203\324\331 \203\371\312=\236\206\351 \3128\236\206\351 \312\236 \n@\203\370\n\203\nA\203\nA\310=\203\370\332;! AB CD:\203'DA\250\203'D\310V\203'DA\202:D\250\2039D\310V\2039D\202:\310 EF\250\203NF\310V\203NF\202O\333 G\334CE\335_G\335_AS$A\245 H\336;\337\" \337 HZBC ?\340I\236A J\336;\340\" J:\203\353J@\341=\203\353 :\203\263 @\334=\203\263\334 \211 KA@)HA_\\D\202\334 :\203\324 @\341=\203\324\341 \211 KA@)HA_ZD\202\334 HA_\\ L\321?\340LBC\320#?)\317;?\"\210\304\342!\210. )\316=\236\206\3168\236\206\316\236\206\343A\344=\204 \320\211 M <\345\313;!\236A\204+\346\311!\210\202\313;!<\315N\236\204B\314\315<\236<\"<\347N\236\204S\314\347<\236<\"<\321=8<\320%<\350\314\351<\236<\"B<\337I\236\203y\352\337<\"<\353I\236\203\207\352\353<\"<\354I\236\203\225\352\354<\"<\340I\236\203\243\352\340<\"<\355\321I\356<#!M\314;\357 \"\204\273\360\320!\210\361\362!\211 O\204\314P;=\203 \361\363!\206\324\357 @ Q\364Q! RP;=\203\351QPO\320 >\211 S\203\fS@>\317>\316RBC\"\210SA\211S\204\364,)\365;M\"\210\366;\344\"\210*\202\324\320\211\211 T U ?\321=8\320$U\337I\236\203@\352\337U\"U\353I\236\203N\352\353U\"U\354I\236\203\\\352\354U\"U\340I\236\203j\352\340U\"UU\211T\203\257\320\211 V WT@@N\236VT@@U\236AWV\203\231VAW=\204\245T@@WB?B?*TA\211T\204r?\237?\317;?\"\210\324?\236\203\323\325?\236\204\316\326;!\210\327;!\210+9q\210\320\211:\211;*\207" [default-frame-alist default menu-bar-mode noninteractive tool-bar-mode initial-window-system boundp menu-bar-lines 0 1 tool-bar-lines frame-parameters delq name minibuffer modify-frame-parameters nil append selected-frame tty-handle-reverse-video background-color background-mode frame-set-background-mode face-set-after-frame-default frame-live-p display-graphic-p frame-char-height 3 + 2 frame-parameter height top - -1 (minibuffer . t) t visibility sleep-for parent-id (reverse) reverse assq-delete-all width left make-frame ((user-size . t) (user-position . t)) minibuffer-frame-list make-initial-minibuffer-frame filtered-frame-list #[(frame) " =?\205 \302\303!! =\207" [frame frame-initial-frame window-frame minibuffer-window] 3] #[(frame) "\301\302!\236A\303=\207" [frame minibuffer frame-parameters only] 3] minibuffer-window redirect-frame-focus delete-frame window-system-default-frame-alist window-system-frame-alist old-buffer frame-notice-user-settings frame-initial-frame parms initial-frame-alist frame newparms tool-bar-originally-present char-height tool-bar-images-pixel-height image-height tool-bar-button-margin margin tool-bar-button-relief relief lines frame-initial-geometry-arguments initial-top x adjusted-top new frame-initial-frame-alist users-of-initial default-minibuffer-frame new-surrogate new-minibuffer #1=#:--cl-dolist-temp-- tail allparms oldval newval] 9 (#$ . 7983)]) (defalias 'make-initial-minibuffer-frame #[(display) "\303\304\"\n\203 \305\n \"\202 \306 !)\207" [minibuffer-frame-alist parms display append ((minibuffer . only)) make-frame-on-display make-frame] 3]) #@302 Modify all current and future frames' parameters according to ALIST. This changes `default-frame-alist' and possibly `initial-frame-alist'. Furthermore, this function removes all parameters in ALIST from `window-system-default-frame-alist'. See help of `modify-frame-parameters' for more information. (defalias 'modify-all-frames-parameters #[(alist) "\306 \307\211\203 @\310\n\"\210 A\211\204 *\n\307\211 \203c \f@ \2030 \311 @ \" \311 @\f\"\f \307 \211 \203[ @\211\311 @A\"\241\210A\211\204C *\fA\211\204! * \203o \312 \n\" \312\f\n\"\211\f\207" [frame #1=#:--cl-dolist-temp-- alist pair #2=#:--cl-dolist-temp-- frame-notice-user-settings frame-list nil modify-frame-parameters assq-delete-all append initial-frame-alist default-frame-alist window-system-default-frame-alist w #3=#:--cl-dolist-temp--] 6 (#$ . 11839)]) #@158 Return some frame other than the current frame. Create one if necessary. Note that the minibuffer frame, if separate, is not considered (see `next-frame'). (defalias 'get-other-frame #[nil "\300\301 !\301 \232\203 \302 \207\300\301 !\207" [next-frame selected-frame make-frame] 3 (#$ . 12699)]) #@61 Select the next window, regardless of which frame it is on. (defalias 'next-multiframe-window #[nil "\300\301\302 \303 \304V\304#!\210\305\306 !\207" [select-window next-window selected-window minibuffer-depth 0 select-frame-set-input-focus selected-frame] 5 (#$ . 13002) nil]) #@65 Select the previous window, regardless of which frame it is on. (defalias 'previous-multiframe-window #[nil "\300\301\302 \303 \304V\304#!\210\305\306 !\207" [select-window previous-window selected-window minibuffer-depth 0 select-frame-set-input-focus selected-frame] 5 (#$ . 13286) nil]) #@106 Make a frame on display DISPLAY. The optional argument PARAMETERS specifies additional frame parameters. (defalias 'make-frame-on-display #[(display &optional parameters) "\306\307!\203 \310\300!\203 \204 \311 \210\312\313\301 B BB!\207\f\314=\203) \312 !\207\315 \316 \317 \320 #,\204C \321\322!\210\310\323!\203S \204S \324 \210\312\325\301 B BB!\207" [ns-initialized display x-display-name parameters system-type start featurep ns boundp ns-initialize-window-system make-frame (window-system . ns) windows-nt "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" nil t string-match error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN" x-initialized x-initialize-window-system (window-system . x) string regexp inhibit-changing-match-data] 4 (#$ . 13583) "sMake frame on display: "]) #@203 Close the connection to a display, deleting all its associated frames. For DISPLAY, specify either a frame or a display name (a string). If DISPLAY is nil, that stands for the selected frame's display. (defalias 'close-display-connection #[(display) "\302\303\304\305\306 \"\"\211:\203+ \307A\203 \310\311G\"\202! \310\312@\"!\204+ \313\314!\2023 \315\316\"\210\317 !)\207" [frames display delq nil mapcar #[(frame) "\302 \300\"\232\205\n \207" [display frame frame-parameter] 4] frame-list y-or-n-p format "Delete %s frames? " "Delete %s ? " error "Abort!" mapc delete-frame x-close-connection] 6 (#$ . 14388) (list (let* ((default (frame-parameter nil 'display)) (display (completing-read (format "Close display (default %s): " default) (delete-dups (mapcar (lambda (frame) (frame-parameter frame 'display)) (frame-list))) nil t nil nil default))) (if (zerop (length display)) default display)))]) #@137 Make a new frame, on the same terminal as the selected frame. If the terminal is a text-only terminal, this also selects the new frame. (defalias 'make-frame-command #[nil "\300 \203 \301 \207\302\301 !\207" [display-graphic-p make-frame select-frame] 2 (#$ . 15303) nil]) #@45 Functions to run before a frame is created. (defvar before-make-frame-hook nil (#$ . 15583)) #@105 Functions to run after a frame is created. The functions are run with one arg, the newly created frame. (defvar after-make-frame-functions nil (#$ . 15683)) #@57 Functions to run after a frame's font has been changed. (defvar after-setting-font-hook nil (#$ . 15846)) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias new-frame make-frame nil make-obsolete "22.1"] 4) #@76 Parameters `make-frame' copies from the `selected-frame' to the new frame. (defvar frame-inherited-parameters nil (#$ . 16074)) #@1488 Return a newly created frame displaying the current buffer. Optional argument PARAMETERS is an alist of parameters for the new frame. Each element of PARAMETERS should have the form (NAME . VALUE), for example: (name . STRING) The frame should be named STRING. (width . NUMBER) The frame should be NUMBER characters in width. (height . NUMBER) The frame should be NUMBER text lines high. You cannot specify either `width' or `height', you must use neither or both. (minibuffer . t) The frame should have a minibuffer. (minibuffer . nil) The frame should have no minibuffer. (minibuffer . only) The frame should contain only a minibuffer. (minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window. (window-system . nil) The frame should be displayed on a terminal device. (window-system . x) The frame should be displayed in an X window. (terminal . TERMINAL) The frame should use the terminal object TERMINAL. Before the frame is created (via `frame-creation-function-alist'), functions on the hook `before-make-frame-hook' are run. After the frame is created, functions on `after-make-frame-functions' are run with one arg, the newly created frame. This function itself does not make the new frame the selected frame. The previously selected frame remains selected. However, the window system may select the new frame for its own reasons, for instance if the frame appears under the mouse pointer and your setup is for focus to follow the pointer. (defalias 'make-frame #[(&optional parameters) "\306\236\203, \307\306\236A!\211\310=\203 \311\202( \311=\203' \312\313\306\236A\"\202( )\202: \302\236\2039 \302\236A\202: \n\211\f\236A \314 \311 \204P \312\315 \"\210\316\317!\210 \320 \236A\"!\321!\210\311 \211 \203\232 @\211\236\204\221 \322\"\211 \203\220 \323 #\210)A\211\204p *\324\325\"\210,\207" [parameters type window-system w frame-creation-function-alist frame-creation-function terminal terminal-live-p t nil error "Terminal %s does not exist" selected-frame "Don't know how to create a frame on window system %s" run-hooks before-make-frame-hook append normal-erase-is-backspace-setup-frame frame-parameter set-frame-parameter run-hook-with-args after-make-frame-functions oldframe frame window-system-default-frame-alist frame-inherited-parameters param #1=#:--cl-dolist-temp-- val] 6 (#$ . 16210) nil]) #@59 Return a list of all live frames which satisfy PREDICATE. (defalias 'filtered-frame-list #[(predicate) "\303 \211:\203 \n@!\204 \304\240\210A\211\202 \305\304 \"*\207" [frames list predicate frame-list nil delq] 4 (#$ . 18620)]) #@57 Return a list of all frames with their own minibuffers. (defalias 'minibuffer-frame-list #[nil "\300\301!\207" [filtered-frame-list #[(frame) "\301\302!!=\207" [frame window-frame minibuffer-window] 4]] 2 (#$ . 18865)]) #@201 Return the terminal corresponding to DEVICE. DEVICE can be a terminal, a frame, nil (meaning the selected frame's terminal), the name of an X display device (HOST.SERVER.SCREEN) or a tty device file. (defalias 'get-device-terminal #[(device) "\203\n \302!\203 \303!\207;\203& \304\305!@\211\204! \306\307\"\210\303 !)\207\310!\203. \207\306\311\"\207" [device f framep frame-terminal filtered-frame-list #[(frame) "\302\303\" \232\206 \302\304\" \232\207" [frame device frame-parameter display tty] 3] error "Display %s does not exist" terminal-live-p "Invalid argument %s in `get-device-terminal'"] 4 (#$ . 19094)]) #@238 Return a list of all frames on DEVICE. DEVICE should be a terminal, a frame, or a name of an X display or tty (a string of the form HOST:SERVER.SCREEN). If DEVICE is omitted or nil, it defaults to the selected frame's terminal device. (defalias 'frames-on-display-list #[(&optional device) "\303!\304\305\n!*\207" [device terminal func get-device-terminal #[(frame) "\302! =\207" [frame terminal frame-terminal] 2] filtered-frame-list] 2 (#$ . 19731)]) #@277 Return the type of frames on TERMINAL. TERMINAL may be a terminal id, a display name or a frame. If it is a frame, its type is returned. If TERMINAL is omitted or nil, it defaults to the selected frame's terminal device. All frames on a given display are of the same type. (defalias 'framep-on-display #[(&optional terminal) "\301!\206 \302!\206 \302\303!@!\207" [terminal terminal-live-p framep frames-on-display-list] 3 (#$ . 20197)]) #@289 Return the parameter list PARAM-LIST, but with geometry specs removed. This deletes all bindings in PARAM-LIST for `top', `left', `width', `height', `user-size' and `user-position' parameters. Emacs uses this to avoid overriding explicit moves and resizings from the user during startup. (defalias 'frame-remove-geometry-params #[(param-list) "\303B\211 A:\2032 A@:\203+ A@@\304>\203+ A@\nB \211AA\241\210\202 A\211\202 )\n\237A\207" [param-list tail frame-initial-geometry-arguments nil (height width top left user-position user-size)] 3 (#$ . 20649)]) #@228 Select FRAME, raise it, and set input focus, if possible. If `mouse-autoselect-window' is non-nil, also move mouse cursor to FRAME's selected window. Otherwise, if `focus-follows-mouse' is non-nil, move mouse cursor to FRAME. (defalias 'select-frame-set-input-focus #[(frame) "\304!\210\305!\210\306!\307>\203 \310!\210 \203) \311\312!!\313\314\n8\nA@#)\207 \2055 \313\315!S\316#\207" [frame mouse-autoselect-window edges focus-follows-mouse select-frame raise-frame window-system (x w32 ns) x-focus-frame window-inside-edges frame-selected-window set-mouse-position 2 frame-width 0] 4 (#$ . 21223)]) #@507 Select the ARGth different visible frame on current display, and raise it. All frames are arranged in a cyclic order. This command selects the frame ARG steps away in that order. A negative ARG moves in the opposite order. To make this command work properly, you must tell Emacs how the system (or the window manager) generally handles focus-switching between windows. If moving the mouse onto a window selects it (gives it focus), set `focus-follows-mouse' to t. Otherwise, that variable should be nil. (defalias 'other-frame #[(arg) "\302 \303V\203# \304!\305!\306=\204 \304!\202 S\211\202 \303W\203C \307!\305!\306=\204< \307!\202- T\211\202$ \310!)\207" [frame arg selected-frame 0 next-frame frame-visible-p t previous-frame select-frame-set-input-focus] 3 (#$ . 21842) "p"]) #@69 Iconify the selected frame, or deiconify if it's currently an icon. (defalias 'iconify-or-deiconify-frame #[nil "\300\301 \236A\302=\203 \303 \207\304 \207" [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 22652) nil]) #@211 Do whatever is right to suspend the current frame. Calls `suspend-emacs' if invoked from the controlling tty device, `suspend-tty' from a secondary tty device, and `iconify-or-deiconify-frame' from an X frame. (defalias 'suspend-frame #[nil "\301\302 !\211\303>\203 \304 \202' \305=\203% \306 \203 \307 \202' \310 \202' \307 )\207" [type framep selected-frame (x ns w32) iconify-or-deiconify-frame t controlling-tty-p suspend-emacs suspend-tty] 3 (#$ . 22903) nil]) (defalias 'make-frame-names-alist #[nil "\303 \304\305\"B\306B\307\306\310\"\211=\204) \304\n\305\"\nB B\307\n\310\"\211\202 +\207" [current-frame falist frame selected-frame frame-parameter name nil next-frame t] 4]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list frame-name-history default-boundp set-default nil] 3) #@127 Select the frame on the current terminal whose name is NAME and raise it. If there is no frame by that name, signal an error. (defalias 'select-frame-by-name #[(name) "\303 \304 \"A\211\203 \305\n!\202 \306\307 \"*\207" [frame-names-alist name frame make-frame-names-alist assoc select-frame-set-input-focus error "There is no frame named `%s'"] 4 (#$ . 23743) (byte-code "\303 \211@@\304\305\306 \"\307\310\307\311&\211G\312U\203 C\202\" \nC+\207" [frame-names-alist default input make-frame-names-alist completing-read format "Select Frame (default %s): " nil t frame-name-history 0] 8)]) #@342 Return a list describing the positions and states of all frames. Its car is `frame-configuration'. Each element of the cdr is a list of the form (FRAME ALIST WINDOW-CONFIG), where FRAME is a frame object, ALIST is an association list specifying some of FRAME's parameters, and WINDOW-CONFIG is a window configuration object for FRAME. (defalias 'current-frame-configuration #[nil "\300\301\302\303 \"B\207" [frame-configuration mapcar #[(frame) "\301!\302!E\207" [frame frame-parameters current-window-configuration] 4] frame-list] 4 (#$ . 24353)]) #@445 Restore the frames to the state described by CONFIGURATION. Each frame listed in CONFIGURATION has its position, size, window configuration, and other parameters set as specified in CONFIGURATION. However, this function does not restore deleted frames. Ordinarily, this function deletes all existing frames not listed in CONFIGURATION. But if optional second argument NODELETE is given and non-nil, the unwanted frames are iconified instead. (defalias 'set-frame-configuration #[(configuration &optional nodelete) "\306!\204 \307\310\306D\"\210A\311\312 \311\211 \203y \f@\211\n\236\211 \203m \313 A@ \314\236 \315\236 \316\236A \203M \317\" \203_ \204_ \317 \",\"\210\320\321 8!\210\202q B)\fA\211\204 *\322\203\204 \323\202\205 \324 \"*\207" [configuration frames-to-delete config-alist frame #1=#:--cl-dolist-temp-- parameters frame-configuration-p signal wrong-type-argument nil frame-list modify-frame-parameters minibuffer name explicit-name delq set-window-configuration 2 mapc iconify-frame delete-frame parms mini nodelete] 6 (#$ . 24918)]) #@116 Return number of lines available for display on FRAME. If FRAME is omitted, describe the currently selected frame. (defalias 'frame-height #[(&optional frame) "\301\302!\236A\207" [frame height frame-parameters] 3 (#$ . 26021)]) #@118 Return number of columns available for display on FRAME. If FRAME is omitted, describe the currently selected frame. (defalias 'frame-width #[(&optional frame) "\301\302!\236A\207" [frame width frame-parameters] 3 (#$ . 26258)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias set-default-font set-frame-font nil make-obsolete "23.1"] 4) #@455 Set the font of the selected frame to FONT-NAME. When called interactively, prompt for the name of the font to use. To get the frame's current default font, use `frame-parameters'. The default behavior is to keep the numbers of lines and columns in the frame, thus may change its pixel size. If optional KEEP-SIZE is non-nil (interactively, prefix argument) the current frame size (in pixels) is kept by adjusting the numbers of the lines and columns. (defalias 'set-frame-font #[(font-name &optional keep-size) "\304\211\n\203 \305\304\306\"\307 _\305\304\310\"\311 _\312\313 \314 BC\"\210\n\2039 \312\313 \306\315 \307 \"B\310\315\311 \"BD\"\210*\316\317\320\"\207" [fwd fht keep-size font-name nil frame-parameter height frame-char-height width frame-char-width modify-frame-parameters selected-frame font round run-hooks after-setting-font-hook after-setting-font-hooks] 7 (#$ . 26622) (let* ((completion-ignore-case t) (font (completing-read "Font name: " (x-list-fonts "*" nil (selected-frame)) nil nil nil nil (frame-parameter nil 'font)))) (list font current-prefix-arg))]) #@133 Set frame parameter PARAMETER to VALUE on FRAME. If FRAME is nil, it defaults to the selected frame. See `modify-frame-parameters'. (defalias 'set-frame-parameter #[(frame parameter value) "\303 \nBC\"\207" [frame parameter value modify-frame-parameters] 4 (#$ . 27719)]) #@200 Set the background color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current background color, use `frame-parameters'. (defalias 'set-background-color #[(color-name) "\302\303 \304BC\"\210 \206 \305\303 !\207" [color-name window-system modify-frame-parameters selected-frame background-color face-set-after-frame-default] 4 (#$ . 27999) (list (facemenu-read-color "Background color: "))]) #@200 Set the foreground color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current foreground color, use `frame-parameters'. (defalias 'set-foreground-color #[(color-name) "\302\303 \304BC\"\210 \206 \305\303 !\207" [color-name window-system modify-frame-parameters selected-frame foreground-color face-set-after-frame-default] 4 (#$ . 28477) (list (facemenu-read-color "Foreground color: "))]) #@197 Set the text cursor color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current cursor color, use `frame-parameters'. (defalias 'set-cursor-color #[(color-name) "\301\302 \303BC\"\207" [color-name modify-frame-parameters selected-frame cursor-color] 4 (#$ . 28955) (list (facemenu-read-color "Cursor color: "))]) #@205 Set the color of the mouse pointer of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current mouse color, use `frame-parameters'. (defalias 'set-mouse-color #[(color-name) "\301\302 \303\206 \303\304 \236ABC\"\207" [color-name modify-frame-parameters selected-frame mouse-color frame-parameters] 5 (#$ . 29354) (list (facemenu-read-color "Mouse color: "))]) #@199 Set the color of the border of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current border color, use `frame-parameters'. (defalias 'set-border-color #[(color-name) "\301\302 \303BC\"\207" [color-name modify-frame-parameters selected-frame border-color] 4 (#$ . 29795) (list (facemenu-read-color "Border color: "))]) #@393 Toggle whether or not the selected frame should auto-raise. With ARG, turn auto-raise mode on if and only if ARG is positive. Note that this controls Emacs's own auto-raise feature. Some window managers allow you to enable auto-raise for certain windows. You can use that for Emacs windows if you wish, but if you do, that is beyond the control of Emacs and this command has no effect on it. (defalias 'auto-raise-mode #[(arg) "\204 \301\302\303 !\236A\203 \304\202 \305\306V\203 \307\303 !\210\310\303 \301\306VBC\"\207" [arg auto-raise frame-parameters selected-frame -1 1 0 raise-frame modify-frame-parameters] 5 (#$ . 30196) "P"]) #@393 Toggle whether or not the selected frame should auto-lower. With ARG, turn auto-lower mode on if and only if ARG is positive. Note that this controls Emacs's own auto-lower feature. Some window managers allow you to enable auto-lower for certain windows. You can use that for Emacs windows if you wish, but if you do, that is beyond the control of Emacs and this command has no effect on it. (defalias 'auto-lower-mode #[(arg) "\204 \301\302\303 !\236A\203 \304\202 \305\306\303 \301\307VBC\"\207" [arg auto-lower frame-parameters selected-frame -1 1 modify-frame-parameters 0] 5 (#$ . 30846) "P"]) #@251 Set the name of the selected frame to NAME. When called interactively, prompt for the name of the frame. The frame name is displayed on the modeline if the terminal displays only one frame, otherwise the name is displayed on the frame's caption bar. (defalias 'set-frame-name #[(name) "\301\302 \300BC\"\207" [name modify-frame-parameters selected-frame] 4 (#$ . 31458) "sFrame name: "]) #@292 Return the current scroll-bar settings in frame FRAME. Value is a cons (VERTICAL . HORIZ0NTAL) where VERTICAL specifies the current location of the vertical scroll-bars (left, right, or nil), and HORIZONTAL specifies the current location of the horizontal scroll bars (top, bottom, or nil). (defalias 'frame-current-scroll-bars #[(&optional frame) "\304\305\"\306\211\307>\204 \n *B\207" [frame hor vert default-frame-scroll-bars frame-parameter vertical-scroll-bars nil (left right nil)] 4 (#$ . 31854)]) #@43 Return the terminal that is now selected. (defalias 'selected-terminal #[nil "\300\301 !\207" [frame-terminal selected-frame] 2 (#$ . 32372)]) #@137 Return non-nil if DISPLAY has a mouse available. DISPLAY can be a display name, a frame, or nil (meaning the selected frame's display). (defalias 'display-mouse-p #[(&optional display) "\305!\211\306=\203 \307 \2022 \n\310=\203 \311V\2022 \312>\203% \313\2022 \314\315!\203/ \f\2062 \314\316!)\207" [display frame-type system-type w32-num-mouse-buttons xterm-mouse-mode framep-on-display pc msdos-mouse-p windows-nt 0 (x ns) t featurep xt-mouse t-mouse] 3 (#$ . 32522)]) #@206 Return non-nil if popup menus are supported on DISPLAY. DISPLAY can be a display name, a frame, or nil (meaning the selected frame's display). Support for popup menus requires that the mouse be available. (defalias 'display-popup-menus-p #[(&optional display) "\302!\211\303>)\205 \304!\207" [display frame-type framep-on-display (x w32 pc ns) display-mouse-p] 3 (#$ . 33006)]) #@347 Return non-nil if DISPLAY is a graphic display. Graphical displays are those which are capable of displaying several frames and several different fonts at once. This is true for displays that use a window system such as X, and false for text-only terminals. DISPLAY can be a display name, a frame, or nil (meaning the selected frame's display). (defalias 'display-graphic-p #[(&optional display) "\301!\302>??\207" [display framep-on-display (x w32 ns)] 2 (#$ . 33395)]) #@135 Return non-nil if DISPLAY can display images. DISPLAY can be a display name, a frame, or nil (meaning the selected frame's display). (defalias 'display-images-p #[(&optional display) "\301!\205 \302\303!\205 \302\304!\207" [display display-graphic-p fboundp image-mask-p image-size] 2 (#$ . 33875)]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias display-multi-frame-p display-graphic-p display-multi-font-p] 3) #@282 Return non-nil if DISPLAY supports selections. A selection is a way to transfer text or other data between programs via special system buffers called `selection' or `cut buffer' or `clipboard'. DISPLAY can be a display name, a frame, or nil (meaning the selected frame's display). (defalias 'display-selections-p #[(&optional display) "\303!\211\304=\203 \n??\202 \305>\203 \306\202 \307)\207" [display frame-type dos-windows-version framep-on-display pc (x w32 ns) t nil] 3 (#$ . 34311)]) #@55 Return the number of screens associated with DISPLAY. (defalias 'display-screens #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-screens 1] 3 (#$ . 34814)]) #@116 Return the height of DISPLAY's screen in pixels. For character terminals, each character counts as a single pixel. (defalias 'display-pixel-height #[(&optional display) "\302!\211\303>\203 \304!\202 \305\306!\203 \202 \307 !)\207" [display frame-type framep-on-display (x w32 ns) x-display-pixel-height frame-height framep selected-frame] 4 (#$ . 35057)]) #@115 Return the width of DISPLAY's screen in pixels. For character terminals, each character counts as a single pixel. (defalias 'display-pixel-width #[(&optional display) "\302!\211\303>\203 \304!\202 \305\306!\203 \202 \307 !)\207" [display frame-type framep-on-display (x w32 ns) x-display-pixel-width frame-width framep selected-frame] 4 (#$ . 35429)]) #@371 Alist for specifying screen dimensions in millimeters. The dimensions will be used for `display-mm-height' and `display-mm-width' if defined for the respective display. Each element of the alist has the form (display . (width . height)), e.g. (":0.0" . (287 . 215)). If `display' equals t, it specifies dimensions for all graphical displays not explicitely specified. (custom-declare-variable 'display-mm-dimensions-alist 'nil '(#$ . 35797) :version "22.1" :type '(alist :key-type (choice (string :tag "Display name") (const :tag "Default" t)) :value-type (cons :tag "Dimensions" (integer :tag "Width") (integer :tag "Height"))) :group 'frames) #@170 Return the height of DISPLAY's screen in millimeters. System values can be overridden by `display-mm-dimensions-alist'. If the information is unavailable, value is nil. (defalias 'display-mm-height #[(&optional display) "\303!\304>\205* \305\206 \306\307\300\" \"\211AA)\206* \305\310 \"\211AA)\206* \311!\207" [display display-mm-dimensions-alist x framep-on-display (x w32 ns) assoc frame-parameter nil t x-display-mm-height] 5 (#$ . 36451)]) #@169 Return the width of DISPLAY's screen in millimeters. System values can be overridden by `display-mm-dimensions-alist'. If the information is unavailable, value is nil. (defalias 'display-mm-width #[(&optional display) "\303!\304>\205* \305\206 \306\307\300\" \"\211A@)\206* \305\310 \"\211A@)\206* \311!\207" [display display-mm-dimensions-alist x framep-on-display (x w32 ns) assoc frame-parameter nil t x-display-mm-width] 5 (#$ . 36909)]) #@183 Return the backing store capability of DISPLAY's screen. The value may be `always', `when-mapped', `not-useful', or nil if the question is inapplicable to a certain kind of display. (defalias 'display-backing-store #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-backing-store not-useful] 3 (#$ . 37364)]) #@68 Return non-nil if DISPLAY's screen supports the SaveUnder feature. (defalias 'display-save-under #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-save-under not-useful] 3 (#$ . 37755)]) #@51 Return the number of planes supported by DISPLAY. (defalias 'display-planes #[(&optional display) "\302!\211\303>\203 \304!\202\" \305=\203 \306\202\" \307\310\311 G\312\"!)\207" [display frame-type framep-on-display (x w32 ns) x-display-planes pc 4 truncate log tty-color-alist 2] 5 (#$ . 38025)]) #@56 Return the number of color cells supported by DISPLAY. (defalias 'display-color-cells #[(&optional display) "\302!\211\303>\203 \304!\202 \305=\203 \306\202 \307!)\207" [display frame-type framep-on-display (x w32 ns) x-display-color-cells pc 16 tty-display-color-cells] 3 (#$ . 38336)]) #@163 Return the visual class of DISPLAY. The value is one of the symbols `static-gray', `gray-scale', `static-color', `pseudo-color', `true-color', or `direct-color'. (defalias 'display-visual-class #[(&optional display) "\302!\211\303>\203 \304!\202! \305>\203 \306!\203 \307\202! \310)\207" [display frame-type framep-on-display (x w32 ns) x-display-visual-class (pc t) tty-display-color-p static-color static-gray] 3 (#$ . 38640)]) #@1201 Return equivalent geometry value for FRAME as a cons with car `+'. A geometry value equivalent to VALUE for FRAME is returned, where the value is a cons with car `+', not numeric. TYPE is the car of the original geometry spec (TYPE . VALUE). It is `top' or `left', depending on which edge VALUE is related to. VALUE is the cdr of a frame geometry spec: (left/top . VALUE). If VALUE is a number, then it is converted to a cons value, perhaps relative to the opposite frame edge from that in the original spec. FRAME defaults to the selected frame. Examples (measures in pixels) - Assuming display height/width=1024, frame height/width=600: 300 inside display edge: 300 => (+ 300) (+ 300) => (+ 300) 300 inside opposite display edge: (- 300) => (+ 124) -300 => (+ 124) 300 beyond display edge (= 724 inside opposite display edge): (+ -300) => (+ -300) 300 beyond display edge (= 724 inside opposite display edge): (- -300) => (+ 724) In the 3rd, 4th, and 6th examples, the returned value is relative to the opposite frame edge from the edge indicated in the input spec. (defalias 'frame-geom-value-cons #[(type value &optional frame) ":\203 @\304=\203 \207\305!\203 \304D\207\304\306 \307=\203% \310 \202' \311 \250\2031 [\2027 \211A@) \307=\203C \312 !\202F \313 !#D\207" [value type x frame + natnump - left x-display-pixel-width x-display-pixel-height frame-pixel-width frame-pixel-height] 7 (#$ . 39086)]) #@1133 Return equivalent geometry spec for FRAME as a cons with car `+'. A geometry specification equivalent to SPEC for FRAME is returned, where the value is a cons with car `+', not numeric. SPEC is a frame geometry spec: (left . VALUE) or (top . VALUE). If VALUE is a number, then it is converted to a cons value, perhaps relative to the opposite frame edge from that in the original spec. FRAME defaults to the selected frame. Examples (measures in pixels) - Assuming display height=1024, frame height=600: top 300 below display top: (top . 300) => (top + 300) (top + 300) => (top + 300) bottom 300 above display bottom: (top - 300) => (top + 124) (top . -300) => (top + 124) top 300 above display top (= bottom 724 above display bottom): (top + -300) => (top + -300) bottom 300 below display bottom (= top 724 below display top): (top - -300) => (top + 724) In the 3rd, 4th, and 6th examples, the returned value is relative to the opposite frame edge from the edge indicated in the input spec. (defalias 'frame-geom-spec-cons #[(spec &optional frame) "@\301@A\"B\207" [spec frame-geom-value-cons] 4 (#$ . 40646)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\305#\207" [defalias screen-height frame-height nil make-obsolete "19.7" screen-width frame-width] 4) #@259 Change the size of the screen to COLS columns. Optional second arg non-nil means that redisplay should use COLS columns but that the idea of the actual width of the frame should not be changed. This function is provided only for compatibility with Emacs 18. (defalias 'set-screen-width #[(cols &optional pretend) "\302\303 #\207" [cols pretend set-frame-width selected-frame] 4 (#$ . 42097)]) #@261 Change the height of the screen to LINES lines. Optional second arg non-nil means that redisplay should use LINES lines but that the idea of the actual height of the screen should not be changed. This function is provided only for compatibility with Emacs 18. (defalias 'set-screen-height #[(lines &optional pretend) "\302\303 #\207" [lines pretend set-frame-height selected-frame] 4 (#$ . 42499)]) #@167 Delete all frames except FRAME. If FRAME uses another frame's minibuffer, the minibuffer frame is left untouched. FRAME nil or omitted means use the selected frame. (defalias 'delete-other-frames #[(&optional frame) "\204 \306 \307\310!!\311 \311\312 \"\"\211\313\211\211\2037 @\314 \314!=\2030 \nB A\211\204 *\n\313\211 \203W \f@\315\316\"\317=\204P \320!\210\fA\211\204@ *\n\313\211 \203w @\315\316\"\317=\203p \320!\210 A\211\204` ,\313\207" [frame mini-frame frames #1=#:--cl-dolist-temp-- #2=#:--cl-dolist-temp-- #3=#:--cl-dolist-temp-- selected-frame window-frame minibuffer-window delq frame-list nil frame-terminal frame-parameter minibuffer only delete-frame] 6 (#$ . 42907) nil]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\306\307\310\311#\210\312\307\310\313#\210\314\315!\207" [make-obsolete set-screen-width set-frame-width "19.7" set-screen-height set-frame-height defvaralias delete-frame-hook delete-frame-functions nil make-obsolete-variable "22.1" make-variable-buffer-local show-trailing-whitespace] 4) #@94 Non-nil means highlight trailing whitespace. This is done in the face `trailing-whitespace'. (custom-declare-variable 'show-trailing-whitespace 'nil '(#$ . 43976) :type 'boolean :group 'whitespace-faces) (custom-declare-group 'scrolling nil "Scrolling windows." :version "21.1" :group 'frames) #@144 Allow or disallow automatic scrolling windows horizontally. If non-nil, windows are automatically scrolled horizontally to make point visible. (custom-declare-variable 'auto-hscroll-mode 't '(#$ . 44277) :version "21.1" :type 'boolean :group 'scrolling) (byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\207" [defvaralias automatic-hscrolling auto-hscroll-mode custom-declare-group cursor nil "Displaying text cursors." :version "21.1" :group frames] 8) #@58 Seconds of idle time after which cursor starts to blink. (custom-declare-variable 'blink-cursor-delay '0.5 '(#$ . 44752) :type 'number :group 'cursor) #@45 Length of cursor blink interval in seconds. (custom-declare-variable 'blink-cursor-interval '0.5 '(#$ . 44909) :type 'number :group 'cursor) #@136 Timer started after `blink-cursor-delay' seconds of Emacs idle time. The function `blink-cursor-start' is called when the timer fires. (defvar blink-cursor-idle-timer nil (#$ . 45057)) #@128 Timer started from `blink-cursor-start'. This timer calls `blink-cursor-timer-function' every `blink-cursor-interval' seconds. (defvar blink-cursor-timer nil (#$ . 45249)) #@257 Timer function called from the timer `blink-cursor-idle-timer'. This starts the timer `blink-cursor-timer', which makes the cursor blink if appropriate. It also arranges to cancel that timer when the next command starts, by installing a pre-command hook. (defalias 'blink-cursor-start #[nil "?\205 \302 \211\303#\304\305\306\"\210\307\310\211\"\207" [blink-cursor-timer blink-cursor-interval run-with-timer blink-cursor-timer-function add-hook pre-command-hook blink-cursor-end internal-show-cursor nil] 4 (#$ . 45428)]) #@47 Timer function of timer `blink-cursor-timer'. (defalias 'blink-cursor-timer-function #[nil "\300\301\302 ?\"\207" [internal-show-cursor nil internal-show-cursor-p] 3 (#$ . 45959)]) #@182 Stop cursor blinking. This is installed as a pre-command hook by `blink-cursor-start'. When run, it cancels the timer `blink-cursor-timer' and removes itself as a pre-command hook. (defalias 'blink-cursor-end #[nil "\301\302\303\"\210\304\305\306\"\210\205 \307!\210\305\211\207" [blink-cursor-timer remove-hook pre-command-hook blink-cursor-end internal-show-cursor nil t cancel-timer] 3 (#$ . 46147)]) #@272 Non-nil if Blink-Cursor mode is enabled. See the command `blink-cursor-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `blink-cursor-mode'. (custom-declare-variable 'blink-cursor-mode '(not (or noninteractive no-blinking-cursor (eq system-type 'ms-dos) (not (memq window-system '(x w32))))) '(#$ . 46562) :set 'custom-set-minor-mode :initialize 'custom-initialize-safe-default :group 'cursor :type 'boolean) #@394 Toggle blinking cursor mode. With a numeric argument, turn blinking cursor mode on if ARG is positive, otherwise turn it off. When blinking cursor mode is enabled, the cursor of the selected window blinks. Note that this command is effective only when Emacs displays through a window system, because then Emacs does its own cursor display. On a text-only terminal, this is not implemented. (defalias 'blink-cursor-mode #[(&optional arg) "\305 \306=\203 \n?\202( \203 \307 !\310V\202( \n\204\" \311\202( \312\313\302\"\210\314 \2031 \315 !\210\314\316 \210\n\203@ \317\f\211\320#\321\322\n\203J \323\202K \324\"\210\325 \203o \326\302!\210\305 \203b \305 \232\203o \312\327\n\203l \330\202m \331\"\210)\332 \210\n\207" [#1=#:last-message arg blink-cursor-mode blink-cursor-idle-timer blink-cursor-delay current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil cancel-timer blink-cursor-end run-with-idle-timer blink-cursor-start run-hooks blink-cursor-mode-hook blink-cursor-mode-on-hook blink-cursor-mode-off-hook called-interactively-p customize-mark-as-set "Blink-Cursor mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 47108) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306\301\302#\210\307\306\301\310#\207" [add-minor-mode blink-cursor-mode nil boundp blink-cursor-mode-map defvaralias blink-cursor make-obsolete-variable "22.1"] 5) #@141 Non-nil means show an hourglass pointer, when Emacs is busy. This feature only works when on a window system that can change cursor shapes. (custom-declare-variable 'display-hourglass 't '(#$ . 48580) :type 'boolean :group 'cursor) #@76 Seconds to wait before displaying an hourglass pointer when Emacs is busy. (custom-declare-variable 'hourglass-delay '1 '(#$ . 48818) :type 'number :group 'cursor) #@372 Non-nil means show a hollow box cursor in non-selected windows. If nil, don't show a cursor except in the selected window. If t, display a cursor related to the usual cursor type (a solid box becomes hollow, a bar becomes a narrower bar). You can also specify the cursor type as in the `cursor-type' variable. Use Custom to set this variable to get the display updated. (custom-declare-variable 'cursor-in-non-selected-windows 't '(#$ . 48989) :tag "Cursor In Non-selected Windows" :type 'boolean :group 'cursor :set #[(symbol value) "\302 \"\210\303\304!\207" [symbol value set-default force-mode-line-update t] 3]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\312\313!\207" [ctl-x-5-map define-key "2" make-frame-command "1" delete-other-frames "0" delete-frame "o" other-frame provide frame] 4)
Close
