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 : isearch.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/isearch.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 "`isearch.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'isearch nil "Incremental search minor mode." :link '(emacs-commentary-link "isearch") :link '(custom-manual "(emacs)Incremental Search") :prefix "isearch-" :prefix "search-" :group 'matching) #@71 Non-nil means random control characters terminate incremental search. (custom-declare-variable 'search-exit-option 't '(#$ . 818) :type 'boolean :group 'isearch) #@250 Number of lines in slow search display windows. These are the short windows used during incremental search on slow terminals. Negative means put the slow search window at the top (normally it's at bottom) and the value is minus the number of lines. (custom-declare-variable 'search-slow-window-lines '1 '(#$ . 987) :type 'integer :group 'isearch) #@172 Highest terminal speed at which to use "slow" style incremental search. This is the style where a one-line window is created to show the line that the search has reached. (custom-declare-variable 'search-slow-speed '1200 '(#$ . 1341) :type 'integer :group 'isearch) #@334 If non-nil, upper case chars disable case fold searching. That is, upper and lower case chars must match exactly. This applies no matter where the chars come from, but does not apply to chars in regexps that are prefixed with `\'. If this value is `not-yanks', text yanked into the search string in Isearch mode is always downcased. (custom-declare-variable 'search-upper-case ''not-yanks '(#$ . 1614) :type '(choice (const :tag "off" nil) (const not-yanks) (other :tag "on" t)) :group 'isearch) #@211 If non-nil, do a nonincremental search instead if exiting immediately. Actually, `isearch-edit-string' is called to let you enter the search string, and RET terminates editing and does a nonincremental search. (custom-declare-variable 'search-nonincremental-instead 't '(#$ . 2117) :type 'boolean :group 'isearch) #@533 If non-nil, regular expression to match a sequence of whitespace chars. This applies to regular expression incremental search. When you put a space or spaces in the incremental regexp, it stands for this, unless it is inside of a regexp construct such as [...] or *, + or ?. You might want to use something like "[ \t\r\n]+" instead. In the Customization buffer, that is `[' followed by a space, a tab, a carriage return (control-M), a newline, and `]+'. When this is nil, each space you type matches literally, against one space. (custom-declare-variable 'search-whitespace-regexp '"\\s-+" '(#$ . 2438) :type '(choice (const :tag "Find Spaces Literally" nil) regexp) :group 'isearch) #@472 If t incremental search can match hidden text. A nil value means don't match invisible text. When the value is `open', if the text matched is made invisible by an overlay having an `invisible' property and that overlay has a property `isearch-open-invisible', then incremental search will show the contents. (This applies when using `outline.el' and `hideshow.el'.) See also `reveal-mode' if you want overlays to automatically be opened whenever point is in one of them. (custom-declare-variable 'search-invisible ''open '(#$ . 3131) :type '(choice (const :tag "Match hidden text" t) (const :tag "Open overlays" open) (const :tag "Don't match hidden text" nil)) :group 'isearch) #@333 If non-nil, re-hide an invisible match right away. This variable makes a difference when `search-invisible' is set to `open'. It means that after search makes some invisible text visible to show the match, it makes the text invisible again when the match moves. Ordinarily the text becomes invisible again at the end of the search. (custom-declare-variable 'isearch-hide-immediately 't '(#$ . 3817) :type 'boolean :group 'isearch) #@153 If non-nil, `isearch-resume' commands are added to the command history. This allows you to resume earlier Isearch sessions through the command history. (custom-declare-variable 'isearch-resume-in-command-history 'nil '(#$ . 4255) :type 'boolean :group 'isearch) #@62 Function(s) to call after starting up an incremental search. (defvar isearch-mode-hook nil (#$ . 4523)) #@165 Function(s) to call after terminating an incremental search. When these functions are called, `isearch-mode-end-hook-quit' is non-nil if the user quits the search. (defvar isearch-mode-end-hook nil (#$ . 4634)) #@77 Non-nil while running `isearch-mode-end-hook' if the user quits the search. (defvar isearch-mode-end-hook-quit nil (#$ . 4851)) #@79 Function to call to display the search prompt. If nil, use `isearch-message'. (defvar isearch-message-function nil (#$ . 4985)) #@183 Function to call to wrap the search when search is failed. If nil, move point to the beginning of the buffer for a forward search, or to the end of the buffer for a backward search. (defvar isearch-wrap-function nil (#$ . 5120)) #@99 Function to save a function restoring the mode-specific Isearch state to the search status stack. (defvar isearch-push-state-function nil (#$ . 5355)) #@306 Predicate that filters the search hits that would normally be available. Search hits that dissatisfy the predicate are skipped. The function has two arguments: the positions of start and end of text matched by the search. If this function returns nil, continue searching without stopping at this match. (defvar isearch-filter-predicate 'isearch-filter-visible (#$ . 5513)) #@34 List of search string sequences. (defvar search-ring nil (#$ . 5894)) #@53 List of regular expression search string sequences. (defvar regexp-search-ring nil (#$ . 5970)) #@71 Maximum length of search ring before oldest elements are thrown away. (custom-declare-variable 'search-ring-max '16 '(#$ . 6072) :type 'integer :group 'isearch) #@78 Maximum length of regexp search ring before oldest elements are thrown away. (custom-declare-variable 'regexp-search-ring-max '16 '(#$ . 6239) :type 'integer :group 'isearch) #@70 Index in `search-ring' of last string reused. It is nil if none yet. (defvar search-ring-yank-pointer nil (#$ . 6420)) #@77 Index in `regexp-search-ring' of last string reused. It is nil if none yet. (defvar regexp-search-ring-yank-pointer nil (#$ . 6545)) #@127 Non-nil if advancing or retreating in the search ring should cause search. Default value, nil, means edit the string instead. (custom-declare-variable 'search-ring-update 'nil '(#$ . 6685) :type 'boolean :group 'isearch) #@64 Non-nil means incremental search highlights the current match. (custom-declare-variable 'search-highlight 't '(#$ . 6912) :type 'boolean :group 'isearch) (byte-code "\301\302\303\304\305\302\305\306&\210\302B\307\302!\204 \310\302\211\"\210\301\311\312\313\314\315\305\302&\207" [current-load-list custom-declare-face isearch ((((class color) (min-colors 88) (background light)) (:background "magenta3" :foreground "lightskyblue1")) (((class color) (min-colors 88) (background dark)) (:background "palevioletred2" :foreground "brown4")) (((class color) (min-colors 16)) (:background "magenta4" :foreground "cyan1")) (((class color) (min-colors 8)) (:background "magenta4" :foreground "cyan1")) (t (:inverse-video t))) "Face for highlighting Isearch matches." :group basic-faces default-boundp set-default isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) :foreground "grey") (t (:inverse-video t))) "Face for highlighting failed part in Isearch echo-area message." :version "23.1"] 8) #@221 Controls the lazy-highlighting during incremental search. When non-nil, all text in the buffer matching the current search string is highlighted lazily (see `lazy-highlight-initial-delay' and `lazy-highlight-interval'). (custom-declare-variable 'isearch-lazy-highlight 't '(#$ . 8160) :type 'boolean :group 'lazy-highlight :group 'isearch) (custom-declare-group 'lazy-highlight nil "Lazy highlighting feature for matching strings." :prefix "lazy-highlight-" :version "21.1" :group 'isearch :group 'matching) #@156 Controls whether to remove extra highlighting after a search. If this is nil, extra highlighting can be "manually" removed with \[lazy-highlight-cleanup]. (custom-declare-variable 'lazy-highlight-cleanup 't '(#$ . 8675) :type 'boolean :group 'lazy-highlight) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias isearch-lazy-highlight-cleanup lazy-highlight-cleanup nil make-obsolete-variable "22.1"] 4) #@67 Seconds to wait before beginning to lazily highlight all matches. (custom-declare-variable 'lazy-highlight-initial-delay '0.25 '(#$ . 9101) :type 'number :group 'lazy-highlight) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias isearch-lazy-highlight-initial-delay lazy-highlight-initial-delay nil make-obsolete-variable "22.1"] 4) #@57 Seconds between lazily highlighting successive matches. (custom-declare-variable 'lazy-highlight-interval '0 '(#$ . 9458) :type 'number :group 'lazy-highlight) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias isearch-lazy-highlight-interval lazy-highlight-interval nil make-obsolete-variable "22.1"] 4) #@219 Maximum matches to highlight at a time (for `lazy-highlight'). Larger values may reduce Isearch's responsiveness to user input; smaller values make matches highlight slowly. A value of nil means highlight all matches. (custom-declare-variable 'lazy-highlight-max-at-a-time '20 '(#$ . 9788) :type '(choice (const :tag "All" nil) (integer :tag "Some")) :group 'lazy-highlight) (byte-code "\301\302\303\304#\210\305\302\303\306#\210\307\310\311\312\313\310\313\314&\210\315\316\317\310#\210\320B\321\320!\204, \322\320\310\"\210\301\316\320\304#\210\305\316\320\306#\207" [current-load-list defvaralias isearch-lazy-highlight-max-at-a-time lazy-highlight-max-at-a-time nil make-obsolete-variable "22.1" custom-declare-face lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) (((class color) (min-colors 16)) (:background "turquoise3")) (((class color) (min-colors 8)) (:background "turquoise3")) (t (:underline t))) "Face for lazy highlighting of matches other than the current one." :group basic-faces put isearch-lazy-highlight-face face-alias lazy-highlight-face default-boundp set-default] 8) #@64 Keymap for characters following the Help key for Isearch mode. (defvar isearch-help-map (byte-code "\302 \303\304\305#\210\303\306 !\307#\210\303\310\307#\210\303\311\307#\210\303\312\307#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210)\207" [map help-char make-sparse-keymap define-key [t] isearch-other-control-char char-to-string isearch-help-for-help [help] [f1] "?" "b" isearch-describe-bindings "k" isearch-describe-key "m" isearch-describe-mode "q" help-quit] 4) (#$ . 11021)) #@481 You have typed %THIS-KEY%, the help character. Type a Help option: (Type \<help-map>\[help-quit] to exit the Help command.) b Display all Isearch key bindings. k KEYS Display full documentation of Isearch key sequence. m Display documentation of Isearch mode. You can't type here other help keys available in the global help map, but outside of this help window when you type them in Isearch mode, they exit Isearch mode before displaying global help. (defalias 'isearch-help-for-help-internal-doc #[nil "\300\207" ["You have typed %THIS-KEY%, the help character. Type a Help option:\n(Type \\<help-map>\\[help-quit] to exit the Help command.)\n\nb Display all Isearch key bindings.\nk KEYS Display full documentation of Isearch key sequence.\nm Display documentation of Isearch mode.\n\nYou can't type here other help keys available in the global help map,\nbut outside of this help window when you type them in Isearch mode,\nthey exit Isearch mode before displaying global help."] 1 (#$ . 11548)]) #@15 Help command. (defalias 'isearch-help-for-help-internal #[nil "\306\307! \203 \310\311\"\210\312\313!\314 \f \315 :\316\211 ; <\316\211 = >\317\320\n\"\203: \321\322\323 \324\325O!\326\211\n$\327\216\316 ?\241\210\330 \331\332#\210\330 \333\334@\335\"#\210 \203z A\336\316!)=\334B=\"\203q \334B=\"==\324H>\202} \337>>\337=\204\224 >C=\204\224 >D>\203\"\340 ;\341\342!\210\343\344!\203\265 \345\346 !:=\204\265 \345\346 !<\316;\316E\326 F\347 \210\nc\210) \350 \210\f)eb\210>\351DC\352B\">\204\352 >\242\353=\204\352 =\354\232\203\"\316\355\356\217\210\326 A G\336\357\360\361d!\203\362\202\363\"!\211=\324H>*>\364=\203\315 \365\334 =\"\316=#\210\202\315 \310\362!\210><\203:>HBH\316\211;\202s\334 =\"\211 I\203p;\203R\366;!\210\316;\367I!\210<\205r<\315 =\204i\370<!\210\316\211<\202r\371 ). \207" [line-prompt three-step-help help-screen local-map minor-mode-map-alist new-minor-mode-map-alist substitute-command-keys "Type a help option: [bkm] or ?" message "%s" documentation isearch-help-for-help-internal-doc make-sparse-keymap selected-frame nil string-match "%THIS-KEY%" replace-match key-description this-command-keys 0 -1 t ((byte-code "\203 \304!\210 \203 \305 !\210\n\304\207" [config new-frame new-minor-mode-map-alist minor-mode-map-alist set-window-configuration iconify-frame] 2)) define-key [t] undefined [vertical-scroll-bar] lookup-key [vertical-scroll-bar] read-key-sequence 63 current-window-configuration switch-to-buffer-other-window "*Help*" fboundp make-frame window-frame selected-window erase-buffer help-mode append (63 22 32 127 delete backspace vertical-scroll-bar 134217846) switch-frame "\366" (byte-code "\242\302=\203 \303!\210\202) \304>\203 \305 \210\202) \306>\204& \307\232\203) \310 \210\302\207" [char key switch-frame handle-switch-frame (22 32) scroll-up (127 134217846 delete backspace) "\366" scroll-down] 2) ((error)) format "Type one of the options listed%s: " pos-visible-in-window-p "" ", or SPACE or DEL to scroll" vertical-scroll-bar command-execute set-window-configuration call-interactively iconify-frame ding prev-frame config new-frame key char isearch-help-map global-map overriding-local-map function-key-map help-char help-event-list buffer-read-only inhibit-read-only cursor-in-echo-area unread-command-events defn] 7 (#$ . 12609) nil]) #@28 Display Isearch help menu. (defalias 'isearch-help-for-help #[nil "\302\211\303 \210*\304 \207" [same-window-regexps same-window-buffer-names nil isearch-help-for-help-internal isearch-update] 2 (#$ . 14993) nil]) #@139 Show a list of all keys defined in Isearch mode, and their definitions. This is like `describe-bindings', but displays only Isearch keys. (defalias 'isearch-describe-bindings #[nil "\306\211\307 \306\310\311\312\313#\210\n) \313\306\211\223\210\314\220rq\210\315\316!\210\315\317\320!!)\221\321 !\2037 \322\f \"\210\306,\207" [same-window-regexps same-window-buffer-names list list-of-window-tuples list-of-frames help-window nil frame-list walk-windows #[(window) "\302!\303!\304!F B\211\207" [window list window-buffer window-start window-point] 5] no-mini t "*Help*" princ "Isearch Mode Bindings:\n" substitute-command-keys "\\{isearch-mode-map}" windowp help-window-setup help-window-point-marker standard-output] 5 (#$ . 15216) nil]) #@63 Display documentation of the function invoked by isearch key. (defalias 'isearch-describe-key #[nil "\302\211\303\304!\210*\305 \207" [same-window-regexps same-window-buffer-names nil call-interactively describe-key isearch-update] 2 (#$ . 15976) nil]) #@40 Display documentation of Isearch mode. (defalias 'isearch-describe-mode #[nil "\302\211\303\304!\210*\305 \207" [same-window-regexps same-window-buffer-names nil describe-function isearch-forward isearch-update] 2 (#$ . 16237) nil]) (defalias 'isearch-mode-help 'isearch-describe-mode) #@28 Keymap for `isearch-mode'. (defvar isearch-mode-map (byte-code "\305\306 \307A@!\204 \310\311!\210\312A@\313\314 B\315#\210\316\317\320#\210 \321W\2038 \316\322\323 \"\320#\210 T\211\202# \321\211\313W\203O \316\324 !\315#\210 T\211\202; \325 \316\326 !\n#\210\316\327\n#\210)\316\324 \330\"\331#\210\316\332\333#\210\316\334\335#\210\316\336\333#\210\316\337\335#\210\316\340\341#\210\316\342\343#\210 \344U\204\230 \310\345!\210\316\346\347#\210\316\350\347#\210\316\351\352#\210\316\353\354#\210\316\355\315#\210\316\356\315#\210\316\357\315#\210\316\360\361#\210\316\362\363#\210\316\364\365#\210\316\366\367#\210\316\370\f#\210\316\371\372#\210\316\373\374#\210\316\375\376#\210\316\377\201@ #\210\316\201A \201B #\210\316\201C \201B #\210\316\201D \201B #\210\316\201E \201B #\210\316\201F \201B #\210\316\201G \201B #\210\316\201H \201I #\210\316\201J \201K #\210\316\201L \201M #\210\316\201N \201B #\210\316\201O \201P #\210\316\201Q \201R #\210\316\201S \201T #\210\316\201U \201R #\210\316\201V \201W #\210\316\201X \201Y #\210\316\201Z \201[ #\210\316\201\\ \201] #\210\316\201^ \201_ #\210*\207" [map i meta-map meta-prefix-char isearch-help-map 0 make-keymap char-table-p error "The initialization of isearch-mode-map must be updated" set-char-table-range 256 max-char isearch-printing-char define-key [t] isearch-other-control-char 32 make-string 1 vector make-sparse-keymap char-to-string [escape] t isearch-other-meta-char "" isearch-repeat-forward "" isearch-repeat-backward "\223" "\222" "" isearch-delete-char "" isearch-abort 27 "Inconsistency in isearch.el" "" isearch-cancel [escape escape escape] "" isearch-quote-char " " isearch-exit "\n" " " [33554464] "" isearch-yank-word-or-char "\227" isearch-del-char "\231" isearch-yank-char "" isearch-yank-line "" "\356" isearch-ring-advance "\360" isearch-ring-retreat "\371" isearch-yank-kill "\211" isearch-complete [switch-frame] nil [delete-frame] [iconify-frame] [make-frame-visible] [mouse-movement] [language-change] " " isearch-toggle-input-method " " isearch-toggle-specified-input-method [mouse-2] isearch-mouse-2 [down-mouse-2] "\343" isearch-toggle-case-fold "\362" isearch-toggle-regexp "\345" isearch-edit-string "\363r" "\363w" isearch-toggle-word [134217765] isearch-query-replace [201326629] isearch-query-replace-regexp "\363o" isearch-occur "\363hr" isearch-highlight-regexp] 6) (#$ . 16531)) #@55 Keymap for editing Isearch strings in the minibuffer. (defvar minibuffer-local-isearch-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\316#\210)\207" [map minibuffer-local-map make-sparse-keymap set-keymap-parent define-key " " isearch-nonincremental-exit-minibuffer "\211" isearch-complete-edit "" isearch-forward-exit-minibuffer "" isearch-reverse-exit-minibuffer "" isearch-yank-char-in-minibuffer [right]] 4) (#$ . 18986)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\304\207" [current-load-list isearch-forward default-boundp set-default nil isearch-regexp isearch-word isearch-hidden] 3) #@185 Stack of search status sets. Each set is a vector of the form: [STRING MESSAGE POINT SUCCESS FORWARD OTHER-END WORD INVALID-REGEXP WRAPPED BARRIER WITHIN-BRACKETS CASE-FOLD-SEARCH] (defvar isearch-cmds nil (#$ . 19805)) (byte-code "\305B\306\305!\204 \307\305\310\"\210\311B\306\311!\204 \307\311\310\"\210\312B\306\312!\204- \307\312\313\"\210\314B\306\314!\204< \307\314\313\"\210\315B\306\315!\204K \307\315\316\"\210\317B\306\317!\204Z \307\317\313\"\210\320B\306\320!\204i \307\320\313\"\210\321B\306\321!\204x \307\321\313\"\210\322B\306\322!\204\207 \307\322\323\"\210\324B\306\324!\204\226 \307\324\313\"\210\325B\306\325!\204\245 \307\325\323\"\210\326B\306\326!\204\264 \307\326\313\"\210\327B\306\327!\204\303 \307\327\313\"\210\330B\306\330!\204\322 \307\330\313\"\210\331B\306\331!\204\341 \307\331\313\"\210\332B\306\332!\204\360 \307\332\313\"\210\333B\306\333!\204\377 \307\333\313\"\210\334B\306\334!\204\307\334\323\"\210\335B\306\335!\204 \307\335\313\"\210\336B\306\336!\204,\307\336\313\"\210\337B\306\337!\204;\307\337\313\"\210\340B\306\340!\204J\307\340\313\"\210\341B\306\341!\204Y\307\341\313\"\210\342B\306\342!\204h\307\342\313\"\210\343B\306\343!\204w\307\343\313\"\210\344B\306\344!\204\206\307\344\313\"\210\345B\306\345!\204\225\307\345\313\"\210\346 \236\204\240 \347C\244\210\346B\306\346!\204\257\307\346\313\"\210\350\346!\210\351\n\352\353#\210\351 \352\354#\210\351\n\355\356#\210\351 \355\357#\210\351\f\360\361#\207" [current-load-list minor-mode-alist global-map esc-map search-map isearch-string default-boundp set-default "" isearch-message isearch-message-prefix-add nil isearch-message-suffix-add isearch-success t isearch-error isearch-other-end isearch-wrapped isearch-barrier 0 isearch-just-started isearch-start-hscroll isearch-case-fold-search isearch-last-case-fold-search isearch-original-minibuffer-message-timeout isearch-adjusted isearch-slow-terminal-mode isearch-small-window isearch-opoint isearch-window-configuration isearch-yank-flag isearch-op-fun isearch-recursive-edit isearch-nonincremental isearch-new-forward isearch-opened-overlays isearch-input-method-function isearch-input-method-local-p isearch-mode (isearch-mode isearch-mode) make-variable-buffer-local define-key "" isearch-forward isearch-forward-regexp "" isearch-backward isearch-backward-regexp "w" isearch-forward-word] 4) #@3325 Do incremental search forward. With a prefix argument, do an incremental regular expression search instead. \<isearch-mode-map> As you type characters, they add to the search string and are found. The following non-printing keys are bound in `isearch-mode-map'. Type \[isearch-delete-char] to cancel last input item from end of search string. Type \[isearch-exit] to exit, leaving point at location found. Type LFD (C-j) to match end of line. Type \[isearch-repeat-forward] to search again forward, \[isearch-repeat-backward] to search again backward. Type \[isearch-yank-word-or-char] to yank next word or character in buffer onto the end of the search string, and search for it. Type \[isearch-del-char] to delete character from end of search string. Type \[isearch-yank-char] to yank char from buffer onto end of search string and search for it. Type \[isearch-yank-line] to yank rest of line onto end of search string and search for it. Type \[isearch-yank-kill] to yank the last string of killed text. Type \[isearch-quote-char] to quote control character to search for it. \[isearch-abort] while searching or when search has failed cancels input back to what has been found successfully. \[isearch-abort] when search is successful aborts and moves point to starting point. If you try to exit with the search string still empty, it invokes nonincremental search. Type \[isearch-toggle-case-fold] to toggle search case-sensitivity. Type \[isearch-toggle-regexp] to toggle regular-expression mode. Type \[isearch-toggle-word] to toggle word mode. Type \[isearch-edit-string] to edit the search string in the minibuffer. Also supported is a search ring of the previous 16 search strings. Type \[isearch-ring-advance] to search for the next item in the search ring. Type \[isearch-ring-retreat] to search for the previous item in the search ring. Type \[isearch-complete] to complete the search string using the search ring. Type \[isearch-query-replace] to run `query-replace' with string to replace from last search string. Type \[isearch-query-replace-regexp] to run `query-replace-regexp' with the last search string. Type \[isearch-occur] to run `occur' that shows the last search string. Type \[isearch-highlight-regexp] to run `highlight-regexp' that highlights the last search string. Type \[isearch-describe-bindings] to display all Isearch key bindings. Type \[isearch-describe-key] to display documentation of Isearch key. Type \[isearch-describe-mode] to display documentation of Isearch mode. If an input method is turned on in the current buffer, that input method is also active while you are typing characters to search. To toggle the input method, type \[isearch-toggle-input-method]. It also toggles the input method in the current buffer. To use a different input method for searching, type \[isearch-toggle-specified-input-method], and specify an input method you want to use. The above keys, bound in `isearch-mode-map', are often controlled by options; do \[apropos] on search-.* to find them. Other control and meta characters terminate the search and are then executed normally (depending on `search-exit-option'). Likewise for function keys and mouse button events. If this function is called non-interactively, it does not return to the calling function until the search is done. (defalias 'isearch-forward #[(&optional regexp-p no-recursive-edit) "\302\303??\304 ?$\207" [regexp-p no-recursive-edit isearch-mode t nil] 5 (#$ . 22242) "P\np"]) #@489 Do incremental search forward for regular expression. With a prefix argument, do a regular string search instead. Like ordinary incremental search except that your input is treated as a regexp. See the command `isearch-forward' for more information. In regexp incremental searches, a space or spaces normally matches any whitespace (the variable `search-whitespace-regexp' controls precisely what that means). If you want to search for a literal space and nothing else, enter C-q SPC. (defalias 'isearch-forward-regexp #[(&optional not-regexp no-recursive-edit) "\302\303?\304 ?$\207" [not-regexp no-recursive-edit isearch-mode t nil] 5 (#$ . 25738) "P\np"]) #@309 Do incremental search forward for a sequence of words. With a prefix argument, do a regular string search instead. Like ordinary incremental search except that your input is treated as a sequence of words without regard to how the words are separated. See the command `isearch-forward' for more information. (defalias 'isearch-forward-word #[(&optional not-word no-recursive-edit) "\302\303\304\211? ?%\207" [no-recursive-edit not-word isearch-mode t nil] 6 (#$ . 26408) "P\np"]) #@153 Do incremental search backward. With a prefix argument, do a regular expression search instead. See the command `isearch-forward' for more information. (defalias 'isearch-backward #[(&optional regexp-p no-recursive-edit) "\302\303??\303 ?$\207" [regexp-p no-recursive-edit isearch-mode nil] 5 (#$ . 26896) "P\np"]) #@253 Do incremental search backward for regular expression. With a prefix argument, do a regular string search instead. Like ordinary incremental search except that your input is treated as a regexp. See the command `isearch-forward' for more information. (defalias 'isearch-backward-regexp #[(&optional not-regexp no-recursive-edit) "\302\303?\303 ?$\207" [not-regexp no-recursive-edit isearch-mode nil] 5 (#$ . 27219) "P\np"]) #@103 Start Isearch minor mode. It is called by the function `isearch-forward' and other related functions. (defalias 'isearch-mode #[(forward &optional regexp op-fun recursive-edit word-p) "\n\f$%&'(&\306\211)*\307+\310,\307-`.\307\211/0\307123X\205> \311 \3124!\313_V5\307\21167\3108\314 9`:\307\211;<=\315\316!>\307?@A\307@>\204r \317\316!\210\307\320\306!\2105\205\200 \321 B\322\323 ! C\324C!\325>\204\247 \326C!\204\235 \327C!\210D\203\247 \330C!\210)\331E\332 \210\333 \210FG\334\335!\210\336 \210\337\340\341\"\210\337\342\341\"\210#\203\322 \310 H\343 \210),\207" [forward isearch-forward regexp isearch-regexp word-p isearch-word "" nil t window-height abs 4 window-hscroll local-variable-p input-method-function make-local-variable looking-at current-window-configuration window-frame minibuffer-window frame-live-p (nil t) frame-visible-p make-frame-visible raise-frame " Isearch" force-mode-line-update isearch-push-state run-hooks isearch-mode-hook isearch-update add-hook mouse-leave-buffer-hook isearch-done kbd-macro-termination-hook recursive-edit op-fun isearch-op-fun isearch-case-fold-search isearch-last-case-fold-search case-fold-search isearch-string isearch-message isearch-cmds isearch-success isearch-wrapped isearch-barrier isearch-adjusted isearch-yank-flag isearch-error baud-rate search-slow-speed search-slow-window-lines isearch-slow-terminal-mode isearch-other-end isearch-small-window isearch-just-started isearch-start-hscroll isearch-opoint search-ring-yank-pointer isearch-opened-overlays isearch-input-method-function isearch-input-method-local-p regexp-search-ring-yank-pointer minibuffer-message-timeout isearch-original-minibuffer-message-timeout isearch-window-configuration frame minibuffer-auto-raise isearch-mode isearch-mode-map overriding-terminal-local-map isearch-recursive-edit] 4 (#$ . 27652)]) (defalias 'isearch-update #[nil "\204\263 \204\263 \306 \204 \n\203 \n \210\202 \307 \210 \203z \f\204z \310 \204z ` \311\312\313!\210\314 \315\316\313W\203B [T\202H \317 TZ\"\210)\313W\203o \320\314Z!\210\321\322 `\"\210\323\322 \324 \"\210\323\325 \313\"\210\202s \326\314!\210 b\210)\202\222 \324 \323\325 \"\210\310 \204\221 \323\325 \"\210) \203\260 `W\203\247 \327 `\"\210\202\263 \327` \"\210\202\263 \330 \210\316\211 !\203\301 \331 \210\311\211\"\207" [unread-command-events executing-kbd-macro isearch-message-function isearch-slow-terminal-mode isearch-small-window found-point input-pending-p isearch-message pos-visible-in-window-p t move-to-window-line 0 1 split-window nil window-height vertical-motion set-window-start next-window set-window-hscroll window-hscroll selected-window other-window isearch-highlight isearch-dehighlight isearch-lazy-highlight-new-loop window-min-height search-slow-window-lines current-scroll isearch-start-hscroll isearch-other-end isearch-adjusted isearch-yank-flag isearch-lazy-highlight disable-point-adjustment] 5]) #@174 Exit Isearch mode. For successful search, pass no args. For a failing search, NOPUSH is t. For going to the minibuffer to edit the search string, NOPUSH is t and EDIT is t. (defalias 'isearch-done #[(&optional nopush edit) "\203# \306 \n \f \307$D\257 %&@%\232\204\" %&B&)\310\311\312\"\210\310\313\312\"\210\314\211'()*\315 \210\316!\210\317\320 !` + ,-\203f \321-!\210.\203^ +b\210\202f \322\320 ,\323#\210*\314/0\203v 1\202z \324\325!\210\326 \210m?\205\206 \327`\330\"o?\205\220 \327`S\330\" 2 32\203\271 3\203\271 23=\203\271 \f\203\263 \331`\330\"b\210\202\271 \332`\330\"b\210* G\333V\203\313 4\204\313 \334 \n\"\2104\205\323 5? 6\335\336!\210)`7U\2048\203\353 9\204\3377\323\"\210:\204\340 \333V\204\341\342!\2105?\205;\205\343 \207" [isearch-resume-in-command-history isearch-string isearch-regexp isearch-word isearch-forward isearch-message isearch-resume quote remove-hook mouse-leave-buffer-hook isearch-done kbd-macro-termination-hook nil isearch-dehighlight lazy-highlight-cleanup window-start selected-window set-window-configuration set-window-start t kill-local-variable input-method-function force-mode-line-update get-text-property intangible next-single-property-change previous-single-property-change 0 isearch-update-ring run-hooks isearch-mode-end-hook push-mark minibuffer-depth message "Mark saved where search started" exit-recursive-edit isearch-case-fold-search command command-history isearch-lazy-highlight-start overriding-terminal-local-map isearch-original-minibuffer-message-timeout minibuffer-message-timeout found-point found-start isearch-window-configuration isearch-small-window isearch-mode isearch-input-method-local-p isearch-input-method-function before after nopush edit isearch-mode-end-hook-quit isearch-opoint transient-mark-mode mark-active executing-kbd-macro isearch-recursive-edit] 9 (#$ . 30652)]) #@100 Add STRING to the beginning of the search ring. REGEXP if non-nil says use the regexp search ring. (defalias 'isearch-update-ring #[(string &optional regexp) "\304\203 \305\202\n \306 \203 \n\202 #\207" [regexp string regexp-search-ring-max search-ring-max add-to-history regexp-search-ring search-ring] 4 (#$ . 32560)]) #@36 Return the search string in FRAME. (defalias 'isearch-string-state #[(frame) "\301H\207" [frame 0] 2 (#$ . 32893)]) (put 'isearch-string-state 'byte-optimizer 'byte-compile-inline-expand) #@59 Return the search string to display to the user in FRAME. (defalias 'isearch-message-state #[(frame) "\301H\207" [frame 1] 2 (#$ . 33088)]) (put 'isearch-message-state 'byte-optimizer 'byte-compile-inline-expand) #@28 Return the point in FRAME. (defalias 'isearch-point-state #[(frame) "\301H\207" [frame 2] 2 (#$ . 33308)]) (put 'isearch-point-state 'byte-optimizer 'byte-compile-inline-expand) #@35 Return the success flag in FRAME. (defalias 'isearch-success-state #[(frame) "\301H\207" [frame 3] 2 (#$ . 33493)]) (put 'isearch-success-state 'byte-optimizer 'byte-compile-inline-expand) #@45 Return the searching-forward flag in FRAME. (defalias 'isearch-forward-state #[(frame) "\301H\207" [frame 4] 2 (#$ . 33689)]) (put 'isearch-forward-state 'byte-optimizer 'byte-compile-inline-expand) #@45 Return the other end of the match in FRAME. (defalias 'isearch-other-end-state #[(frame) "\301H\207" [frame 5] 2 (#$ . 33895)]) (put 'isearch-other-end-state 'byte-optimizer 'byte-compile-inline-expand) #@42 Return the search-by-word flag in FRAME. (defalias 'isearch-word-state #[(frame) "\301H\207" [frame 6] 2 (#$ . 34105)]) (put 'isearch-word-state 'byte-optimizer 'byte-compile-inline-expand) #@74 Return the regexp error message in FRAME, or nil if its regexp is valid. (defalias 'isearch-error-state #[(frame) "\301H\207" [frame 7] 2 (#$ . 34302)]) (put 'isearch-error-state 'byte-optimizer 'byte-compile-inline-expand) #@42 Return the search-wrapped flag in FRAME. (defalias 'isearch-wrapped-state #[(frame) "\301H\207" [frame 8] 2 (#$ . 34533)]) (put 'isearch-wrapped-state 'byte-optimizer 'byte-compile-inline-expand) #@36 Return the barrier value in FRAME. (defalias 'isearch-barrier-state #[(frame) "\301H\207" [frame 9] 2 (#$ . 34736)]) (put 'isearch-barrier-state 'byte-optimizer 'byte-compile-inline-expand) #@40 Return the case-folding flag in FRAME. (defalias 'isearch-case-fold-search-state #[(frame) "\301H\207" [frame 10] 2 (#$ . 34933)]) (put 'isearch-case-fold-search-state 'byte-optimizer 'byte-compile-inline-expand) #@73 Return the function restoring the mode-specific Isearch state in FRAME. (defalias 'isearch-pop-fun-state #[(frame) "\301H\207" [frame 11] 2 (#$ . 35153)]) (put 'isearch-pop-fun-state 'byte-optimizer 'byte-compile-inline-expand) (defalias 'isearch-top-state #[nil "@\211\211\306H) \211\307H) \211\310H) \211\311H) \211\312H) \211\313H) \211\314H) \211\315H) \211\316H) \211\317H)\320 \211\321H)!\203d \211\321H) !\210 \211\322H)b)\207" [isearch-cmds cmd frame isearch-string isearch-message isearch-success 0 1 3 4 5 6 7 8 9 10 functionp 11 2 isearch-forward isearch-other-end isearch-word isearch-error isearch-wrapped isearch-barrier isearch-case-fold-search] 4]) (defalias 'isearch-pop-state #[nil "A\301 \207" [isearch-cmds isearch-top-state] 1]) (defalias 'isearch-push-state #[nil "\306 `\n \f \n \205 &\f\fB\211\f\207" [isearch-string isearch-message isearch-success isearch-forward isearch-other-end isearch-word vector isearch-error isearch-wrapped isearch-barrier isearch-case-fold-search isearch-push-state-function isearch-cmds] 13]) #@205 Exit search normally. However, if this is the first command after starting incremental search and `search-nonincremental-instead' is non-nil, do a nonincremental search instead via `isearch-edit-string'. (defalias 'isearch-exit #[nil "\203 G\303U\203 \304\305 \210)\306 \210\307 \207" [search-nonincremental-instead isearch-string isearch-nonincremental 0 t isearch-edit-string isearch-done isearch-clean-overlays] 2 (#$ . 36256) nil]) #@602 Edit the search string in the minibuffer. The following additional command keys are active while editing. \<minibuffer-local-isearch-map> \[exit-minibuffer] to resume incremental searching with the edited string. \[isearch-nonincremental-exit-minibuffer] to do one nonincremental search. \[isearch-forward-exit-minibuffer] to resume isearching forward. \[isearch-reverse-exit-minibuffer] to resume isearching backward. \[isearch-complete-edit] to complete the search string using the search ring. \<isearch-mode-map> If first char entered is \[isearch-yank-word-or-char], then do word search instead. (defalias 'isearch-edit-string #[nil "\300\301\302\217\207" [err (byte-code " \n \f !\"#$%&\306 '\211\307\211 ( ) ' * + & % $ # \" ! , - . /\310\311\312\217\210`)0(\313\216\307\211 1 2\314\315\307\211# 3\307 \203 \3164\206z \317TB\202\210 \3205\206\206 \317TB\307\321&/\322\323/\324#.+ G\325U\203\265 \203\247 \202\251 @\206\256 \324\322\323 \324#.\326 \210\327 \210\330 \210\205\320 \331 \210 \324\232\205\320 \332\324!\207" [isearch-nonincremental isearch-string isearch-message isearch-forward isearch-word isearch-regexp current-window-configuration nil err (byte-code "\300\301\211\"\207" [isearch-done t] 3) ((exit)) ((byte-code "\203 `=\203 \n =\203 b\210\306\n\f \307%\210 \n \f \307\207" [old-other-end old-point isearch-forward isearch-new-forward isearch-regexp isearch-op-fun isearch-mode nil isearch-word isearch-new-string isearch-string isearch-new-message isearch-message isearch-new-word] 6)) read-from-minibuffer isearch-message-prefix regexp-search-ring -1 search-ring t mapconcat isearch-text-char-description "" 0 isearch-search isearch-push-state isearch-update isearch-done message isearch-op-fun isearch-cmds isearch-success isearch-wrapped isearch-barrier isearch-adjusted isearch-yank-flag isearch-error isearch-opoint isearch-slow-terminal-mode isearch-small-window isearch-recursive-edit isearch-original-minibuffer-message-timeout old-other-end old-point minibuffer-message-timeout isearch-window-configuration isearch-new-word isearch-new-forward isearch-new-message isearch-new-string isearch-other-end message-log-max minibuffer-history-symbol minibuffer-local-isearch-map regexp-search-ring-yank-pointer search-ring-yank-pointer] 24) ((quit (isearch-abort)))] 3 (#$ . 36704) nil]) (defalias 'isearch-nonincremental-exit-minibuffer #[nil "\301\302 \207" [isearch-nonincremental t exit-minibuffer] 1 nil nil]) (defalias 'isearch-forward-exit-minibuffer #[nil "\301\302 \207" [isearch-new-forward t exit-minibuffer] 1 nil nil]) (defalias 'isearch-reverse-exit-minibuffer #[nil "\301\302 \207" [isearch-new-forward nil exit-minibuffer] 1 nil nil]) #@57 Terminate the search and go back to the starting point. (defalias 'isearch-cancel #[nil "\303\304!@\211\305H)!\203 \304!@\211\305H)\304!@!\210\nb\210\306\307!\210\310 \210\311\312\313\"\207" [isearch-cmds frame isearch-opoint functionp last 11 isearch-done t isearch-clean-overlays signal quit nil] 4 (#$ . 39463) nil]) #@193 Abort incremental search mode if searching is successful, signaling quit. Otherwise, revert to previous successful search and continue searching. Use `isearch-exit' to quit without signaling. (defalias 'isearch-abort #[nil "\302 \210\203\f \303\304 \207\203 \203 \305 \210\202\f \306 \207" [isearch-success isearch-error discard-input nil isearch-cancel isearch-pop-state isearch-update] 1 (#$ . 39796) nil]) (defalias 'isearch-repeat #[(direction) " \306==\203\\ \n\307\232\203: \203 \f\202 \204 \310\202b \203) \f@\202+ @\311\312\n\307#\202b \204b \313\203N \210\202b \203V e\202W db\210\202b ?\313`\n\307\232\203q \313\202\253 \203\250 `\232\203\250 \204\250 \203\212 m\202\213 o\203\227 \314\315 \210\202\253 \203\237 \316\202\240 \317u\210\320 \210\202\253 \320 \210\321 \210\322 \207" [isearch-forward direction isearch-string isearch-regexp regexp-search-ring search-ring forward "" "No previous search string" mapconcat isearch-text-char-description t nil ding 1 -1 isearch-search isearch-push-state isearch-update isearch-error isearch-message isearch-last-case-fold-search isearch-case-fold-search isearch-success isearch-wrapped isearch-wrap-function isearch-barrier isearch-other-end isearch-just-started] 4]) #@37 Repeat incremental search forwards. (defalias 'isearch-repeat-forward #[nil "\300\301!\207" [isearch-repeat forward] 2 (#$ . 41075) nil]) #@38 Repeat incremental search backwards. (defalias 'isearch-repeat-backward #[nil "\300\301!\207" [isearch-repeat backward] 2 (#$ . 41219) nil]) #@36 Toggle regexp searching on or off. (defalias 'isearch-toggle-regexp #[nil "?\211\203 \304\305\211\306 \207" [isearch-regexp isearch-word isearch-success isearch-adjusted nil t isearch-update] 2 (#$ . 41366) nil]) #@34 Toggle word searching on or off. (defalias 'isearch-toggle-word #[nil "?\303\211\304 \207" [isearch-word isearch-success isearch-adjusted t isearch-update] 2 (#$ . 41591) nil]) #@45 Toggle case folding in searching on or off. (defalias 'isearch-toggle-case-fold #[nil "?\205 \306\307\310\311\312\307\211\n# \203 \313\202 \314$\210)\315\211\316\317!\210\320 \207" [isearch-case-fold-search message-log-max isearch-nonincremental isearch-message isearch-success isearch-adjusted yes nil message "%s%s [case %ssensitive]" isearch-message-prefix "in" "" t sit-for 1 isearch-update] 7 (#$ . 41778) nil]) #@426 Start `query-replace' with string to replace from last search string. The arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches surrounded by word boundaries. Note that using the prefix arg is possible only when `isearch-allow-scroll' is non-nil, and it don't always provides the correct matches for `query-replace', so the preferred way to run word replacements from Isearch is `M-s w ... M-%'. (defalias 'isearch-query-replace #[(&optional delimited regexp-flag) "\306 \210\203 \307\n\310\211 \311\310\307\"\210\312 \210\2038 `W\2038 \2034 \2034 \313 `W\2048 b\210JBL\210\314\315\316\204S \203W \317\202X \320 \203` \321\202a \320\203o \203o \322\202p \320R #\307 \206| \310\211\205\212 \205\212 \323 \205\226 \205\226 \324 & \210+ \205\240 \325 \207" [regexp-flag isearch-regexp isearch-case-fold-search isearch-recursive-edit search-upper-case case-fold-search barf-if-buffer-read-only t nil isearch-done isearch-clean-overlays mark perform-replace query-replace-read-to "Query replace" " word" "" " regexp" " in region" region-beginning region-end exit-recursive-edit isearch-other-end transient-mark-mode mark-active query-replace-from-history-variable isearch-string delimited isearch-word] 10 (#$ . 42211) (list current-prefix-arg)]) #@128 Start `query-replace-regexp' with string to replace from last search string. See `isearch-query-replace' for more information. (defalias 'isearch-query-replace-regexp #[(&optional delimited) "\301\302\"\207" [delimited isearch-query-replace t] 3 (#$ . 43534) (list current-prefix-arg)]) #@189 Run `occur' with regexp to search from the current search string. Interactively, REGEXP is the current search regexp or a quoted search string. NLINES has the same meaning as in `occur'. (defalias 'isearch-occur #[(regexp &optional nlines) "\305\306 \f\"*\207" [isearch-case-fold-search search-upper-case case-fold-search regexp nlines nil occur] 3 (#$ . 43829) (list (cond (isearch-word (concat "\\b" (replace-regexp-in-string "\\W+" "\\W+" (replace-regexp-in-string "^\\W+\\|\\W+$" "" isearch-string) nil t) "\\b")) (isearch-regexp isearch-string) (t (regexp-quote isearch-string))) (if current-prefix-arg (prefix-numeric-value current-prefix-arg)))]) #@262 Run `highlight-regexp' with regexp from the current search string. It exits Isearch mode and calls `hi-lock-face-buffer' with its regexp argument from the last search regexp or a quoted search string, and reads its face argument using `hi-lock-read-face-name'. (defalias 'isearch-highlight-regexp #[nil "\306\307\306\310\"\210\311 \210)\312\313\306\310#\210 \203 \n\2029 \310=\203* \f\203* \314\n \"\202+ \2036 \315\316\n\317#\2029 \320\n! \321 \322 \"\210)\205G \323 \207" [isearch-recursive-edit isearch-regexp isearch-string isearch-case-fold-search search-upper-case string nil isearch-done t isearch-clean-overlays require hi-lock isearch-no-upper-case-p mapconcat #[(c) "\302!\303\304 \"\203 \305\306 \226 \227#\202 \307 !)\207" [c s string string-match "[[:alpha:]]" format "[%s%s]" regexp-quote] 4] "" regexp-quote hi-lock-face-buffer hi-lock-read-face-name exit-recursive-edit] 4 (#$ . 44494) nil]) #@88 Discard last input item and move point back. If no previous match was done, just beep. (defalias 'isearch-delete-char #[nil "A\204 \301 \210\202 \302 \210\303 \207" [isearch-cmds ding isearch-pop-state isearch-update] 1 (#$ . 45417) nil]) #@100 Delete character from end of search string and search again. If search string is empty, just beep. (defalias 'isearch-del-char #[(&optional arg) "G\304U\203 \305 \210\202 \304 \206 \306[O\307\310\311# \203$ b\210\312 \210\313 \210\314 \207" [isearch-string arg isearch-message isearch-other-end 0 ding 1 mapconcat isearch-text-char-description "" isearch-search isearch-push-state isearch-update] 4 (#$ . 45666) "p"]) #@33 Pull STRING into search string. (defalias 'isearch-yank-string #[(string) "\203 \306=\203 \n\227 \203 \307\n!\f\nP \310\311\n\312#P\313 \314 \207" [isearch-case-fold-search search-upper-case string isearch-regexp isearch-string isearch-message not-yanks regexp-quote mapconcat isearch-text-char-description "" t isearch-search-and-update isearch-yank-flag] 5 (#$ . 46099)]) #@48 Pull string from kill ring into search string. (defalias 'isearch-yank-kill #[nil "\300\301\302!!\207" [isearch-yank-string current-kill 0] 3 (#$ . 46489) nil]) #@46 Pull current X selection into search string. (defalias 'isearch-yank-x-selection #[nil "\300\301 !\207" [isearch-yank-string x-get-selection] 2 (#$ . 46656) nil]) #@193 Handle mouse-2 in Isearch mode. For a click in the echo area, invoke `isearch-yank-x-selection'. Otherwise invoke whatever the calling mouse-2 command sequence is bound to outside of Isearch. (defalias 'isearch-mouse-2 #[(click) "\211:\203 A@\202 \306 `\307\310F)\211@)\311 \312\313 \314\" \315 !\2032 \316 !\2042 \317 \202; \320 !\205; \321 !+\207" [click event position w overriding-terminal-local-map binding selected-window (0 . 0) 0 nil key-binding this-command-keys-vector t window-minibuffer-p minibuffer-window-active-p isearch-yank-x-selection functionp call-interactively] 5 (#$ . 46826) "e"]) #@318 Pull the text from point to the point reached by JUMPFORM. JUMPFORM is a lambda expression that takes no arguments and returns a buffer position, possibly having moved point to that position. For example, it might move point forward by a word and return point, or it might return the position of the end of the line. (defalias 'isearch-yank-internal #[(jumpform) "\303\212\204 \203 b\210\304`\n \")!\207" [isearch-forward isearch-other-end jumpform isearch-yank-string buffer-substring-no-properties] 4 (#$ . 47444)]) #@74 Pull next character from buffer into end of search string in minibuffer. (defalias 'isearch-yank-char-in-minibuffer #[(&optional arg) "m\203 r\302 \211A@)q\210\303` u\210`\")c\207 u\207" [x arg buffer-list buffer-substring-no-properties] 4 (#$ . 47973) "p"]) #@53 Pull next character from buffer into search string. (defalias 'isearch-yank-char #[(&optional arg) "\300\301!\207" [isearch-yank-internal #[nil "u\210`\207" [arg] 1]] 2 (#$ . 48240) "p"]) #@61 Pull next character or word from buffer into search string. (defalias 'isearch-yank-word-or-char #[nil "\300\301!\207" [isearch-yank-internal #[nil "\300f\206 \301z\302U\204 `Tf\206 \301z\302U\203 \303v\210\202\" \303u\210`\207" [nil 0 119 1] 2]] 2 (#$ . 48435) nil]) #@48 Pull next word from buffer into search string. (defalias 'isearch-yank-word #[nil "\300\301!\207" [isearch-yank-internal #[nil "\300v\210`\207" [1] 1]] 2 (#$ . 48713) nil]) #@51 Pull rest of line from buffer into search string. (defalias 'isearch-yank-line #[nil "\300\301!\207" [isearch-yank-internal #[nil "\301\302l\203 \303\202\f \304!)\207" [inhibit-field-text-motion t line-end-position 2 1] 2]] 2 (#$ . 48892) nil]) (defalias 'isearch-search-and-update #[nil "\204 \204 \n\306\203k \204K \f\204K \306\307\310\217\203K \204, \311\225^X\203K \312\306\311\225\312=\203k \203k \313 \"\202k \203h \f\204h \203] \202f ^T^b\210\314 \210\315 \210\203w \210\316 \207" [isearch-success isearch-regexp isearch-hidden isearch-forward isearch-adjusted isearch-yank-flag nil (byte-code "\211\305=\203 \n\203 \306 \f\"\307\f\203 \202 \310 !!)\207" [isearch-case-fold-search case-fold-search search-upper-case isearch-string isearch-regexp t isearch-no-upper-case-p looking-at regexp-quote] 4) ((error)) 0 t isearch-no-upper-case-p isearch-search isearch-push-state isearch-update isearch-opoint isearch-barrier isearch-error isearch-other-end isearch-case-fold-search search-upper-case isearch-string isearch-op-fun] 3]) #@55 Return t if STR ends in an odd number of backslashes. (defalias 'isearch-backslash #[(str) "\301G\302\303\"Z\304\"\305U\207" [str mod string-match "\\\\*\\'" 2 1] 5 (#$ . 49983)]) #@515 Return point to previous successful match to allow regexp liberalization. \<isearch-mode-map> Respects \[isearch-repeat-forward] and \[isearch-repeat-backward] by stopping at `isearch-barrier' as needed. Do nothing if a backslash is escaping the liberalizing character. If WANT-BACKSLASH is non-nil, invert this behavior (for \} and \|). Do nothing if regexp has recently been invalid unless optional ALLOW-INVALID non-nil. If optional TO-BARRIER non-nil, ignore previous matches and go exactly to the barrier. (defalias 'isearch-fallback #[(want-backslash &optional allow-invalid to-barrier) "\205\304 \306 !?\n?=\205\304 \203& \f\211 A@)\211 \307H)\203& \205\304 \2034 b\210\310\211\207\f\211 A @ \203\217 \211 \307H)\204~ \211 \311H)\211 \211GSH \306@\211 \311H)!\203v \312=\202z \313>*\203\217 A@ \202@ \205\303 @\203\246 @\211 \314H)\206\250 \203\267 ]\202\274 ^b\210\310\211)+\207" [isearch-regexp isearch-string want-backslash isearch-error isearch-cmds x isearch-backslash 7 t 0 125 (42 63 43) 5 frame allow-invalid to-barrier isearch-barrier isearch-adjusted stack previous string lchar last-other-end isearch-forward] 4 (#$ . 50172)]) #@100 Unread the given key-sequence KEYLIST. Scroll-bar or mode-line events are processed appropriately. (defalias 'isearch-unread-key-sequence #[(keylist) "\305 \210\306\307\"\210G\310V\205[ @9\205[ \211A@)<\205[ \211A@)\211:\2031 \nA@\2027 \311 `\312\313F)\314 8\206P A@:\203M A@@\202P A@)\247?\205[ \f\211A@\207" [keylist x event position unread-command-events cancel-kbd-macro-events apply isearch-unread 1 selected-window (0 . 0) 0 5] 5 (#$ . 51394)]) (byte-code "\300\301!\203\f \302\301\303\304#\210\300\305!\203 \302\305\303\304#\210\302\306\303\304#\210\302\307\303\304#\210\302\310\303\304#\210\302\311\303\304#\210\302\312\303\304#\210\302\313\303\304#\210\302\314\303\304#\210\302\315\303\304#\210\302\316\303\304#\210\302\317\303\304#\210\302\320\303\304#\210\302\321\303\304#\210\302\322\303\304#\210\302\323\303\304#\210\302\324\303\304#\210\302\325\303\304#\210\302\326\303\304#\210\302\327\303\304#\207" [fboundp scroll-bar-toolkit-scroll put isearch-scroll t w32-handle-scroll-bar-event recenter recenter-top-bottom reposition-window scroll-up scroll-down list-buffers scroll-other-window scroll-other-window-down beginning-of-buffer-other-window end-of-buffer-other-window delete-other-windows balance-windows split-window-vertically split-window-horizontally enlarge-window universal-argument negative-argument digit-argument] 4) #@71 If non-nil, scrolling commands are allowed during incremental search. (custom-declare-variable 'isearch-allow-scroll 'nil '(#$ . 52758) :type 'boolean :group 'isearch) #@279 Test whether the search string is currently outside of the window. Return nil if it's completely visible, or if point is visible, together with as much of the search string as will fit; the symbol `above' if we need to scroll the text downwards; the symbol `below', if upwards. (defalias 'isearch-string-out-of-window #[(isearch-point) "\306 \307\310\311\"\212\312\313!\210`)\212\312\314!\210`)\310\211 \203/ \206+ \202: \2069 Y\203F \fX\204g \203Y \nY\203k \fW\202d Y\203k W\203k \310\202} W\203| \nW\203| \315\202} \316.\207" [end start w-L-1 w-L1 w-end w-start window-start window-end nil t move-to-window-line 1 -1 above below isearch-forward isearch-point isearch-other-end] 6 (#$ . 52933)]) #@211 Scroll the window to bring the search string back into view. Restore point to ISEARCH-POINT in the process. ABOVE is t when the search string is above the top of the window, nil when it is beneath the bottom. (defalias 'isearch-back-into-window #[(above isearch-point) "\306\211\n\203 \f\206 \202 \f\206 \2039 b\210\307\310!\210 \311\306\312\"Y\203N b\210\307\313!\210\202N b\210\307\313!\210 \314 W\203N b\210\307\310!\210* b\207" [end start isearch-forward isearch-point isearch-other-end above nil recenter 0 window-end t -1 window-start] 4 (#$ . 53680)]) #@113 Reread key sequence KEYLIST with Isearch mode's keymap deactivated. Return the key sequence as a string/vector. (defalias 'isearch-reread-key-sequence-naturally #[(keylist) "\302!\210\303\304\303!)\207" [keylist overriding-terminal-local-map isearch-unread-key-sequence nil read-key-sequence] 2 (#$ . 54266)]) #@90 If KEY-SEQ is bound to a scrolling command, return it as a symbol. Otherwise return nil. (defalias 'isearch-lookup-scroll-key #[(key-seq) "\303\304 !\211\205 \n9\205 \305\n!\205 \n\306N\307=\205 \n*\207" [overriding-terminal-local-map key-seq binding nil key-binding commandp isearch-scroll t] 3 (#$ . 54584)]) (defalias 'isearch-other-control-char 'isearch-other-meta-char) #@797 Process a miscellaneous key sequence in Isearch mode. Try to convert the current key-sequence to something usable in Isearch mode, either by converting it with `function-key-map', downcasing a key with C-<upper case>, or finding a "scrolling command" bound to it. (In the last case, we may have to read more events.) If so, either unread the converted sequence or execute the command. Otherwise, if `search-exit-option' is non-nil (the default) unread the key-sequence and exit the search normally. If it is the symbol `edit', the search string is edited in the minibuffer and the meta character is unread so that it applies to editing the string. ARG is the prefix argument. It will be transmitted through to the scrolling command or to the command whose key-sequence exits Isearch mode. (defalias 'isearch-other-meta-char #[(&optional arg) "\203\f \306 \307O\202 \306 \211\310H\311\n! \307\211 /\nG\312U\203\216 \3130\n\"\211 1?\2069 1\250\2069 \3141!)\204\216 \315 \210\3132\n\"\203R \316 \210\317\320\f\"\202\310\311\3130\n\"!\211\205\310\f@\211\250\203\203 \n\321Y\203\203 \n\322U\204\203 \n\323W\203\203 \324\n!\210\fA\211\202[ \317\320\f\"\210\307\211\202[ \325 ! 3 \250\205\275 \3263>\205\275 \3273>\205\275 \3134\330\n!\211 5\310 \331ZI\2105)\307#\332>?)\203\321 \f \331Z\240\210\315 \210\317\320\f\"\202\3106\333=\203\342 \317\320\f\"\210\334 \202\3107\203&\335\f!\311\n!\n\310H\336\n!\211\203&`/89\337 !\210\340/!\211 :\203 \341:\342=/\"\210\202 /b\210)\343 \202\310 \242\344=\203U\345 \211 ;:\203=;A@\202C\346 `\347\310F)\211 <@)!\203U\350 \210\334 \202\3106\203\304\307 =\351\f!\210>@?\204\265 <\203\265 \211 ;:\203~;A@\202\204\346 `\347\310F)\211 <@)\211=\203\265\352=!\203\265\353 \310V\204\245\345=!\204\265r\354=!q\210\316 \210\355 )\202\300\316 \210\355 \2108\2119)\202\310\356\n\211\"-\207" [current-prefix-arg universal-argument-num-events key main-event keylist scroll-command this-command-keys nil 0 listify-key-sequence 1 lookup-key keymapp cancel-kbd-macro-events isearch-done apply isearch-unread 32 127 256 isearch-process-search-char event-modifiers shift control copy-sequence 33554432 (nil isearch-other-control-char) edit isearch-edit-string isearch-reread-key-sequence-naturally isearch-lookup-scroll-key command-execute isearch-string-out-of-window isearch-back-into-window above isearch-update down-mouse-1 window-minibuffer-p selected-window (0 . 0) read-event isearch-unread-key-sequence windowp minibuffer-depth window-buffer isearch-clean-overlays isearch-process-search-string isearch-point local-function-key-map lookup global-map mods isearch-mode-map copy search-exit-option isearch-allow-scroll arg prefix-arg ab-bel event position window unread-command-events isearch-mode] 7 (#$ . 54972) "P"]) #@50 Quote special characters for incremental search. (defalias 'isearch-quote-char #[nil "\304\305\306!! \203% \307U\203% \310\n\211G\"\203 \311\312\313\"\202< \314!\202< \2039 \315Y\2039 \316X\2039 \317!\314!)\207" [char isearch-regexp isearch-string enable-multibyte-characters read-quoted-char isearch-message t 32 subregexp-context-p isearch-process-search-string "[ ]" " " isearch-process-search-char 128 255 unibyte-char-to-multibyte] 3 (#$ . 57792) nil]) #@53 Convert return into newline for incremental search. (defalias 'isearch-return-char #[nil "\300\301!\207" [isearch-process-search-char 10] 2 (#$ . 58266) nil]) (make-obsolete 'isearch-return-char 'isearch-printing-char "19.7") #@71 Add this ordinary printing character to the search string and search. (defalias 'isearch-printing-char #[nil "\211\303U\203\n \304\n\203 \305 !\202 \306 !)\207" [last-command-event char current-input-method 33554464 32 isearch-process-search-multibyte-characters isearch-process-search-char] 3 (#$ . 58498) nil]) (defalias 'isearch-process-search-char #[(char) "\301>\203 \302\303!\210\202' \304=\203 \302\305\211\"\210\202' \306=\203' \302\305\303\305#\210\307\310!\311Y\2037 \310!\202: \312!\"\207" [char (42 63) isearch-fallback nil 125 t 124 isearch-process-search-string char-to-string 128 isearch-text-char-description] 4]) (defalias 'isearch-process-search-string #[(string message) " P\n P\304 \207" [isearch-string string isearch-message message isearch-search-and-update] 2]) (defalias 'isearch-ring-adjust1 #[(advance) "\203 \202 \n\211G \203 \306\202 \307 \310 ! \311\f!?\205L \312\206+ \313\2034 \314\2025 \315\\\f\"\211L\210 8\316\317\320#\211,\207" [isearch-regexp regexp-search-ring search-ring ring length yank-pointer-name regexp-search-ring-yank-pointer search-ring-yank-pointer eval zerop mod 0 -1 1 mapconcat isearch-text-char-description "" yank-pointer advance isearch-string isearch-message] 5]) (defalias 'isearch-ring-adjust #[(advance) "\302!\210 \203 \303 \210\304 \210\305 \207\306 \207" [advance search-ring-update isearch-ring-adjust1 isearch-search isearch-push-state isearch-update isearch-edit-string] 2]) #@48 Advance to the next search string in the ring. (defalias 'isearch-ring-advance #[nil "\300\301!\207" [isearch-ring-adjust advance] 2 (#$ . 59987) nil]) #@52 Retreat to the previous search string in the ring. (defalias 'isearch-ring-retreat #[nil "\300\301!\207" [isearch-ring-adjust nil] 2 (#$ . 60145) nil]) (defalias 'isearch-complete1 #[nil "\203 \202 \n\f \306 \"\211 \307=\203 \307\202X \204* G\310U\203S \232\203F \203B \311\220\312\313 \"!\221\210\307\202X \205X \211\202X \314\315!\210\316+\207" [isearch-regexp regexp-search-ring search-ring ring case-fold-search completion-ignore-case try-completion t 0 "*Isearch completions*" display-completion-list all-completions message "No completion" nil isearch-string completion completion-auto-help] 6]) #@189 Complete the search string from the strings on the search ring. The completed string is then editable in the minibuffer. If there is no completion possible, say so and continue searching. (defalias 'isearch-complete #[nil "\302 \203 \303\304\305#\306 \207\307\310!\210\311 \207" [isearch-string isearch-message isearch-complete1 mapconcat isearch-text-char-description "" isearch-edit-string sit-for 1 isearch-update] 4 (#$ . 60781) nil]) #@54 Same as `isearch-complete' except in the minibuffer. (defalias 'isearch-complete-edit #[nil "\301 \302 \205 \303 \210c\207" [isearch-string field-string isearch-complete1 delete-field] 1 (#$ . 61229) nil]) (defalias 'isearch-message #[(&optional c-q-hack ellipsis) " \n\306 \203 \203w \f@\211 \307H)\203) \f@\211 \310H)\2032 \f\211A@\210\202 \f\205> \f@\211 \311H)\312 !\313 ;\203` G GW\203` \314 GO\232\203` G\202a \314 G\315 $\210\316\317 \"\203w \313\314\224\314\225\320 $\210\321# \322\"Q\203\217 \202\227 \306 \323\324 \"),\207" [ellipsis isearch-message isearch-cmds succ-msg cmds m nil 3 7 1 copy-sequence add-text-properties 0 (face isearch-fail) string-match " +$" (face trailing-whitespace) isearch-message-prefix isearch-message-suffix message "%s" cursor-in-echo-area isearch-success isearch-error frame c-q-hack isearch-nonincremental message-log-max] 6]) (defalias 'isearch-message-prefix #[(&optional c-q-hack ellipsis nonincremental) "\203 \203 \306\307\310\217\210\n\204 \306\n\203 \311\202 \312 \203$ \313\202% \311\f\205B ?\205B \203: ` V\202> ` W\205B \314\f\205G \315 \203P \316\202Q \311 \203Z \317\202[ \311 \203d \320\202e \311!\206k \311\"\203t \321\202u \322 \203~ \311\202 \323#\203\214 \324$\325Q\202\215 \326\260 %\327%\330\331O\226%\331\306OP\332\333#)\207" [isearch-error ellipsis isearch-success isearch-adjusted isearch-wrapped isearch-wrap-function nil (byte-code "\302`\303#\210\304\211\207" [isearch-string isearch-error re-search-forward t nil] 5) ((error)) "" "failing " "pending " "over" "wrapped " "word " "regexp " "multi " "search" "I-search" " backward" " [" "]: " ": " propertize 0 1 face minibuffer-prompt isearch-forward isearch-opoint isearch-word isearch-regexp multi-isearch-next-buffer-current-function isearch-message-prefix-add nonincremental current-input-method current-input-method-title m] 13]) (defalias 'isearch-message-suffix #[(&optional c-q-hack ellipsis) "\203 \303\202 \304 \203 \305 \306Q\202 \304\n\206 \304Q\207" [c-q-hack isearch-error isearch-message-suffix-add "^Q" "" " [" "]"] 4]) #@180 Override `isearch-search-fun'. This function should return the search function for Isearch to use. It will call this function with three arguments as if it were `search-forward'. (defvar isearch-search-fun-function nil (#$ . 63358)) #@112 Return the function to use for the search. Can be changed via `isearch-search-fun-function' for special needs. (defalias 'isearch-search-fun #[nil "\203 \207 \203/ \n\204 G\f@\211 \306H)G=\203& \203$ \307\207\310\207\203- \311\207\312\207\203= \203; \313\207\314\207\203D \315\207\316\207" [isearch-search-fun-function isearch-word isearch-nonincremental isearch-string isearch-cmds frame 0 word-search-forward word-search-backward word-search-forward-lax word-search-backward-lax re-search-forward re-search-backward search-forward search-backward isearch-forward isearch-regexp] 4 (#$ . 63598)]) #@155 Search for the first occurrence of STRING or its translation. If found, move point to the end of the occurrence, update the match data, and return point. (defalias 'isearch-search-string #[(string bound noerror) "\306 \212 \n #) \307 \310!\203y \311 !\203y \312 \307 \313 \314 #,\203y \315\301\316\317 \"\"\307 \211 \203x \320 \321\216\212\n #\211\203W \320\313!+ \203x \f\203q \203k \fW\202n \fV\203x \322!\210*\f\205\222 \203\216 \323 !\203\216 \324 !\210\fb\210\f+\207" [func string bound noerror pos1 pos2 isearch-search-fun nil char-table-p multibyte-string-p "[^[:ascii:]]" t string-match apply mapcar #[(c) " H\206 \207" [translation-table-for-input c] 2] match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) set-match-data buffer-live-p switch-to-buffer translation-table-for-input start regexp inhibit-changing-match-data translated save-match-data-internal isearch-forward multi-isearch-next-buffer-current-function multi-isearch-current-buffer] 6 (#$ . 64219)]) (defalias 'isearch-search #[nil "\203\f \306\307\"\210\202 \310\306\307\"\210 \307=\203 \n\203 \311 \f\"\312\313\314\217\210 ?\205_ @\211 \315H)\2039 \316 \210\317@\211 \320H)!\203U @\211 \320H)@!\210@\211 \321H)b\207" [isearch-message-function isearch-case-fold-search search-upper-case isearch-string isearch-regexp isearch-success nil t isearch-message isearch-no-upper-case-p lossage (byte-code "\306=\205 \307\n \310 \f \307\f\203E \311\307\310#\211\203? o\204? m\204? \312\224\312\225U\204? \312\224\312\225\"\203 \307\211\204 \307\203[ \203W \312\224\202Y \312\225-\307\207" [isearch-filter-predicate search-invisible isearch-case-fold-search search-whitespace-regexp retry search-spaces-regexp isearch-filter-visible nil t isearch-search-string 0 case-fold-search inhibit-quit inhibit-point-motion-hooks isearch-error isearch-string isearch-success isearch-just-started isearch-forward isearch-other-end] 6) ((quit (byte-code "\301\302!\210\303\211\207" [isearch-success isearch-unread 7 nil] 3)) (invalid-regexp (byte-code "A@\302\303 \"\203 \304\302\207" [lossage isearch-error string-match "\\`Premature \\|\\`Unmatched \\|\\`Invalid " "incomplete input"] 3)) (search-failed (byte-code "\303\304 8\303\207" [isearch-success lossage isearch-error nil 2] 2)) (error (byte-code "\302\303\"\302\207" [lossage isearch-error format "%s"] 3))) 3 ding functionp 11 2 isearch-cmds frame] 4]) (defalias 'isearch-open-overlay-temporary #[(ov) "\301\302\"\203 \301\302\"\303\"\207\304\305\301\306\"#\210\304\307\301\310\"#\210\304\306\303#\210\304\310\303#\207" [ov overlay-get isearch-open-invisible-temporary nil overlay-put isearch-invisible invisible isearch-intangible intangible] 6]) (defalias 'isearch-open-necessary-overlays #[(ov) "`\303!V\205 `\304!W\305\306\"\211\204 \2049 \307\310\305\311\"#\210\307\312\305\313\"#\210\307\311\314#\210\307\313\314#\210\n\203F \305\315\"!\202N \205N \316\"*\207" [ov fct-temp inside-overlay overlay-start overlay-end overlay-get isearch-open-invisible-temporary overlay-put invisible isearch-invisible intangible isearch-intangible nil isearch-open-invisible t] 7]) (defalias 'isearch-clean-overlays #[nil "\205\f \301\302\"\210\303\211\207" [isearch-opened-overlays mapc isearch-open-necessary-overlays nil] 3]) #@62 Return t if regions START0..END0 and START1..END1 intersect. (defalias 'isearch-intersects-p #[(start0 end0 start1 end1) " Y\203\f \nW\206- V\203 \nX\206- Y\203$ W\206- \nV\205- \n X\207" [start0 start1 end1 end0] 2 (#$ . 67625)]) (defalias 'isearch-close-unnecessary-overlays #[(begin end) "\306 \306\211\203\\ @\307\f \310\n!\311\n!$\203# \nB\202U \312\n\313\"\211 \2036 \n\314\"\210\202T \315\n\316\312\n\317\"#\210\315\n\320\312\n\321\"#\210\315\n\317\306#\210\315\n\321\306#\210) A\211\204\f +\306\207" [isearch-opened-overlays overlays ov #1=#:--cl-dolist-temp-- begin end nil isearch-intersects-p overlay-start overlay-end overlay-get isearch-open-invisible-temporary t overlay-put invisible isearch-invisible intangible isearch-intangible fct-temp] 7]) #@56 Return t if all the text from BEG to END is invisible. (defalias 'isearch-range-invisible #[(beg end) " U?\205\355 \212b\210\n\306=\307\211 \203 \203 \310 \"\210` W\203\311 \311`\312\" \313=\2036 \202C >\206C \236)\203\311 \314`\312\"\203[ \315`\312\307 $b\210\307\202 \f\203\301 \316`!\307\211\211 \211 \203\266 @\317\312\"\313=\203\211 \202\226 >\204\231 \236\203\255 \317\320\"\203\253 B\202\255 \307A\211\204q \f\203\300 \321 \",\322`!b\210\202 ` Y\205\354 \f\203\350 :\203\350 \321 \"\323\324 \"\210\307\202\354 \313\211 +\207" [beg end search-invisible crt-overlays can-be-opened isearch-hide-immediately open nil isearch-close-unnecessary-overlays get-char-property invisible t get-text-property next-single-property-change overlays-at overlay-get isearch-open-invisible append next-overlay-change mapc isearch-open-overlay-temporary prop buffer-invisibility-spec invis-prop o ov-list overlays isearch-opened-overlays isearch-hidden] 6 (#$ . 68416)]) #@248 Test whether the current search hit is visible at least partially. Return non-nil if the text from BEG to END is visible to Isearch as determined by `isearch-range-invisible' unless invisible text can be searched too when `search-invisible' is t. (defalias 'isearch-filter-visible #[(beg end) "\303=\206 \304 \n\"?\207" [search-invisible beg end t isearch-range-invisible] 3 (#$ . 69452)]) #@175 Return t if there are no upper case chars in STRING. If REGEXP-FLAG is non-nil, disregard letters preceded by `\' (but not `\\') since they have special meaning in a regexp. (defalias 'isearch-no-upper-case-p #[(string regexp-flag) "\306\307G\306 \204> \nW\203> H \203( \310=\203( \f?\2027 \f\2045 \211\227=\2045 \311\306) T\202 \206R \205R \312\313\"\205R \314\315\316\217,?\207" [string found len i quote-flag char nil 0 92 t string-match "\\[:\\(upp\\|low\\)er:]" err (byte-code "\301\302\211\224O\303\"\210\304\207" [string string-match 0 "" nil] 4) ((invalid-regexp (byte-code "\211A@)\302\232\207" [err x "Unmatched [ or [^"] 3))) regexp-flag] 4 (#$ . 69851)]) (defalias 'isearch-text-char-description #[(c) "\301W\203 \302\303\304\\\"\207\305U\203 \306\207\307!\207" [c 32 format "^%c" 64 127 "^?" char-to-string] 4]) (defalias 'isearch-unread #[(&rest char-or-events) "\302\303\"\210\304 \"\211\207" [char-or-events unread-command-events mapc store-kbd-macro-event append] 3]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list isearch-overlay default-boundp set-default nil] 3) (defalias 'isearch-highlight #[(beg end) "\205 \203 \305 \n p$\207\306\n \"\307 \310\311#\210\307 \312\f#\207" [search-highlight isearch-overlay beg end isearch move-overlay make-overlay overlay-put priority 1001 face] 5]) (defalias 'isearch-dehighlight #[nil "\205 \301!\207" [isearch-overlay delete-overlay] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\304\"\210\310B\302\310!\204K \303\310\304\"\210\311B\302\311!\204Z \303\311\304\"\210\312B\302\312!\204i \303\312\304\"\210\313B\302\313!\204x \303\313\304\"\210\314B\302\314!\204\207 \303\314\304\"\210\315B\302\315!\204\226 \303\315\304\"\210\316B\302\316!\204\245 \303\316\304\"\210\317B\302\317!\204\264 \303\317\304\"\210\320B\302\320!\204\303 \303\320\304\"\210\321B\302\321!\204\322 \303\321\304\"\210\304\207" [current-load-list isearch-lazy-highlight-overlays default-boundp set-default nil isearch-lazy-highlight-wrapped isearch-lazy-highlight-start-limit isearch-lazy-highlight-end-limit isearch-lazy-highlight-start isearch-lazy-highlight-end isearch-lazy-highlight-timer isearch-lazy-highlight-last-string isearch-lazy-highlight-window isearch-lazy-highlight-window-start isearch-lazy-highlight-window-end isearch-lazy-highlight-case-fold-search isearch-lazy-highlight-regexp isearch-lazy-highlight-space-regexp] 3) #@249 Stop lazy highlighting and remove extra highlighting from current buffer. FORCE non-nil means do it whether or not `lazy-highlight-cleanup' is nil. This function is called when exiting an incremental search if `lazy-highlight-cleanup' is non-nil. (defalias 'lazy-highlight-cleanup #[(&optional force) "\204 \203 \n\203 \304\n@!\210\nA\211\204\f \205# \305 !\210\306\211\207" [force lazy-highlight-cleanup isearch-lazy-highlight-overlays isearch-lazy-highlight-timer delete-overlay cancel-timer nil] 3 (#$ . 72441) '(t)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias isearch-lazy-highlight-cleanup lazy-highlight-cleanup nil make-obsolete "22.1"] 4) #@297 Cleanup any previous `lazy-highlight' loop and begin a new one. BEG and END specify the bounds within which highlighting should occur. This is called when `isearch-update' is invoked (which can cause the search string to change or the window to scroll). It is also used by other Emacs features. (defalias 'isearch-lazy-highlight-new-loop #[(&optional beg end) "?\205y \306\307!\205y \n\232\2037 \310 =\2037 \f =\2037 =\2037 \311 U\2037 \312 U?\205y \313\314!\210?\205y \310 \311 \312 `` \315 \316\232?\205y \317 \315\320#\211 \207" [executing-kbd-macro isearch-string isearch-lazy-highlight-last-string isearch-lazy-highlight-window isearch-lazy-highlight-case-fold-search isearch-case-fold-search sit-for 0 selected-window window-start window-end lazy-highlight-cleanup t nil "" run-with-idle-timer isearch-lazy-highlight-update isearch-lazy-highlight-regexp isearch-regexp isearch-lazy-highlight-window-start isearch-lazy-highlight-window-end isearch-error beg isearch-lazy-highlight-start-limit end isearch-lazy-highlight-end-limit isearch-lazy-highlight-start isearch-lazy-highlight-end isearch-lazy-highlight-wrapped search-whitespace-regexp isearch-lazy-highlight-space-regexp lazy-highlight-initial-delay isearch-lazy-highlight-timer] 4 (#$ . 73127)]) #@137 Search ahead for the next or previous match, for lazy highlighting. Attempt to do the search exactly the way the pending Isearch would. (defalias 'isearch-lazy-highlight-search #[nil "\300\301\302\217\207" [nil (byte-code " \n\306\307\306 \203 \f\206 d \203 \f\202 \310 ^\2020 \206$ e \203- \202/ \311 ] \203a \312\307#\211\203Z \313\224\313\225\"\203> \306\211\204C .\207" [isearch-lazy-highlight-case-fold-search isearch-lazy-highlight-regexp isearch-lazy-highlight-space-regexp isearch-forward isearch-lazy-highlight-end-limit isearch-lazy-highlight-wrapped nil t window-end window-start isearch-search-string 0 isearch-lazy-highlight-start isearch-lazy-highlight-start-limit isearch-lazy-highlight-end bound success retry search-invisible search-spaces-regexp isearch-regexp case-fold-search isearch-lazy-highlight-last-string isearch-filter-predicate] 9) ((error))] 3 (#$ . 74439)]) #@58 Update highlighting of other matches for current search. (defalias 'isearch-lazy-highlight-update #[nil "\304\305\305\306\307\217+\207" [lazy-highlight-max-at-a-time nomore looping max t nil (byte-code "\306\307 \310\311\312 \"r\313\216\314 !\203 \307 =\204 \315 !\210\212\316 \317\216 \203. \2020 b\210!\203\320 \"#\203N #S\211#\321X\203N \306!\"\203\326 \321\224\321\225 $\211 %$U\203\242 \203\204 %&\203r \202t \322 U\203~ \306\"\202\310 \323u\210\202\310 %&\203\220 \202\222 \324 U\203\234 \306\"\202\310 \325u\210\202\310 \326%$\"\211 '(B(\327'\330\331#\210\327'\332)#\210\327'\333\307 #\210) \203\322 ` \202\325 ` *\"\204&\203\351 \306!\334*\202\334& \203\324 +\206\372 e\324 ]b\210\202\322 ,\206\fd\322 ^b\210)\2022 *?\205$\335-\306\336#\211..\207" [inhibit-quit save-selected-window-alist save-selected-window-window isearch-lazy-highlight-window save-match-data-internal isearch-forward nil 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)) window-live-p select-window match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) isearch-lazy-highlight-search 0 window-end 1 window-start -1 make-overlay overlay-put priority 1000 face window t run-at-time isearch-lazy-highlight-update isearch-lazy-highlight-end isearch-lazy-highlight-start looping found max me mb isearch-lazy-highlight-wrapped ov isearch-lazy-highlight-overlays lazy-highlight-face nomore isearch-lazy-highlight-start-limit isearch-lazy-highlight-end-limit lazy-highlight-interval isearch-lazy-highlight-timer] 5) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2)))] 3 (#$ . 75371)]) #@348 Resume an incremental search. STRING is the string or regexp searched for. REGEXP non-nil means the resumed search was a regexp search. WORD non-nil means resume a word search. FORWARD non-nil means resume a forward search. MESSAGE is the echo-area message recorded for the search resumed. CASE-FOLD non-nil means the search was case-insensitive. (defalias 'isearch-resume #[(string regexp word forward message case-fold) "\306 \307\211\n%\210 \n \f\310 \210\311 \207" [forward regexp word string isearch-string message isearch-mode nil isearch-search isearch-update isearch-message case-fold isearch-case-fold-search] 6 (#$ . 77412)])
Close
