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 : window.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:26 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/window.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 "`window.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@400 *Non-nil in a buffer means windows displaying the buffer are fixed-size. If the value is `height', then only the window's height is fixed. If the value is `width', then only the window's width is fixed. Any other non-nil value fixes both the width and the height. Emacs won't change the size of any window displaying that buffer, unless you explicitly change the size, or Emacs has no other choice. (defvar window-size-fixed nil (#$ . -602)) (make-variable-buffer-local 'window-size-fixed) #@731 Execute BODY, then select the previously selected window. The value returned is the value of the last form in BODY. This macro saves and restores the selected window, as well as the selected window in each frame. If the previously selected window is no longer live, then whatever window is selected at the end of BODY remains selected. If the previously selected window of some frame is no longer live at the end of BODY, that frame's selected window is left alone. This macro saves and restores the current buffer, since otherwise its normal operation could make a different buffer current. The order of recently selected windows and the buffer list ordering are not altered by this macro (unless they are altered in BODY). (defalias 'save-selected-window '(macro . #[(&rest body) "\301\302\303\304\305B\306BBDE\207" [body let ((save-selected-window-window (selected-window)) (save-selected-window-alist (mapcar (lambda (frame) (cons frame (frame-selected-window frame))) (frame-list)))) save-current-buffer unwind-protect progn ((dolist (elt save-selected-window-alist) (and (frame-live-p (car elt)) (window-live-p (cdr elt)) (set-frame-selected-window (car elt) (cdr elt) 'norecord))) (when (window-live-p save-selected-window-window) (select-window save-selected-window-window 'norecord)))] 6 (#$ . 1099)])) #@412 Return number of lines in WINDOW available for actual buffer text. WINDOW defaults to the selected window. The return value does not include the mode line or the header line, if any. If a line at the bottom of the window is only partially visible, that line is included in the return value. If you do not want to include a partially visible bottom line in the return value, use `window-text-height' instead. (defalias 'window-body-height #[(&optional window) "\204 \303 \304!\203 \305!\207r\306!q\210\307\310\305! \203$ \307\202% \311\n\203- \307\202. \311#])\207" [window mode-line-format header-line-format selected-window window-minibuffer-p window-height window-buffer 1 - 0] 5 (#$ . 2424)]) #@582 Return non-nil if the selected window is the only window. Optional arg NOMINI non-nil means don't count the minibuffer even if it is active. Otherwise, the minibuffer is counted when it is active. The optional arg ALL-FRAMES t means count windows on all frames. If it is `visible', count windows on all visible frames. ALL-FRAMES nil or omitted means count only the selected frame, plus the minibuffer it uses (which may be on another frame). ALL-FRAMES 0 means count all windows in all visible or iconified frames. If ALL-FRAMES is anything else, count only the selected frame. (defalias 'one-window-p #[(&optional nomini all-frames) "\303 \203 \304 =\203 \305!\305 \205 \306\n#)=\207" [base-window nomini all-frames selected-window minibuffer-window next-window arg] 5 (#$ . 3138)]) #@506 Return the current scroll bar settings for WINDOW. WINDOW defaults to the selected window. The return value is a cons cell (VERTICAL . HORIZONTAL) 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). Unlike `window-scroll-bars', this function reports the scroll bar type actually used, once frame defaults and `scroll-bar-mode' are taken into account. (defalias 'window-current-scroll-bars #[(&optional window) "\304\305!8\306\211\307=\204 \307=\2032 \310\311\206 \312 !!\n\307=\203( @ \307=\2031 A)\n *B\207" [window hor vert fcsb 2 window-scroll-bars nil t frame-current-scroll-bars window-frame selected-window] 4 (#$ . 3942)]) #@1627 Cycle through all windows, calling PROC for each one. PROC must specify a function with a window as its sole argument. The optional arguments MINIBUF and ALL-FRAMES specify the set of windows to include in the walk, see also `next-window'. MINIBUF t means include the minibuffer window even if the minibuffer is not active. MINIBUF nil or omitted means include the minibuffer window only if the minibuffer is active. Any other value means do not include the minibuffer window even if the minibuffer is active. Several frames may share a single minibuffer; if the minibuffer is active, all windows on all frames that share that minibuffer are included too. Therefore, if you are using a separate minibuffer frame and the minibuffer is active and MINIBUF says it counts, `walk-windows' includes the windows in the frame from which you entered the minibuffer, as well as the minibuffer window. ALL-FRAMES nil or omitted means cycle through all windows on WINDOW's frame, plus the minibuffer window if specified by the MINIBUF argument, see above. If the minibuffer counts, cycle through all windows on all frames that share that minibuffer too. ALL-FRAMES t means cycle through all windows on all existing frames. ALL-FRAMES `visible' means cycle through all windows on all visible frames. ALL-FRAMES 0 means cycle through all windows on all visible and iconified frames. ALL-FRAMES a frame means cycle through all windows on that frame only. Anything else means cycle through all windows on WINDOW's frame and no others. This function changes neither the order of recently selected windows nor the buffer list. (defalias 'walk-windows #[(proc &optional minibuf all-frames) "\306\307 !\203 \310\307 \311\312\313 \"r\314\216\315 !\203\" \316\317 !\320\"\210\321 \307 \322 #\211\f>?\205@ \fB !\210\202' .\207" [minibuf save-selected-window-alist save-selected-window-window all-frames walk-windows-already-seen walk-windows-current window-minibuffer-p selected-window t mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) framep select-window frame-first-window norecord nil next-window proc] 5 (#$ . 4746)]) #@447 Return a window satisfying PREDICATE. More precisely, cycle through all windows using `walk-windows', calling the function PREDICATE on each one of them with the window as its sole argument. Return the first window for which PREDICATE returns non-nil. If no window satisfies PREDICATE, return DEFAULT. The optional arguments MINIBUF and ALL-FRAMES specify the set of windows to include. See `walk-windows' for the meaning of these arguments. (defalias 'get-window-with-predicate #[(predicate &optional minibuf all-frames default) "\300\301\215\207" [found (byte-code "\303\304 #\210\n\207" [minibuf all-frames default walk-windows #[(window) " !\205\n \302\303 \"\207" [predicate window throw found] 3]] 4)] 2 (#$ . 7209)]) (defalias 'some-window 'get-window-with-predicate) #@323 Return list of all windows displaying BUFFER-OR-NAME, or nil if none. BUFFER-OR-NAME may be a buffer or the name of an existing buffer and defaults to the current buffer. The optional arguments MINIBUF and ALL-FRAMES specify the set of windows to consider. See `walk-windows' for the precise meaning of these arguments. (defalias 'get-buffer-window-list #[(&optional buffer-or-name minibuf all-frames) "\204 p\202 \305!\203 \202 \306!\307\310\311 \f#\210 *\207" [buffer-or-name windows buffer minibuf all-frames bufferp get-buffer nil walk-windows #[(window) "\303! =\205 \nB\211\207" [window buffer windows window-buffer] 2]] 4 (#$ . 7997)]) #@63 Return t if WINDOW is the currently active minibuffer window. (defalias 'minibuffer-window-active-p #[(window) "\301 =\207" [window active-minibuffer-window] 2 (#$ . 8662)]) #@189 Return the number of visible windows. The optional argument MINIBUF specifies whether the minibuffer window shall be counted. See `walk-windows' for the precise meaning of this argument. (defalias 'count-windows #[(&optional minibuf) "\302\303\304 \"\210)\207" [count minibuf 0 walk-windows #[(w) "T\211\207" [count] 2]] 3 (#$ . 8844)]) #@298 Get a window split tree in our format. WINDOW-OR-FRAME must be nil, a frame, or a window. If it is nil, then the whole window split tree for `selected-frame' is returned. If it is a frame, then this is used instead. If it is a window, then the smallest tree containing that window is returned. (defalias 'bw-get-tree #[(&optional window-or-frame) "\203 \302!\204 \303!\204 \304\305\"\210\306!\211\205& \250?\205& \307 !)\207" [window-or-frame subtree framep windowp error "Not a frame or window: %s" bw-find-tree-sub bw-get-tree-1] 4 (#$ . 9193)]) (defalias 'bw-get-tree-1 #[(split) "\304!\203 \207@A@AA\303 \203 \305\202 \306B\307\310\n8B\311\312\n8B\313\nA@B\314\n@B\301\315\316 \"B\257+\207" [split childs edges dir windowp ver hor b 3 r 2 t l mapcar bw-get-tree-1] 9]) (defalias 'bw-find-tree-sub #[(window-or-frame &optional get-parent) "\305!\205 \305 !\205 \306 !\307\n!@\310\311\n\312\"GW\205. \203- \313 \f#\202. +\207" [window-or-frame window frame wt get-parent windowp window-frame window-tree 1 window-list 0 bw-find-tree-sub-1] 4]) (defalias 'bw-find-tree-sub-1 #[(tree win &optional get-parent) "\306!\204 \307\310\"\210 >\203 \n\203 \n\207 \207 AA\311\211 \203A \204A @ A\f\203! \f<\203! \312\f\n#\202! \250\203U \313U\203P \202V S\202V +\207" [win tree get-parent subtree child childs windowp error "Not a window: %s" nil bw-find-tree-sub-1 1] 4]) #@19 Left edge of OBJ. (defalias 'bw-l #[(obj) "\301!\203 \302!@\207\303\236A\207" [obj windowp window-edges l] 2 (#$ . 10619)]) #@18 Top edge of OBJ. (defalias 'bw-t #[(obj) "\301!\203\f \302!A@\207\303\236A\207" [obj windowp window-edges t] 2 (#$ . 10753)]) #@20 Right edge of OBJ. (defalias 'bw-r #[(obj) "\301!\203\f \302\303!8\207\304\236A\207" [obj windowp 2 window-edges r] 3 (#$ . 10888)]) #@21 Bottom edge of OBJ. (defalias 'bw-b #[(obj) "\301!\203\f \302\303!8\207\304\236A\207" [obj windowp 3 window-edges b] 3 (#$ . 11030)]) #@134 Return window split tree direction if OBJ. If OBJ is a window return 'both. If it is a window split tree then return its direction. (defalias 'bw-dir #[(obj) "9\203 \207\302!\203 \303\207\301\236A\211\304>\204 \305\306\"\210 )\207" [obj dir windowp both (hor ver both) error "Can't find dir in %s"] 4 (#$ . 11174)]) #@239 Return t if window split tree directions are equal. OBJ1 and OBJ2 should be either windows or window split trees in our format. The directions returned by `bw-dir' are compared and t is returned if they are `eq' or one of them is 'both. (defalias 'bw-eqdir #[(obj1 obj2) "\304!\304 !\211\n=\206 \305=\206 \n\305=*\207" [obj1 obj2 dir2 dir1 bw-dir both] 4 (#$ . 11507)]) #@53 Refresh the edge information of OBJ and return OBJ. (defalias 'bw-refresh-edges #[(obj) "\306!\204\225 \305\236A\307\211\310\211 \211 \311 \211 \203c @\f\312!V\2030 \312! \313!V\203> \313!\n\314!W\203L \314! \315!W\203Z \315!A\211\204 *\316\317\"\316\320\"\316\321\"\316\322\"\323\300\317\fB\"\210\323\300\320 B\"\210\323\300\321\nB\"\210\323\300\322 B\"\210-\207" [obj ob or ot ol childs windowp 1000 -1 nil bw-l bw-t bw-r bw-b delq l t r b add-to-list o #1=#:--cl-dolist-temp--] 6 (#$ . 11890)]) #@282 Make windows the same heights or widths in window split subtrees. When called non-interactively WINDOW-OR-FRAME may be either a window or a frame. It then balances the windows on the implied frame. If the parameter is a window only the corresponding window subtree is balanced. (defalias 'balance-windows #[(&optional window-or-frame) "\306!\307\211\211\211\310\307\311\" \211 \205Z \n \235?\205Z \n\203% \n B\312\313 \"\314!\315=\203= \316!\317!Z\314!\320=\203P \321!\322!Z\323 \f#\210\202 .\207" [window-or-frame windows last-sizes tried-sizes h w bw-get-tree nil window-list 0 mapcar #[(w) "\301!\207" [w window-edges] 2] bw-dir hor bw-r bw-l ver bw-b bw-t bw-balance-sub wt] 9 (#$ . 12440) nil]) #@138 Wrapper around `adjust-window-trailing-edge' with error checking. Arguments WINDOW, DELTA and HORIZONTAL are passed on to that function. (defalias 'bw-adjust-window #[(window delta horizontal) "\301!\302Y\205 \303\304\305\217\210\202 \207" [delta abs 1 err (byte-code "\303 \n#\210\304\303\207" [window delta horizontal adjust-window-trailing-edge 0] 4) ((error (byte-code "\301\245\301\207" [delta 2] 2)))] 3 (#$ . 13177)]) (defalias 'bw-balance-sub #[(wt w h) "\306! \204 \307!\310!Z\n\204 \311!\312!Z\313!\203Y \203= \307!\310!ZZ\211\314U\204< \315 \316#\210)\n\205\253 \n\311!\312!ZZ\211 \314U?\205W \315\f\317#)\207\305\236A \205q \320\321\"\203o G\202p \322\245 \n\205\206 \n\320\323\"\203\204 G\202\205 \322\245 \317 \211 \203\251 @\324#\210A\211\204\222 -\317\207" [wt w h dw dh childs bw-refresh-edges bw-r bw-l bw-b bw-t windowp 0 bw-adjust-window t nil bw-eqdir hor 1 ver bw-balance-sub cw ch c #1=#:--cl-dolist-temp--] 6]) #@147 Return t if WINDOW cannot be resized in DIRECTION. WINDOW defaults to the selected window. DIRECTION can be nil (i.e. any), `height' or `width'. (defalias 'window-fixed-size-p #[(&optional window direction) "r\303!q\210\304\301!\205 \205 \n\205 \n B\305\235?)\207" [window window-size-fixed direction window-buffer boundp ((height . width) (width . height))] 2 (#$ . 14172)]) #@137 Factor by which the window area should be over-estimated. This is used by `balance-windows-area'. Changing this globally has no effect. (defvar window-area-factor 1 (#$ . 14561)) (make-variable-buffer-local 'window-area-factor) #@136 Make all visible windows the same area (approximately). See also `window-area-factor' to change the relative size of specific buffers. (defalias 'balance-windows-area #[nil "\306\211\306\307\310\311\312\313\310\314\"\"\"\310\211 \315W\205T\nT \310 \211 \203 @\211 \316 !\317 !\2042 \320 !@\320 !@W \321\322 !\323 !\324\325\326 !\"#\321\322 !\323 !\324\325\326 !\"#Z\324\325\326 !\"\324\325\326 !\"]\245 \203\211 \322 !\322 !\\\202\221 \323 !\323 !\\ \245 !\327!!\203\254 \330_ \315_\245!\327!!\203\326 \327 !\204\326 \\ \245\211!\331V\204\320 !\332W\203\326 !\315\245!\327!!\203\345 \\\202\333 ! #\210 \320 !B\211 \"\f\235\204\"\fB\306\211), A\211 \204+ *\202 .\207" [unchanged carry round wins changelog next 0 delq nil mapcar #[(win) "\301!?\205 \207" [win window-fixed-size-p] 2] window-list nomini 2 next-window window-fixed-size-p window-edges * window-height window-width buffer-local-value window-area-factor window-buffer zerop 3 1 -1 bw-adjust-window win #1=#:--cl-dolist-temp-- horiz areadiff edgesize diff change] 10 (#$ . 14796) nil]) #@385 If non-nil, function to call to handle `display-buffer'. It will receive two args, the buffer and a flag which if non-nil means that the currently selected window is not acceptable. It should choose or create a window, display the specified buffer in it, and return the window. Commands such as `switch-to-buffer-other-window' and `find-file-other-window' work using this function. (custom-declare-variable 'display-buffer-function 'nil '(#$ . 15925) :type '(choice (const nil) (function :tag "function")) :group 'windows) #@2097 List of names of buffers that should be displayed specially. Displaying a buffer with `display-buffer' or `pop-to-buffer', if its name is in this list, displays the buffer in a way specified by `special-display-function'. `special-display-popup-frame' (the default for `special-display-function') usually displays the buffer in a separate frame made with the parameters specified by `special-display-frame-alist'. If `special-display-function' has been set to some other function, that function is called with the buffer as first, and nil as second argument. Alternatively, an element of this list can be specified as (BUFFER-NAME FRAME-PARAMETERS), where BUFFER-NAME is a buffer name and FRAME-PARAMETERS an alist of (PARAMETER . VALUE) pairs. `special-display-popup-frame' will interpret such pairs as frame parameters when it creates a special frame, overriding the corresponding values from `special-display-frame-alist'. As a special case, if FRAME-PARAMETERS contains (same-window . t) `special-display-popup-frame' displays that buffer in the selected window. If FRAME-PARAMETERS contains (same-frame . t), it displays that buffer in a window on the selected frame. If `special-display-function' specifies some other function than `special-display-popup-frame', that function is called with the buffer named BUFFER-NAME as first, and FRAME-PARAMETERS as second argument. Finally, an element of this list can be also specified as (BUFFER-NAME FUNCTION OTHER-ARGS). In that case, `special-display-popup-frame' will call FUNCTION with the buffer named BUFFER-NAME as first argument, and OTHER-ARGS as the second. If `special-display-function' specifies some other function, that function is called with the buffer named BUFFER-NAME as first, and the element's cdr as second argument. If this variable appears "not to work", because you added a name to it but the corresponding buffer is displayed in the selected window, look at the values of `same-window-buffer-names' and `same-window-regexps'. Those variables take precedence over this one. See also `special-display-regexps'. (custom-declare-variable 'special-display-buffer-names 'nil '(#$ . 16458) :type '(repeat (choice :tag "Buffer" :value #1="" (string :format "%v") (cons :tag "With parameters" :format "%v" :value (#1#) (string :format "%v") (repeat :tag "Parameters" (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))) (list :tag "With function" :format "%v" :value (#1#) (string :format "%v") (function :tag "Function") (repeat :tag "Arguments" (sexp))))) :group 'windows :group 'frames) #@2162 List of regexps saying which buffers should be displayed specially. Displaying a buffer with `display-buffer' or `pop-to-buffer', if any regexp in this list matches its name, displays it specially using `special-display-function'. `special-display-popup-frame' (the default for `special-display-function') usually displays the buffer in a separate frame made with the parameters specified by `special-display-frame-alist'. If `special-display-function' has been set to some other function, that function is called with the buffer as first, and nil as second argument. Alternatively, an element of this list can be specified as (REGEXP FRAME-PARAMETERS), where REGEXP is a regexp as above and FRAME-PARAMETERS an alist of (PARAMETER . VALUE) pairs. `special-display-popup-frame' will then interpret these pairs as frame parameters when creating a special frame for a buffer whose name matches REGEXP, overriding the corresponding values from `special-display-frame-alist'. As a special case, if FRAME-PARAMETERS contains (same-window . t) `special-display-popup-frame' displays buffers matching REGEXP in the selected window. (same-frame . t) in FRAME-PARAMETERS means to display such buffers in a window on the selected frame. If `special-display-function' specifies some other function than `special-display-popup-frame', that function is called with the buffer whose name matched REGEXP as first, and FRAME-PARAMETERS as second argument. Finally, an element of this list can be also specified as (REGEXP FUNCTION OTHER-ARGS). `special-display-popup-frame' will then call FUNCTION with the buffer whose name matched REGEXP as first, and OTHER-ARGS as second argument. If `special-display-function' specifies some other function, that function is called with the buffer whose name matched REGEXP as first, and the element's cdr as second argument. If this variable appears "not to work", because you added a name to it but the corresponding buffer is displayed in the selected window, look at the values of `same-window-buffer-names' and `same-window-regexps'. Those variables take precedence over this one. See also `special-display-buffer-names'. (custom-declare-variable 'special-display-regexps 'nil '(#$ . 19049) :type '(repeat (choice :tag "Buffer" :value #1="" (regexp :format "%v") (cons :tag "With parameters" :format "%v" :value (#1#) (regexp :format "%v") (repeat :tag "Parameters" (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))) (list :tag "With function" :format "%v" :value (#1#) (regexp :format "%v") (function :tag "Function") (repeat :tag "Arguments" (sexp))))) :group 'windows :group 'frames) #@382 Return non-nil if a buffer named BUFFER-NAME gets a special frame. More precisely, return t if `special-display-buffer-names' or `special-display-regexps' contain a string entry equaling or matching BUFFER-NAME. If `special-display-buffer-names' or `special-display-regexps' contain a list entry whose car equals or matches BUFFER-NAME, the return value is the cdr of that entry. (defalias 'special-display-p #[(buffer-name) "\303 ;?\206# \n\235\203 \304\202# \305 \n\"\211\203 A\202# \306\307\215)\207" [tmp buffer-name special-display-buffer-names nil t assoc found (byte-code "\306\211\203U \n@\211;\203* \306 \307 \310 \f#,\203N \311\312\307\"\210\202N :\203N @;\203N @ \306 \307 \310 \f#,\203N \311\312 A\"\210\nA\211\204 *\306\207" [special-display-regexps regexp #1=#:--cl-dolist-temp-- buffer-name start string nil t string-match throw found inhibit-changing-match-data] 5)] 3 (#$ . 21699)]) #@542 Function to call for displaying special buffers. This function is called with two arguments - the buffer and, optionally, a list - and should return a window displaying that buffer. The default value usually makes a separate frame for the buffer using `special-display-frame-alist' to specify the frame parameters. See the definition of `special-display-popup-frame' for how to specify such a function. A buffer is special when its name is either listed in `special-display-buffer-names' or matches a regexp in `special-display-regexps'. (custom-declare-variable 'special-display-function ''special-display-popup-frame '(#$ . 22632) :type 'function :group 'frames) #@471 List of names of buffers that should appear in the "same" window. `display-buffer' and `pop-to-buffer' show a buffer whose name is on this list in the selected rather than some other window. An element of this list can be a cons cell instead of just a string. In that case, the cell's car must be a string specifying the buffer name. This is for compatibility with `special-display-buffer-names'; the cdr of the cons cell is ignored. See also `same-window-regexps'. (custom-declare-variable 'same-window-buffer-names 'nil '(#$ . 23307) :type '(repeat (string :format "%v")) :group 'windows) #@490 List of regexps saying which buffers should appear in the "same" window. `display-buffer' and `pop-to-buffer' show a buffer whose name matches a regexp on this list in the selected rather than some other window. An element of this list can be a cons cell instead of just a string. In that case, the cell's car must be a regexp matching the buffer name. This is for compatibility with `special-display-regexps'; the cdr of the cons cell is ignored. See also `same-window-buffer-names'. (custom-declare-variable 'same-window-regexps 'nil '(#$ . 23909) :type '(repeat (regexp :format "%v")) :group 'windows) #@307 Return non-nil if a buffer named BUFFER-NAME would be shown in the "same" window. This function returns non-nil if `display-buffer' or `pop-to-buffer' would show a buffer named BUFFER-NAME in the selected rather than (as usual) some other window. See `same-window-buffer-names' and `same-window-regexps'. (defalias 'same-window-p #[(buffer-name) ";?\206 \235\206 \302 \"\206 \303\304\215\206 \305\207" [buffer-name same-window-buffer-names assoc found (byte-code "\306\211\203A \n@\211;\203 \307 \"\2045 :\203: @;\203: @ \306 \310 \307 \f#,\203: \311\312\310\"\210\nA\211\204 *\306\207" [same-window-regexps regexp #1=#:--cl-dolist-temp-- buffer-name start string nil string-match t throw found inhibit-changing-match-data] 5) nil] 3 (#$ . 24525)]) #@233 Whether `display-buffer' should make a separate frame. If nil, never make a seperate frame. If the value is `graphic-only', make a separate frame on graphic displays only. Any other non-nil value means always make a separate frame. (custom-declare-variable 'pop-up-frames 'nil '(#$ . 25305) :type '(choice (const :tag "Never" nil) (const :tag "On graphic displays only" graphic-only) (const :tag "Always" t)) :group 'windows) #@130 Non-nil means `display-buffer' should reuse frames. If the buffer in question is already displayed in a frame, raise that frame. (custom-declare-variable 'display-buffer-reuse-frames 'nil '(#$ . 25738) :type 'boolean :version "21.1" :group 'windows) #@58 Non-nil means `display-buffer' should make a new window. (custom-declare-variable 'pop-up-windows 't '(#$ . 25994) :type 'boolean :group 'windows) #@1260 Function called by `display-buffer' routines to split a window. This function is called with a window as single argument and is supposed to split that window and return the new window. If the window can (or shall) not be split, it is supposed to return nil. The default is to call the function `split-window-sensibly' which tries to split the window in a way which seems most suitable. You can customize the options `split-height-threshold' and/or `split-width-threshold' in order to have `split-window-sensibly' prefer either vertical or horizontal splitting. If you set this to any other function, bear in mind that the `display-buffer' routines may call this function two times. The argument of the first call is the largest window on its frame. If that call fails to return a live window, the function is called again with the least recently used window as argument. If that call fails too, `display-buffer' will use an existing window to display its buffer. The window selected at the time `display-buffer' was invoked is still selected when this function is called. Hence you can compare the window argument with the value of `selected-window' if you intend to split the selected window instead or if you do not want to split the selected window. (custom-declare-variable 'split-window-preferred-function ''split-window-sensibly '(#$ . 26149) :type 'function :version "23.1" :group 'windows) #@397 Minimum height for splitting windows sensibly. If this is an integer, `split-window-sensibly' may split a window vertically only if it has at least this many lines. If this is nil, `split-window-sensibly' is not allowed to split a window vertically. If, however, a window is the only window on its frame, `split-window-sensibly' may split it vertically disregarding the value of this variable. (custom-declare-variable 'split-height-threshold '80 '(#$ . 27560) :type '(choice (const nil) (integer :tag "lines")) :version "23.1" :group 'windows) #@257 Minimum width for splitting windows sensibly. If this is an integer, `split-window-sensibly' may split a window horizontally only if it has at least this many columns. If this is nil, `split-window-sensibly' is not allowed to split a window horizontally. (custom-declare-variable 'split-width-threshold '160 '(#$ . 28114) :type '(choice (const nil) (integer :tag "columns")) :version "23.1" :group 'windows) #@1068 Return non-nil if `split-window-sensibly' may split WINDOW. Optional argument HORIZONTAL nil or omitted means check whether `split-window-sensibly' may split WINDOW vertically. HORIZONTAL non-nil means check whether WINDOW may be split horizontally. WINDOW may be split vertically when the following conditions hold: - `window-size-fixed' is either nil or equals `width' for the buffer of WINDOW. - `split-height-threshold' is an integer and WINDOW is at least as high as `split-height-threshold'. - When WINDOW is split evenly, the emanating windows are at least `window-min-height' lines tall and can accommodate at least one line plus - if WINDOW has one - a mode line. WINDOW may be split horizontally when the following conditions hold: - `window-size-fixed' is either nil or equals `height' for the buffer of WINDOW. - `split-width-threshold' is an integer and WINDOW is at least as wide as `split-width-threshold'. - When WINDOW is split evenly, the emanating windows are at least `window-min-width' or two (whichever is larger) columns wide. (defalias 'window-splittable-p #[(window &optional horizontal) "\306!\205J r\307!q\210 \203) \n\310>\205I \247\205I \311! \f\312]\312_]Y\202I \n\313>\205I \247\205I \314! \203C \312\202D \315]\312_]Y)\207" [window horizontal window-size-fixed split-width-threshold window-min-width split-height-threshold window-live-p window-buffer (nil height) window-width 2 (nil width) window-height 1 window-min-height mode-line-format] 4 (#$ . 28531)]) #@1525 Split WINDOW in a way suitable for `display-buffer'. If `split-height-threshold' specifies an integer, WINDOW is at least `split-height-threshold' lines tall and can be split vertically, split WINDOW into two windows one above the other and return the lower window. Otherwise, if `split-width-threshold' specifies an integer, WINDOW is at least `split-width-threshold' columns wide and can be split horizontally, split WINDOW into two windows side by side and return the window on the right. If this can't be done either and WINDOW is the only window on its frame, try to split WINDOW vertically disregarding any value specified by `split-height-threshold'. If that succeeds, return the lower window. Return nil otherwise. By default `display-buffer' routines call this function to split the largest or least recently used window. To change the default customize the option `split-window-preferred-function'. You can enforce this function to not split WINDOW horizontally, by setting (or binding) the variable `split-width-threshold' to nil. If, in addition, you set `split-height-threshold' to zero, chances increase that this function does split WINDOW vertically. In order to not split WINDOW vertically, set (or bind) the variable `split-height-threshold' to nil. Additionally, you can set `split-width-threshold' to zero to make a horizontal split more likely to occur. Have a look at the function `window-splittable-p' if you want to know how `split-window-sensibly' determines whether WINDOW can be split. (defalias 'split-window-sensibly #[(window) "\304!\203 \305 \306\307\310 \"r\311\216\312\313\"\210\314 ,\206i \304\315\"\203; \305 \306\316\310 \"r\317\216\312\313\"\210\320 ,\206i \321\322!!=\205i \323!?\205i \324\304!\205h \305 \306\325\310 \"r\326\216\312\313\"\210\314 ,)\207" [window save-selected-window-alist save-selected-window-window split-height-threshold window-splittable-p selected-window mapcar #[#1=(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #2=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord split-window-vertically t #[#1# "\301!D\207" [frame frame-selected-window] 3] ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #3=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) split-window-horizontally frame-root-window window-frame window-minibuffer-p 0 #[#1# "\301!D\207" [frame frame-selected-window] 3] ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #4=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5))] 4 (#$ . 30058)]) #@128 Try to split WINDOW. Return value returned by `split-window-preferred-function' if it represents a live window, nil otherwise. (defalias 'window--try-to-split-window #[(window) "\302!\205 \303\304!\305\"?\205 \306\307\310\217\302 !\205 )\207" [window new-window window-live-p frame-parameter window-frame unsplittable nil (funcall split-window-preferred-function window) ((error))] 3 (#$ . 33290)]) #@53 Return FRAME if it can be used to display a buffer. (defalias 'window--frame-usable-p #[(frame) "\302!\205 \303!\304 !\205 \305 !?\205 )\207" [frame window frame-live-p frame-root-window window-live-p window-minibuffer-p] 2 (#$ . 33702)]) #@245 If non-nil `display-buffer' will try to even window heights. Otherwise `display-buffer' will leave the window configuration alone. Heights are evened only when `display-buffer' chooses a window that appears above or below the selected window. (custom-declare-variable 'even-window-heights 't '(#$ . 33955) :type 'boolean :group 'windows) #@195 Even heights of WINDOW and selected window. Do this only if these windows are vertically adjacent to each other, `even-window-heights' is non-nil, and the selected window is higher than WINDOW. (defalias 'window--even-window-heights #[(window) "\205a \305 =?\205a \306\305 !?\205a \307\305 !\307 !V\205a \310 !\310\305 !=\205a \311\305 !\311 !\211@\n@U\205V \312 8\312\n8U\205V A@\313\n8U\206V \313 8\nA@U*\205a \314 \315\316\317\217)\207" [even-window-heights window win-edges sel-edges window-min-height selected-window window-minibuffer-p window-height window-frame window-edges 2 3 1 nil (byte-code "\301\302!\302 Z\303\245!\207" [window enlarge-window window-height 2] 3) ((error))] 4 (#$ . 34301)]) #@85 Raise the frame containing WINDOW. Do not raise the selected frame. Return WINDOW. (defalias 'window--display-buffer-1 #[(window) "\303!\304 !\211\203' \305 =\204' \306\307 !\203# \303\310 !=\204' \311 !\210*\207" [window frame visible window-frame frame-visible-p selected-frame minibuffer-window-active-p selected-window minibuffer-selected-window raise-frame] 4 (#$ . 35018)]) #@69 Display BUFFER in WINDOW and make its frame visible. Return WINDOW. (defalias 'window--display-buffer-2 #[(buffer window) "\302!\205 \303 !\205 \304 \"\210\305 !\207" [buffer window buffer-live-p window-live-p set-window-buffer window--display-buffer-1] 3 (#$ . 35411)]) #@1110 Make buffer BUFFER-OR-NAME appear in some window but don't select it. BUFFER-OR-NAME must be a buffer or the name of an existing buffer. Return the window chosen to display BUFFER-OR-NAME or nil if no such window is found. Optional argument NOT-THIS-WINDOW non-nil means display the buffer in a window other than the selected one, even if it is already displayed in the selected window. Optional argument FRAME specifies which frames to investigate when the specified buffer is already displayed. If the buffer is already displayed in some window on one of these frames simply return that window. Possible values of FRAME are: `visible' - consider windows on all visible frames. 0 - consider windows on all visible or iconified frames. t - consider windows on all frames. A specific frame - consider windows on that frame only. nil - consider windows on the selected frame (actually the last non-minibuffer frame) only. If, however, either `display-buffer-reuse-frames' or `pop-up-frames' is non-nil (non-nil and not graphic-only on a text-only terminal), consider all visible or iconified frames. (defalias 'display-buffer #[(buffer-or-name &optional not-this-window frame) "\206 \306\307 !\206 \310 ?\311\n!\203 \n\202 \312\n!\313 ! \314=\203, \315 \202- )\316\317 !\206: \316\320 ! *\321 +\322 !\204L \323\324 \"\202\235,\203Y , \"\202\235\204m \325\307 ! =\203m \326\307 !\202\235 \203 \327\f!\203 \330 \307 \"\202\235-\206\231 )\204\223 .\204\223 \320 \204\227 \331\202\231 \320 /\332\333\215\211+)\203\254 \326+!\202\2350\203\312 \334\f!\211 1\205\306 0 1<\205\305 1\")\206\235)\204\324 *\204\337 \330 \3352 !\"\202\2353\203*\336*\337\"\203 *\317 =\203*\320 \211*\203*\316*!\203*\336*\337\"\204*\340\341*\342\"!\206 \340\343*\342\"!\211+\203*\330 +\"\206\235\205>\306 ?\205>\344\307 \342\"\205>\307 4\345\216\343*!\206\214\346 \347\" 5\205X5\307 =?\205^5)\206\214\341\347!\206\214\346 \331\" 5\205w5\307 =?\205}5)\206\214\341\331!\206\214\3352 !\211+*\205\235\350+!\210\330 +\".\207" [not-this-window can-use-selected-window buffer-or-name buffer name-of-buffer pop-up-frames window-dedicated-p selected-window window-minibuffer-p bufferp get-buffer buffer-name graphic-only display-graphic-p window--frame-usable-p selected-frame last-nonminibuffer-frame nil buffer-live-p error "No such buffer %s" window-buffer window--display-buffer-1 same-window-p window--display-buffer-2 0 found (byte-code "\305\306 #\307\211\203& @\f\204 \310 \n=\204 \311\312\n\"\210 A\211\204\f *\307\207" [buffer frames window #1=#:--cl-dolist-temp-- can-use-selected-window get-buffer-window-list nomini nil selected-window throw found] 5) special-display-p frame-selected-window frame-parameter unsplittable window--try-to-split-window get-largest-window t get-lru-window set-window-dedicated-p ((byte-code "\301!\203 \302\303\"\210\303\207" [window-to-undedicate window-live-p set-window-dedicated-p nil] 3)) get-buffer-window visible window--even-window-heights use-pop-up-frames frame-to-use window-to-use display-buffer-function frame display-buffer-reuse-frames frames special-display-function pars pop-up-frame-function pop-up-windows window-to-undedicate window] 5 (#$ . 35694) "BDisplay buffer:\nP"]) #@1012 Select buffer BUFFER-OR-NAME in some window, preferably a different one. BUFFER-OR-NAME may be a buffer, a string (a buffer name), or nil. If BUFFER-OR-NAME is a string not naming an existent buffer, create a buffer with that name. If BUFFER-OR-NAME is nil, choose some other buffer. If `pop-up-windows' is non-nil, windows can be split to display the buffer. If optional second arg OTHER-WINDOW is non-nil, insist on finding another window even if the specified buffer is already visible in the selected window, and ignore `same-window-regexps' and `same-window-buffer-names'. If the window to show BUFFER-OR-NAME is not on the selected frame, raise that window's frame and give it input focus. This function returns the buffer it switched to. This uses the function `display-buffer' as a subroutine; see the documentation of `display-buffer' for additional customization information. Optional third arg NORECORD non-nil means do not put this buffer at the front of the list of recently selected ones. (defalias 'pop-to-buffer #[(buffer-or-name &optional other-window norecord) "\204\n \306p!\202 \307!\206 \310!\311 !\210 )\312 \313 \314\211 \211 q\210\315\"\211 =\204J \316 \"\210\317 !\211\f=\204J \320\n!\210-\207" [buffer-or-name buf new-frame new-window old-frame old-window other-buffer get-buffer get-buffer-create set-buffer-major-mode selected-window selected-frame nil display-buffer select-window window-frame select-frame-set-input-focus buffer other-window norecord] 6 (#$ . 39001)]) #@414 If non-nil, \[split-window-vertically] keeps the original point in both children. This is often more convenient for editing. If nil, adjust point in each of the two windows to minimize redisplay. This is convenient on slow terminals, but point can move strangely. This option applies only to `split-window-vertically' and functions that call it. `split-window' always keeps the original point in both children. (custom-declare-variable 'split-window-keep-point 't '(#$ . 40535) :type 'boolean :group 'windows) #@957 Split selected window into two windows, one above the other. The upper window gets SIZE lines and the lower one gets the rest. SIZE negative means the lower window gets -SIZE lines and the upper one the rest. With no argument, split windows equally or close to it. Both windows display the same buffer, now current. If the variable `split-window-keep-point' is non-nil, both new windows will get the same value of point as the selected window. This is often more convenient for editing. The upper window is the selected window. Otherwise, we choose window starts so as to minimize the amount of redisplay; this is convenient on slow terminals. The new selected window is the one that the current value of point appears in. The value of point can change if the text around point is hidden by the new mode line. Regardless of the value of `split-window-keep-point', the upper window is the original one and the return value is the new, lower window. (defalias 'split-window-vertically #[(&optional size) "\306 `\205\n \307!\310\211\211\211 \203% \311W\203% \312 \\\313\310\"\204\207 \212\314 q\210\315 b\210\316\312 !\317\n`\"\210`\320\n!V\203O \321\n`\"\210 \312 U\203\\ \322\316\323!\210`)\f\203p `X\203p \321 S\"\210\f\203\207 \315\n! X\203\207 \321\n \"\203\207 \324\n!\210\325\n\".\207" [size bottom new-window moved moved-by-window-height old-point selected-window prefix-numeric-value nil 0 window-height split-window window-buffer window-start vertical-motion set-window-start window-point set-window-point t -1 select-window split-window-save-restore-data old-window split-window-keep-point] 7 (#$ . 41054) "P"]) (defalias 'split-window-save-restore-data #[(new-window old-window) "r\305 q\210\203 \n\236\211\203 \f A@\306BB\nB)\f)\207" [view-mode old-window view-return-to-alist old-info new-window window-buffer t] 4]) #@442 Split selected window into two windows side by side. The selected window becomes the left one and gets SIZE columns. SIZE negative means the right window gets -SIZE lines. SIZE includes the width of the window's scroll bar; if there are no scroll bars, it includes the width of the divider column to the window's right, if any. SIZE omitted or nil means split window equally. The selected window remains selected. Return the new window. (defalias 'split-window-horizontally #[(&optional size) "\302 \205 \303!\203 \304W\203 \305 \\\306\307\310\311# \"*\207" [size old-window selected-window prefix-numeric-value 0 window-width split-window-save-restore-data split-window nil t] 5 (#$ . 42929) "P"]) #@407 Set the height in lines of the text display area of WINDOW to HEIGHT. HEIGHT doesn't include the mode line or header line, if any, or any partial-height lines in the text display area. Note that the current implementation of this function cannot always set the height exactly, but attempts to be conservative, by allocating more lines than are actually needed in the case where some error may be present. (defalias 'set-window-text-height #[(window height) "\306 !Z\307\n!?\2058 \310^ \2034 \311 =\2044 \311 \312\313\314 \" r\315\216\316 \317\"\210\320\n!,\2027 \320\n!))\207" [height window delta window-min-height save-selected-window-alist save-selected-window-window window-text-height zerop 2 selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord enlarge-window] 4 (#$ . 43651)]) #@116 Make selected window COLUMNS wider. Interactively, if no argument is given, make selected window one column wider. (defalias 'enlarge-window-horizontally #[(columns) "\301\302\"\207" [columns enlarge-window t] 3 (#$ . 44809) "p"]) #@122 Make selected window COLUMNS narrower. Interactively, if no argument is given, make selected window one column narrower. (defalias 'shrink-window-horizontally #[(columns) "\301\302\"\207" [columns shrink-window t] 3 (#$ . 45048) "p"]) #@78 Return the height (in screen lines) of the buffer that WINDOW is displaying. (defalias 'window-buffer-height #[(window) "r\301!q\210\302\303edm$])\207" [window window-buffer 1 count-screen-lines] 6 (#$ . 45290)]) #@802 Return the number of screen lines in the region. The number of screen lines may be different from the number of actual lines, due to line breaking, display table, etc. Optional arguments BEG and END default to `point-min' and `point-max' respectively. If region ends with a newline, ignore it unless optional third argument COUNT-FINAL-NEWLINE is non-nil. The optional fourth argument WINDOW specifies the window used for obtaining parameters such as width, horizontal scrolling, and so on. The default is to use the selected window's parameters. Like `vertical-motion', `count-screen-lines' always uses the current buffer, regardless of which buffer is displayed in WINDOW. This makes possible to use `count-screen-lines' in any buffer, whether or not it is currently displayed in some window. (defalias 'count-screen-lines #[(&optional beg end count-final-newline window) "\204 e \204\f d U\203 \304\207\212\214~\210 ^\n\2040 ]Sf\305U\2030 ]S\2023 ]}\210eb\210\306\307 \"T*\207" [beg end count-final-newline window 0 10 vertical-motion buffer-size] 3 (#$ . 45512)]) #@649 Adjust height of WINDOW to display its buffer's contents exactly. WINDOW defaults to the selected window. Optional argument MAX-HEIGHT specifies the maximum height of the window and defaults to the maximum permissible height of a window on WINDOW's frame. Optional argument MIN-HEIGHT specifies the minimum height of the window and defaults to `window-min-height'. Both, MAX-HEIGHT and MIN-HEIGHT are specified in lines and include the mode line and header line, if any. Return non-nil if height was orderly adjusted, nil otherwise. Caution: This function can delete WINDOW and/or other windows when their height shrinks to less than MIN-HEIGHT. (defalias 'fit-window-to-buffer #[(&optional window max-height min-height) "p\305\306 \307\310\311 \"r\312\216\313\f\206 \306 \211\314\"\210\315 q\210\305\316\317\217\210,\320 !\203/ q\210*\207" [value old-buffer save-selected-window-alist save-selected-window-window window nil selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord window-buffer (byte-code "\206 \306]\307\310 !\311 ^ \206 \n\n^\312\313 \306]\314 \204* \f\203* \306\202+ \315 \2033 \306\2024 \315# ^] \307 \307\310 !U\203I \315\202N \307 Z ^m\203h n\203h o\204h \316\317 S\"\210\320!\204t \321!\210\322!\203\303 \212db\210n\203\212 o\204\212 \323u\210\203\222 \315y\210`) \324\315\"\210 W\203\277 \307 U\203\277 \325!\204\277 \321\306!\210T\211\202\236 )\326 .\306\207" [min-height window-min-height max-window-height max-height mode-line-format header-line-format 1 window-height frame-root-window frame-height + count-screen-lines window-minibuffer-p 0 set-window-point window-point zerop enlarge-window window-live-p -1 set-window-vscroll pos-visible-in-window-p t desired-height delta window truncate-lines end value] 5) ((error)) buffer-live-p] 4 (#$ . 46607) nil]) #@107 Return t if WINDOW can be shrunk without shrinking other windows. WINDOW defaults to the selected window. (defalias 'window-safely-shrinkable-p #[(&optional window) "\304 \305\306\307 \"r\310\216\311\n\206 \304 \312\"\210\313 \314 8\314\313\315 !8U\206. @\313\316 !@U-\207" [save-selected-window-alist save-selected-window-window window edges selected-window mapcar #[(frame) "\301!D\207" [frame frame-selected-window] 3] frame-list ((byte-code "\305\211\2030 \n@\306 @!\203) \307 \211A@)!\203) \310 @ \211A@)\311#\210\nA\211\204 *\307\f!\203< \312\f\311\"\210\305\207" [save-selected-window-alist elt #1=#:--cl-dolist-temp-- x save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) select-window norecord window-edges 2 previous-window next-window] 4 (#$ . 48826)]) #@593 Shrink height of WINDOW if its buffer doesn't need so many lines. More precisely, shrink WINDOW vertically to be as small as possible, while still showing the full contents of its buffer. WINDOW defaults to the selected window. Do not shrink to less than `window-min-height' lines. Do nothing if the buffer contains more lines than the present window height, or if some of the window's contents are scrolled out of view, or if shrinking this window would also shrink another window, or if the window is the only window of its frame. Return non-nil if the window was shrunk, nil otherwise. (defalias 'shrink-window-if-larger-than-buffer #[(&optional window) "\204 \305 \306!\307 \310\"\311!\312 !=?\205e \313!\205e \314e\"\205e \n\315=?\205e \n\203_ \316 !\211 ?\206[ \306\f!=?\206[ \317 8\311\f!A@W\206[ A@\307 \320\"V)\205e \321\322!\"+\207" [window frame mini edges mini-window selected-window window-frame frame-parameter minibuffer window-edges frame-root-window window-safely-shrinkable-p pos-visible-in-window-p only minibuffer-window 3 menu-bar-lines fit-window-to-buffer window-height] 5 (#$ . 49673) nil]) #@57 Kill the current buffer and delete the selected window. (defalias 'kill-buffer-and-window #[nil "\303 p\304\305\216\306\307\310\211$\210\311p!\205 \303 \n=\205 \312 ,\207" [delete-window-hook buffer-to-kill window-to-delete selected-window #[nil "\300\301\302\217\207" [nil (delete-window) ((error))] 3] ((byte-code "\300\301\302\217\207" [nil (byte-code "rq\210\302\303 \304#\210)\302\207" [buffer-to-kill delete-window-hook remove-hook kill-buffer-hook t] 4) ((error))] 3)) add-hook kill-buffer-hook t kill-buffer delete-window] 5 (#$ . 50812) nil]) #@482 Quit WINDOW and bury its buffer. With a prefix argument, kill the buffer instead. WINDOW defaults to the selected window. If WINDOW is non-nil, dedicated, or a minibuffer window, delete it and, if it's alone on its frame, its frame too. Otherwise, or if deleting WINDOW fails in any of the preceding cases, display another buffer in WINDOW using `switch-to-buffer'. Optional argument KILL non-nil means kill WINDOW's buffer. Otherwise, bury WINDOW's buffer, see `bury-buffer'. (defalias 'quit-window #[(&optional kill window) "\304!\204 \305!\204 \306!\2037 \206 \307 \310!\311\n!=\203/ \312 \n\"\210\2023 \313!\210*\202; \314\315!\210 \203E \316 !\202H \317 !)\207" [window buffer frame kill window-buffer window-minibuffer-p window-dedicated-p selected-window window-frame frame-root-window delete-windows-on delete-window switch-to-buffer nil kill-buffer bury-buffer] 3 (#$ . 51378) "P"]) #@94 Indicates the last recenter operation performed. Possible values: `top', `middle', `bottom'. (defvar recenter-last-op nil (#$ . 52294)) #@589 Move current line to window center, top, and bottom, successively. With no prefix argument, the first call redraws the frame and centers point vertically within the window. Successive calls scroll the window, placing point on the top, bottom, and middle consecutively. The cycling order is middle -> top -> bottom. A prefix argument is handled like `recenter': With numeric prefix ARG, move current line to window-line ARG. With plain `C-u', move current line to window center. Top and bottom destinations are actually `scroll-margin' lines the from true window top and bottom. (defalias 'recenter-top-bottom #[(&optional arg) "\203 \306!\207 \n=\203 \307=\203 \310\306 \207\311\f]\312\313 \314\245!^ \310=\2032 \315\306 !\202? \315=\205? \307\306\316 Z!)\207" [arg this-command last-command recenter-last-op scroll-margin this-scroll-margin recenter bottom middle 0 truncate window-body-height 4.0 top -1] 4 (#$ . 52437) "P"]) (define-key global-map [12] 'recenter-top-bottom) #@45 Timer used by delayed window autoselection. (defvar mouse-autoselect-window-timer nil (#$ . 53442)) #@63 Last mouse position recorded by delayed window autoselection. (defvar mouse-autoselect-window-position nil (#$ . 53548)) #@55 Last window recorded by delayed window autoselection. (defvar mouse-autoselect-window-window nil (#$ . 53675)) #@252 When non-nil, special state of delayed window autoselection. Possible values are `suspend' (suspend autoselection after a menu or scrollbar interaction) and `select' (the next invocation of 'handle-select-window' shall select the window immediately). (defvar mouse-autoselect-window-state nil (#$ . 53793)) #@92 Cancel delayed window autoselection. Optional argument FORCE means cancel unconditionally. (defalias 'mouse-autoselect-window-cancel #[(&optional force) "?\2054 \306>\2064 \307=\2054 \310\n\211:\203* \311 8:\203$ \311\202% \312 8\2020 \313 `\314\315F)8\316>?\205H \317\320 !\203D \321 !\210\322\323\324\"\207" [force this-command last-input-event event mouse-autoselect-window-state mouse-autoselect-window-timer (handle-select-window handle-switch-frame) scroll-bar-toolkit-scroll 4 2 1 selected-window (0 . 0) 0 (handle end-scroll) nil timerp cancel-timer remove-hook pre-command-hook mouse-autoselect-window-cancel] 6 (#$ . 54106)]) #@274 Start delayed window autoselection. MOUSE-POSITION is the last position where the mouse was seen as returned by `mouse-position'. Optional argument WINDOW non-nil denotes the window where the mouse was seen. Optional argument SUSPEND non-nil means suspend autoselection. (defalias 'mouse-autoselect-window-start #[(mouse-position &optional window suspend) "\n\203 \n\f\205 \304\306\307\n!\310\311#\211 \207" [mouse-position mouse-autoselect-window-position window mouse-autoselect-window-window suspend mouse-autoselect-window-state run-at-time abs nil mouse-autoselect-window-select mouse-autoselect-window mouse-autoselect-window-timer] 4 (#$ . 54754)]) #@260 Select window with delayed window autoselection. If the mouse position has stabilized in a non-selected window, select that window. The minibuffer window is selected only if the minibuffer is active. This function is run by `mouse-autoselect-window-timer'. (defalias 'mouse-autoselect-window-select #[nil "\300\301\302\217\207" [nil (byte-code "\300 \306\307\310\217\311 \204 \203! \312A \"\204! \313\306\314#\202\227 \n\315=\203- \313!\202\227 \203w \316 =\204w \247\203O \317V\203I \f=\204O \232\203w \320 !\203\\ \321 =\203w \322\314!\210\320\316 !?\205\227 \323\324 CDB\211\202\227 \203\202 \316 =\204\215 \247\203\215 \232\203\223 \322\314!\202\227 \313 \"*\207" [mouse-position window mouse-autoselect-window-state mouse-autoselect-window mouse-autoselect-window-window mouse-autoselect-window-position nil (byte-code "\302\211A@)\211AA)@#\207" [mouse-position x window-at] 5) ((error)) menu-or-popup-active-p coordinates-in-window-p mouse-autoselect-window-start t suspend selected-window 0 window-minibuffer-p active-minibuffer-window mouse-autoselect-window-cancel select select-window unread-command-events] 4) ((error))] 3 (#$ . 55427)]) #@30 Handle select-window events. (defalias 'handle-select-window #[(event) "\211:\203 A@\202 \305 `\306\307F)\211@)\310\n!?\206U \311\305 !\206U \311\n!\2034 \312\n!?\206U \247\205U \313 !?\205U \f\314=?\205U \315\316!\210\317\320 \n\"\210\321\322\315\"?\205f \203c \323\324\325!\210\326\n!)\207" [event position window mouse-autoselect-window mouse-autoselect-window-state selected-window (0 . 0) 0 window-live-p window-minibuffer-p minibuffer-window-active-p zerop select mouse-autoselect-window-cancel t mouse-autoselect-window-start mouse-position add-hook pre-command-hook nil run-hooks mouse-leave-buffer-hook select-window] 5 (#$ . 56615) "e"]) #@186 Delete the windows in the same column with WINDOW, but not WINDOW itself. This may be a useful alternative binding for \[delete-other-windows] if you often split windows horizontally. (defalias 'delete-other-windows-vertically #[(&optional window) "\206 \306 \307!\310\311\n\312\"\211=\204@ \307\n!\211 @ @U\203< \f\211 AA)@ \211 AA)@U\203< \n B)\202 \313\314 \",\207" [window edges w delenda e x selected-window window-edges nil next-window 1 mapc delete-window] 4 (#$ . 57280) nil]) #@317 Return non-nil if lines in WINDOW are specifically truncated due to its width. WINDOW defaults to the selected window. Return nil if WINDOW is not a partial-width window (regardless of the value of `truncate-lines'). Otherwise, consult the value of `truncate-partial-width-windows' for the buffer shown in WINDOW. (defalias 'truncated-partial-width-window-p #[(&optional window) "\204 \302 \303!?\205$ \304\305\306!\"\211\250\203\" \307! W\202# )\207" [window t-p-w-w selected-window window-full-width-p buffer-local-value truncate-partial-width-windows window-buffer window-width] 5 (#$ . 57785)]) (byte-code "\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302 \317\320#\207" [ctl-x-map ctl-x-4-map define-key "2" split-window-vertically "3" split-window-horizontally "}" enlarge-window-horizontally "{" shrink-window-horizontally "-" shrink-window-if-larger-than-buffer "+" balance-windows "0" kill-buffer-and-window] 4)
Close
