blob: 229b2d317fc154fc29976bf01c25feb5897461f1 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30	"\300\301\302\303\304\305\306\30
01c0	37 26 07 5c 32 31 30 5c 33 31 30 5c 33 31 31 21 5c 32 30 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65	7&.\210\310\311!\207".[custom-de
01e0	63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 65 6e 67 69 6e 65 2f 6b 65 79 62 69 6e 64 69 6e 67	clare-variable.engine/keybinding
0200	2d 70 72 65 66 69 78 20 22 43 2d 78 20 2f 22 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 65 6e 67	-prefix."C-x./"."The.default.eng
0220	69 6e 65 2d 6d 6f 64 65 20 6b 65 79 62 69 6e 64 69 6e 67 73 20 70 72 65 66 69 78 2e 22 20 3a 67	ine-mode.keybindings.prefix.".:g
0240	72 6f 75 70 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 3a 74 79 70 65 20 73 74 72 69 6e 67 20 64 65	roup.engine-mode.:type.string.de
0260	66 69 6e 65 2d 70 72 65 66 69 78 2d 63 6f 6d 6d 61 6e 64 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d	fine-prefix-command.engine-mode-
0280	70 72 65 66 69 78 65 64 2d 6d 61 70 5d 20 38 29 0a 23 40 32 37 20 4b 65 79 6d 61 70 20 66 6f 72	prefixed-map].8).#@27.Keymap.for
02a0	20 60 65 6e 67 69 6e 65 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 20 65 6e 67 69 6e 65 2d	.`engine-mode'...(defvar.engine-
02c0	6d 6f 64 65 2d 6d 61 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 33 20 18 5c 33 30 34 08	mode-map.(byte-code."\303..\304.
02e0	5c 33 30 35 09 21 5c 6e 23 5c 32 31 30 08 29 5c 32 30 37 22 20 5b 6d 61 70 20 65 6e 67 69 6e 65	\305.!\n#\210.)\207".[map.engine
0300	2f 6b 65 79 62 69 6e 64 69 6e 67 2d 70 72 65 66 69 78 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d 70	/keybinding-prefix.engine-mode-p
0320	72 65 66 69 78 65 64 2d 6d 61 70 20 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 64	refixed-map.make-sparse-keymap.d
0340	65 66 69 6e 65 2d 6b 65 79 20 6b 62 64 5d 20 34 29 20 28 23 24 20 2e 20 36 36 32 29 29 0a 23 40	efine-key.kbd].4).(#$...662)).#@
0360	31 30 34 20 4e 6f 6e 2d 6e 69 6c 20 69 66 20 45 6e 67 69 6e 65 20 6d 6f 64 65 20 69 73 20 65 6e	104.Non-nil.if.Engine.mode.is.en
0380	61 62 6c 65 64 2e 0a 53 65 65 20 74 68 65 20 60 65 6e 67 69 6e 65 2d 6d 6f 64 65 27 20 63 6f 6d	abled..See.the.`engine-mode'.com
03a0	6d 61 6e 64 0a 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 6d	mand.for.a.description.of.this.m
03c0	69 6e 6f 72 20 6d 6f 64 65 2e 1f 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69	inor.mode...(custom-declare-vari
03e0	61 62 6c 65 20 27 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 6e 69 6c 20 27 28 23 24 20 2e 20 38 36 38	able.'engine-mode.nil.'(#$...868
0400	29 20 3a 73 65 74 20 27 63 75 73 74 6f 6d 2d 73 65 74 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 3a 69	).:set.'custom-set-minor-mode.:i
0420	6e 69 74 69 61 6c 69 7a 65 20 27 63 75 73 74 6f 6d 2d 69 6e 69 74 69 61 6c 69 7a 65 2d 64 65 66	nitialize.'custom-initialize-def
0440	61 75 6c 74 20 3a 67 72 6f 75 70 20 27 65 6e 67 69 6e 65 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65	ault.:group.'engine.:type.'boole
0460	61 6e 29 0a 23 40 38 38 20 4d 69 6e 6f 72 20 6d 6f 64 65 20 66 6f 72 20 64 65 66 69 6e 69 6e 67	an).#@88.Minor.mode.for.defining
0480	20 61 6e 64 20 71 75 65 72 79 69 6e 67 20 73 65 61 72 63 68 20 65 6e 67 69 6e 65 73 20 74 68 72	.and.querying.search.engines.thr
04a0	6f 75 67 68 20 45 6d 61 63 73 2e 0a 0a 5c 7b 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d 6d 61 70 7d 1f	ough.Emacs...\{engine-mode-map}.
04c0	0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 23 5b 28 26 6f 70 74 69	.(defalias.'engine-mode.#[(&opti
04e0	6f 6e 61 6c 20 61 72 67 29 20 22 5c 33 30 33 20 18 5c 33 30 34 5c 33 30 35 09 5c 33 30 36 3d 5c	onal.arg)."\303..\304\305.\306=\
0500	32 30 33 12 00 5c 33 30 37 5c 33 30 35 21 3f 5c 32 30 32 17 00 5c 33 31 30 09 21 5c 33 31 31 56	203..\307\305!?\202..\310.!\311V
0520	5c 22 5c 32 31 30 5c 33 31 32 5c 33 31 33 5c 33 30 37 5c 33 30 35 21 5c 32 30 33 25 00 5c 33 31	\"\210\312\313\307\305!\203%.\31
0540	34 5c 32 30 32 26 00 5c 33 31 35 5c 22 5c 32 31 30 5c 33 31 36 5c 33 31 37 21 5c 32 30 33 51 00	4\202&.\315\"\210\316\317!\203Q.
0560	5c 33 32 30 5c 33 30 35 21 5c 32 31 30 5c 33 30 33 20 5c 32 30 33 3e 00 08 5c 33 30 33 20 5c 32	\320\305!\210\303.\203>..\303.\2
0580	33 32 5c 32 30 33 51 00 5c 33 32 31 1a 5c 33 32 32 5c 33 32 33 5c 33 30 37 5c 33 30 35 21 5c 32	32\203Q.\321.\322\323\307\305!\2
05a0	30 33 4c 00 5c 33 32 34 5c 32 30 32 4d 00 5c 33 32 35 5c 6e 23 5c 32 31 30 29 29 5c 33 32 36 20	03L.\324\202M.\325\n#\210))\326.
05c0	5c 32 31 30 5c 33 30 37 5c 33 30 35 21 5c 32 30 37 22 20 5b 23 31 3d 23 3a 6c 61 73 74 2d 6d 65	\210\307\305!\207".[#1=#:last-me
05e0	73 73 61 67 65 20 61 72 67 20 6c 6f 63 61 6c 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20	ssage.arg.local.current-message.
0600	73 65 74 2d 64 65 66 61 75 6c 74 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 74 6f 67 67 6c 65 20 64	set-default.engine-mode.toggle.d
0620	65 66 61 75 6c 74 2d 76 61 6c 75 65 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75	efault-value.prefix-numeric-valu
0640	65 20 30 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 65	e.0.run-hooks.engine-mode-hook.e
0660	6e 67 69 6e 65 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d 6f	ngine-mode-on-hook.engine-mode-o
0680	66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 61	ff-hook.called-interactively-p.a
06a0	6e 79 20 63 75 73 74 6f 6d 69 7a 65 2d 6d 61 72 6b 2d 61 73 2d 73 65 74 20 22 22 20 6d 65 73 73	ny.customize-mark-as-set."".mess
06c0	61 67 65 20 22 45 6e 67 69 6e 65 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22	age."Engine.mode.%sabled%s"."en"
06e0	20 22 64 69 73 22 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 34	."dis".force-mode-line-update].4
0700	20 28 23 24 20 2e 20 31 31 32 39 29 20 28 6c 69 73 74 20 28 6f 72 20 63 75 72 72 65 6e 74 2d 70	.(#$...1129).(list.(or.current-p
0720	72 65 66 69 78 2d 61 72 67 20 27 74 6f 67 67 6c 65 29 29 5d 29 0a 23 40 31 37 36 20 48 6f 6f 6b	refix-arg.'toggle))]).#@176.Hook
0740	20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 20 6c 65 61 76 69 6e 67 20 60	.run.after.entering.or.leaving.`
0760	65 6e 67 69 6e 65 2d 6d 6f 64 65 27 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74	engine-mode'..No.problems.result
0780	20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 0a	.if.this.variable.is.not.bound..
07a0	60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69	`add-hook'.automatically.binds.i
07c0	74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76	t...(This.is.true.for.all.hook.v
07e0	61 72 69 61 62 6c 65 73 2e 29 1f 0a 28 64 65 66 76 61 72 20 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d	ariables.)..(defvar.engine-mode-
0800	68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 31 38 35 32 29 29 0a 28 62 79 74 65 2d 63 6f 64 65	hook.nil.(#$...1852)).(byte-code
0820	20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 33 30 33 5c 32 31 31 25 5c 32 30 37 22 20 5b 65	."\301\302\303.\303\211%\207".[e
0840	6e 67 69 6e 65 2d 6d 6f 64 65 2d 6d 61 70 20 61 64 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 65 6e	ngine-mode-map.add-minor-mode.en
0860	67 69 6e 65 2d 6d 6f 64 65 20 6e 69 6c 5d 20 36 29 0a 23 40 31 34 38 20 42 69 6e 64 20 74 68 65	gine-mode.nil].6).#@148.Bind.the
0880	20 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 6b 65 79 6d 61 70 20 74 6f 20 61 20 6e 65 77 20 70 72 65	.engine-mode.keymap.to.a.new.pre
08a0	66 69 78 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 6f 20 75 73 65 20 22 43 2d 63 20 73 22	fix..For.example,.to.use."C-c.s"
08c0	20 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 22 43 2d 78 20 2f 22 3a	.instead.of.the.default."C-x./":
08e0	0a 0a 28 65 6e 67 69 6e 65 2f 73 65 74 2d 6b 65 79 6d 61 70 2d 70 72 65 66 69 78 20 28 6b 62 64	..(engine/set-keymap-prefix.(kbd
0900	20 22 43 2d 63 20 73 22 29 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 73 65	."C-c.s"))..(defalias.'engine/se
0920	74 2d 6b 65 79 6d 61 70 2d 70 72 65 66 69 78 20 23 5b 28 70 72 65 66 69 78 2d 6b 65 79 29 20 22	t-keymap-prefix.#[(prefix-key)."
0940	5c 33 30 34 08 5c 33 30 35 09 21 5c 33 30 36 23 5c 32 31 30 5c 33 30 34 08 5c 6e 0b 23 5c 32 30	\304.\305.!\306#\210\304.\n.#\20
0960	37 22 20 5b 65 6e 67 69 6e 65 2d 6d 6f 64 65 2d 6d 61 70 20 65 6e 67 69 6e 65 2f 6b 65 79 62 69	7".[engine-mode-map.engine/keybi
0980	6e 64 69 6e 67 2d 70 72 65 66 69 78 20 70 72 65 66 69 78 2d 6b 65 79 20 65 6e 67 69 6e 65 2d 6d	nding-prefix.prefix-key.engine-m
09a0	6f 64 65 2d 70 72 65 66 69 78 65 64 2d 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 6b 62 64 20	ode-prefixed-map.define-key.kbd.
09c0	6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 32 31 36 38 29 5d 29 0a 23 40 31 34 30 20 54 68 65 20 64	nil].4.(#$...2168)]).#@140.The.d
09e0	65 66 61 75 6c 74 20 62 72 6f 77 73 65 72 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 77 68 65	efault.browser.function.used.whe
0a00	6e 20 6f 70 65 6e 69 6e 67 20 61 20 55 52 4c 20 69 6e 20 61 6e 20 65 6e 67 69 6e 65 2e 0a 44 65	n.opening.a.URL.in.an.engine..De
0a20	66 61 75 6c 74 73 20 74 6f 20 60 6e 69 6c 27 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 6f 20 67	faults.to.`nil'.which.means.to.g
0a40	6f 20 77 69 74 68 20 60 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74	o.with.`browse-url-browser-funct
0a60	69 6f 6e 27 2e 1f 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20	ion'...(custom-declare-variable.
0a80	27 65 6e 67 69 6e 65 2f 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 27 28 23	'engine/browser-function.nil.'(#
0aa0	24 20 2e 20 32 35 32 33 29 20 3a 67 72 6f 75 70 20 27 65 6e 67 69 6e 65 2d 6d 6f 64 65 20 3a 74	$...2523).:group.'engine-mode.:t
0ac0	79 70 65 20 27 73 79 6d 62 6f 6c 29 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 73	ype.'symbol).(defalias.'engine/s
0ae0	65 61 72 63 68 2d 70 72 6f 6d 70 74 20 23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 64 65 66 61	earch-prompt.#[(engine-name.defa
0b00	75 6c 74 2d 77 6f 72 64 29 20 22 08 5c 33 30 32 5c 32 33 30 5c 32 30 33 0d 00 5c 33 30 33 5c 33	ult-word).".\302\230\203..\303\3
0b20	30 34 5c 33 30 35 09 21 5c 22 5c 32 30 37 5c 33 30 33 5c 33 30 36 5c 33 30 35 09 21 08 23 5c 32	04\305.!\"\207\303\306\305.!.#\2
0b40	30 37 22 20 5b 64 65 66 61 75 6c 74 2d 77 6f 72 64 20 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 22 22	07".[default-word.engine-name.""
0b60	20 66 6f 72 6d 61 74 20 22 53 65 61 72 63 68 20 25 73 3a 20 22 20 63 61 70 69 74 61 6c 69 7a 65	.format."Search.%s:.".capitalize
0b80	20 22 53 65 61 72 63 68 20 25 73 20 28 25 73 29 3a 20 22 5d 20 34 5d 29 0a 28 64 65 66 61 6c 69	."Search.%s.(%s):."].4]).(defali
0ba0	61 73 20 27 65 6e 67 69 6e 65 2f 70 72 6f 6d 70 74 65 64 2d 73 65 61 72 63 68 2d 74 65 72 6d 20	as.'engine/prompted-search-term.
0bc0	23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 29 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 30 36 07 00	#[(engine-name)."\302\303!\206..
0be0	5c 33 30 34 18 5c 33 30 35 5c 33 30 36 09 08 5c 22 5c 33 30 37 5c 32 31 31 08 24 29 5c 32 30 37	\304.\305\306..\"\307\211.$)\207
0c00	22 20 5b 63 75 72 72 65 6e 74 2d 77 6f 72 64 20 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 74 68 69 6e	".[current-word.engine-name.thin
0c20	67 2d 61 74 2d 70 6f 69 6e 74 20 73 79 6d 62 6f 6c 20 22 22 20 72 65 61 64 2d 73 74 72 69 6e 67	g-at-point.symbol."".read-string
0c40	20 65 6e 67 69 6e 65 2f 73 65 61 72 63 68 2d 70 72 6f 6d 70 74 20 6e 69 6c 5d 20 35 5d 29 0a 23	.engine/search-prompt.nil].5]).#
0c60	40 36 39 20 52 65 74 75 72 6e 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 72 65 67 69 6f 6e 20 28	@69.Return.the.selected.region.(
0c80	69 66 20 61 6e 79 29 20 6f 72 20 70 72 6f 6d 70 74 20 74 68 65 20 75 73 65 72 20 66 6f 72 20 61	if.any).or.prompt.the.user.for.a
0ca0	20 71 75 65 72 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 67 65 74 2d 71	.query...(defalias.'engine/get-q
0cc0	75 65 72 79 20 23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 29 20 22 5c 33 30 31 20 5c 32 30 33 0b	uery.#[(engine-name)."\301.\203.
0ce0	00 5c 33 30 32 20 5c 33 30 33 20 7b 5c 32 30 37 5c 33 30 34 08 21 5c 32 30 37 22 20 5b 65 6e 67	.\302.\303.{\207\304.!\207".[eng
0d00	69 6e 65 2d 6e 61 6d 65 20 75 73 65 2d 72 65 67 69 6f 6e 2d 70 20 72 65 67 69 6f 6e 2d 62 65 67	ine-name.use-region-p.region-beg
0d20	69 6e 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 20 65 6e 67 69 6e 65 2f 70 72 6f 6d 70 74 65	inning.region-end.engine/prompte
0d40	64 2d 73 65 61 72 63 68 2d 74 65 72 6d 5d 20 32 20 28 23 24 20 2e 20 33 31 37 32 29 5d 29 0a 23	d-search-term].2.(#$...3172)]).#
0d60	40 33 35 20 44 69 73 70 6c 61 79 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 74 68 65 20 71	@35.Display.the.results.of.the.q
0d80	75 65 72 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 65 78 65 63 75 74 65	uery...(defalias.'engine/execute
0da0	2d 73 65 61 72 63 68 20 23 5b 28 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 2d 75 72 6c 20 62 72 6f	-search.#[(search-engine-url.bro
0dc0	77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 73 65 61 72 63 68 2d 74 65 72 6d 29 20 22 08 5c 32 30	wser-function.search-term).".\20
0de0	36 05 00 09 19 5c 33 30 34 5c 33 30 35 5c 6e 5c 33 30 36 5c 33 30 37 5c 33 31 30 0b 21 5c 22 5c	6....\304\305\n\306\307\310.!\"\
0e00	22 21 29 5c 32 30 37 22 20 5b 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 62 72 6f 77 73	"!)\207".[browser-function.brows
0e20	65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 73 65 61 72 63 68 2d 65 6e	e-url-browser-function.search-en
0e40	67 69 6e 65 2d 75 72 6c 20 73 65 61 72 63 68 2d 74 65 72 6d 20 62 72 6f 77 73 65 2d 75 72 6c 20	gine-url.search-term.browse-url.
0e60	66 6f 72 6d 61 74 2d 73 70 65 63 20 66 6f 72 6d 61 74 2d 73 70 65 63 2d 6d 61 6b 65 20 31 31 35	format-spec.format-spec-make.115
0e80	20 75 72 6c 2d 68 65 78 69 66 79 2d 73 74 72 69 6e 67 5d 20 37 20 28 23 24 20 2e 20 33 34 32 38	.url-hexify-string].7.(#$...3428
0ea0	29 20 6e 69 6c 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 66 75 6e 63 74 69	).nil]).(defalias.'engine/functi
0ec0	6f 6e 2d 6e 61 6d 65 20 23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 29 20 22 5c 33 30 31 5c 33 30	on-name.#[(engine-name)."\301\30
0ee0	32 5c 33 30 33 08 21 5c 32 32 37 50 21 5c 32 30 37 22 20 5b 65 6e 67 69 6e 65 2d 6e 61 6d 65 20	2\303.!\227P!\207".[engine-name.
0f00	69 6e 74 65 72 6e 20 22 65 6e 67 69 6e 65 2f 73 65 61 72 63 68 2d 22 20 73 79 6d 62 6f 6c 2d 6e	intern."engine/search-".symbol-n
0f20	61 6d 65 5d 20 34 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 64 6f 63 73 74	ame].4]).(defalias.'engine/docst
0f40	72 69 6e 67 20 23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 29 20 22 5c 33 30 31 5c 33 30 32 5c 33	ring.#[(engine-name)."\301\302\3
0f60	30 33 08 21 21 5c 33 30 34 51 5c 32 30 37 22 20 5b 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 22 53 65	03.!!\304Q\207".[engine-name."Se
0f80	61 72 63 68 20 22 20 63 61 70 69 74 61 6c 69 7a 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 20	arch.".capitalize.symbol-name.".
0fa0	66 6f 72 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 74 65 78 74 2e 20 50 72 6f 6d 70 74 20 66 6f	for.the.selected.text..Prompt.fo
0fc0	72 20 69 6e 70 75 74 20 69 66 20 6e 6f 6e 65 20 69 73 20 73 65 6c 65 63 74 65 64 2e 22 5d 20 34	r.input.if.none.is.selected."].4
0fe0	5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 65 6e 67 69 6e 65 2f 62 69 6e 64 2d 6b 65 79 20 23 5b	]).(defalias.'engine/bind-key.#[
1000	28 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 6b 65 79 62 69 6e 64 69 6e 67 29 20 22 08 5c 32 30 35 0d	(engine-name.keybinding).".\205.
1020	00 5c 33 30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 09 21 44 46 5c 32 30 37 22 20 5b 6b 65 79	.\302\303.\304\305.!DF\207".[key
1040	62 69 6e 64 69 6e 67 20 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 64 65 66 69 6e 65 2d 6b 65 79 20 65	binding.engine-name.define-key.e
1060	6e 67 69 6e 65 2d 6d 6f 64 65 2d 70 72 65 66 69 78 65 64 2d 6d 61 70 20 71 75 6f 74 65 20 65 6e	ngine-mode-prefixed-map.quote.en
1080	67 69 6e 65 2f 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 5d 20 36 5d 29 0a 23 40 31 34 35 34 20 44	gine/function-name].6]).#@1454.D
10a0	65 66 69 6e 65 20 61 20 63 75 73 74 6f 6d 20 73 65 61 72 63 68 20 65 6e 67 69 6e 65 2e 0a 0a 60	efine.a.custom.search.engine...`
10c0	65 6e 67 69 6e 65 2d 6e 61 6d 65 27 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 69 6e 67 20	engine-name'.is.a.symbol.naming.
10e0	74 68 65 20 65 6e 67 69 6e 65 2e 0a 60 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 2d 75 72 6c 27 20	the.engine..`search-engine-url'.
1100	69 73 20 74 68 65 20 75 72 6c 20 74 6f 20 62 65 20 71 75 65 72 69 65 64 2c 20 77 69 74 68 20 61	is.the.url.to.be.queried,.with.a
1120	20 22 25 73 22 0a 73 74 61 6e 64 69 6e 67 20 69 6e 20 66 6f 72 20 74 68 65 20 73 65 61 72 63 68	."%s".standing.in.for.the.search
1140	20 74 65 72 6d 2e 0a 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 77 6f 72 64 20 61 72 67 75	.term..The.optional.keyword.argu
1160	6d 65 6e 74 20 60 64 6f 63 73 74 72 69 6e 67 27 20 61 73 73 69 67 6e 73 20 61 20 64 6f 63 73 74	ment.`docstring'.assigns.a.docst
1180	72 69 6e 67 20 74 6f 0a 74 68 65 20 67 65 6e 65 72 61 74 65 64 20 66 75 6e 63 74 69 6f 6e 2e 20	ring.to.the.generated.function..
11a0	41 20 72 65 61 73 6f 6e 61 62 6c 79 20 73 65 6e 73 69 62 6c 65 20 64 6f 63 73 74 72 69 6e 67 20	A.reasonably.sensible.docstring.
11c0	77 69 6c 6c 20 62 65 0a 67 65 6e 65 72 61 74 65 64 20 69 66 20 61 20 63 75 73 74 6f 6d 20 6f 6e	will.be.generated.if.a.custom.on
11e0	65 20 69 73 6e 27 74 20 70 72 6f 76 69 64 65 64 2e 0a 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 6b	e.isn't.provided..The.optional.k
1200	65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 60 62 72 6f 77 73 65 72 60 20 61 73 73 69 67 6e	eyword.argument.`browser`.assign
1220	73 20 74 68 65 20 62 72 6f 77 73 65 72 0a 66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 75 73 65	s.the.browser.function.to.be.use
1240	64 20 77 68 65 6e 20 6f 70 65 6e 69 6e 67 20 74 68 65 20 55 52 4c 2e 0a 54 68 65 20 6f 70 74 69	d.when.opening.the.URL..The.opti
1260	6f 6e 61 6c 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 60 74 65 72 6d 2d 74 72 61 6e	onal.keyword.argument.`term-tran
1280	73 66 6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f 6b 27 20 69 73 20 61 0a 66 75 6e 63 74 69 6f 6e 20 74	sformation-hook'.is.a.function.t
12a0	68 61 74 20 77 69 6c 6c 20 62 65 20 61 70 70 6c 69 65 64 20 74 6f 20 74 68 65 20 73 65 61 72 63	hat.will.be.applied.to.the.searc
12c0	68 20 74 65 72 6d 20 62 65 66 6f 72 65 20 69 74 27 73 0a 73 75 62 73 74 69 74 75 74 65 64 20 69	h.term.before.it's.substituted.i
12e0	6e 74 6f 20 60 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 2d 75 72 6c 27 2e 20 46 6f 72 20 65 78 61	nto.`search-engine-url'..For.exa
1300	6d 70 6c 65 2c 20 69 66 20 77 65 20 77 61 6e 74 65 64 0a 74 6f 20 61 6c 77 61 79 73 20 75 70 63	mple,.if.we.wanted.to.always.upc
1320	61 73 65 20 6f 75 72 20 73 65 61 72 63 68 20 74 65 72 6d 73 2c 20 77 65 20 6d 69 67 68 74 20 75	ase.our.search.terms,.we.might.u
1340	73 65 3a 0a 0a 28 64 65 66 65 6e 67 69 6e 65 20 64 75 63 6b 64 75 63 6b 67 6f 0a 20 20 22 68 74	se:..(defengine.duckduckgo..."ht
1360	74 70 73 3a 2f 2f 64 75 63 6b 64 75 63 6b 67 6f 2e 63 6f 6d 2f 3f 71 3d 25 73 22 0a 20 20 3a 74	tps://duckduckgo.com/?q=%s"...:t
1380	65 72 6d 2d 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f 6b 20 27 75 70 63 61 73 65 29	erm-transformation-hook.'upcase)
13a0	0a 0a 49 6e 20 74 68 69 73 20 63 61 73 65 2c 20 73 65 61 72 63 68 69 6e 67 20 66 6f 72 20 22 66	..In.this.case,.searching.for."f
13c0	6f 6f 62 61 72 22 20 77 69 6c 6c 20 68 69 74 20 74 68 65 20 75 72 6c 0a 22 68 74 74 70 73 3a 2f	oobar".will.hit.the.url."https:/
13e0	2f 64 75 63 6b 64 75 63 6b 67 6f 2e 63 6f 6d 2f 3f 71 3d 46 4f 4f 42 41 52 22 2e 0a 0a 54 68 65	/duckduckgo.com/?q=FOOBAR"...The
1400	20 6f 70 74 69 6f 6e 61 6c 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 60 6b 65 79 62	.optional.keyword.argument.`keyb
1420	69 6e 64 69 6e 67 27 20 69 73 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 0a 74	inding'.is.a.string.describing.t
1440	68 65 20 6b 65 79 20 74 6f 20 62 69 6e 64 20 74 68 65 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 2e	he.key.to.bind.the.new.function.
1460	0a 0a 4b 65 79 62 69 6e 64 69 6e 67 73 20 61 72 65 20 69 6e 20 74 68 65 20 60 65 6e 67 69 6e 65	..Keybindings.are.in.the.`engine
1480	2d 6d 6f 64 65 2d 6d 61 70 27 2c 20 73 6f 20 74 68 65 79 27 72 65 20 70 72 65 66 69 78 65 64 2e	-mode-map',.so.they're.prefixed.
14a0	0a 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 74 6f 20 73 65 61 72 63 68 20 57 69 6b 69 70 65 64	..For.example,.to.search.Wikiped
14c0	69 61 2c 20 75 73 65 3a 0a 0a 20 20 28 64 65 66 65 6e 67 69 6e 65 20 77 69 6b 69 70 65 64 69 61	ia,.use:....(defengine.wikipedia
14e0	0a 20 20 20 20 22 68 74 74 70 3a 2f 2f 77 77 77 2e 77 69 6b 69 70 65 64 69 61 2e 6f 72 67 2f 73	....."http://www.wikipedia.org/s
1500	65 61 72 63 68 2d 72 65 64 69 72 65 63 74 2e 70 68 70 3f 6c 61 6e 67 75 61 67 65 3d 65 6e 26 67	earch-redirect.php?language=en&g
1520	6f 3d 47 6f 26 73 65 61 72 63 68 3d 25 73 22 0a 20 20 20 20 3a 6b 65 79 62 69 6e 64 69 6e 67 20	o=Go&search=%s".....:keybinding.
1540	22 77 22 0a 20 20 20 20 3a 64 6f 63 73 74 72 69 6e 67 20 22 53 65 61 72 63 68 20 57 69 6b 69 70	"w".....:docstring."Search.Wikip
1560	65 64 69 61 21 22 29 0a 0a 48 69 74 74 69 6e 67 20 22 43 2d 78 20 2f 20 77 22 20 77 69 6c 6c 20	edia!")..Hitting."C-x./.w".will.
1580	62 65 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 6e 65 77 6c 79 2d 64 65 66 69 6e 65 64 0a 60 65	be.bound.to.the.newly-defined.`e
15a0	6e 67 69 6e 65 2f 73 65 61 72 63 68 2d 77 69 6b 69 70 65 64 69 61 27 20 66 75 6e 63 74 69 6f 6e	ngine/search-wikipedia'.function
15c0	2e 0a 0a 28 66 6e 20 45 4e 47 49 4e 45 2d 4e 41 4d 45 20 53 45 41 52 43 48 2d 45 4e 47 49 4e 45	...(fn.ENGINE-NAME.SEARCH-ENGINE
15e0	2d 55 52 4c 20 26 6b 65 79 20 4b 45 59 42 49 4e 44 49 4e 47 20 44 4f 43 53 54 52 49 4e 47 20 28	-URL.&key.KEYBINDING.DOCSTRING.(
1600	42 52 4f 57 53 45 52 20 5c 3d 27 65 6e 67 69 6e 65 2f 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69	BROWSER.\='engine/browser-functi
1620	6f 6e 29 20 28 54 45 52 4d 2d 54 52 41 4e 53 46 4f 52 4d 41 54 49 4f 4e 2d 48 4f 4f 4b 20 5c 3d	on).(TERM-TRANSFORMATION-HOOK.\=
1640	27 69 64 65 6e 74 69 74 79 29 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 64 65 66 65 6e 67 69 6e	'identity))..(defalias.'defengin
1660	65 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 73 65 61 72 63	e.'(macro...#[(engine-name.searc
1680	68 2d 65 6e 67 69 6e 65 2d 75 72 6c 20 26 72 65 73 74 20 23 31 3d 23 3a 2d 2d 63 6c 2d 72 65 73	h-engine-url.&rest.#1=#:--cl-res
16a0	74 2d 2d 29 20 22 5c 33 30 36 08 5c 33 30 37 5c 22 41 40 19 5c 33 30 36 08 5c 33 31 30 5c 22 41	t--)."\306.\307\"A@.\306.\310\"A
16c0	40 1a 5c 33 30 36 08 5c 33 31 31 5c 22 5c 32 30 36 16 00 5c 33 31 32 41 40 1b 5c 33 30 36 08 5c	@.\306.\311\"\206..\312A@.\306.\
16e0	33 31 33 5c 22 5c 32 30 36 21 00 5c 33 31 34 41 40 1c 08 1d 0d 5c 32 30 33 50 00 0d 40 5c 33 31	313\"\206!.\314A@....\203P..@\31
1700	35 3e 5c 32 30 33 39 00 0d 41 41 5c 32 31 31 15 5c 32 30 32 27 00 5c 33 31 36 08 3e 41 40 5c 32	5>\2039..AA\211.\202'.\316.>A@\2
1720	30 33 47 00 5c 33 31 37 5c 32 31 31 15 5c 32 30 32 27 00 5c 33 32 30 5c 33 32 31 0d 40 5c 22 5c	03G.\317\211.\202'.\320\321.@\"\
1740	32 31 30 5c 32 30 32 26 00 29 0e 20 39 5c 32 30 34 5b 00 5c 33 32 32 5c 33 32 33 21 5c 32 31 30	210\202&.)..9\204[.\322\323!\210
1760	5c 33 32 34 5c 33 32 35 5c 33 32 36 0e 20 21 5c 33 32 37 5c 6e 5c 32 30 36 6a 00 5c 33 33 30 0e	\324\325\326..!\327\n\206j.\330.
1780	20 21 5c 33 33 31 5c 33 33 32 5c 33 33 33 5c 33 33 34 0e 20 21 44 44 44 5c 33 33 35 0e 21 0b 5c	.!\331\332\333\334..!DDD\335.!.\
17a0	66 5c 33 33 36 42 46 5c 32 35 37 06 5c 33 33 37 0e 20 09 5c 22 45 2c 5c 32 30 37 22 20 5b 23 31	f\336BF\257.\337...\"E,\207".[#1
17c0	23 20 6b 65 79 62 69 6e 64 69 6e 67 20 64 6f 63 73 74 72 69 6e 67 20 62 72 6f 77 73 65 72 20 74	#.keybinding.docstring.browser.t
17e0	65 72 6d 2d 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f 6b 20 23 32 3d 23 3a 2d 2d 63	erm-transformation-hook.#2=#:--c
1800	6c 2d 6b 65 79 73 2d 2d 20 70 6c 69 73 74 2d 6d 65 6d 62 65 72 20 3a 6b 65 79 62 69 6e 64 69 6e	l-keys--.plist-member.:keybindin
1820	67 20 3a 64 6f 63 73 74 72 69 6e 67 20 3a 62 72 6f 77 73 65 72 20 28 6e 69 6c 20 65 6e 67 69 6e	g.:docstring.:browser.(nil.engin
1840	65 2f 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 29 20 3a 74 65 72 6d 2d 74 72 61 6e 73 66	e/browser-function).:term-transf
1860	6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f 6b 20 28 6e 69 6c 20 69 64 65 6e 74 69 74 79 29 20 28 3a 6b	ormation-hook.(nil.identity).(:k
1880	65 79 62 69 6e 64 69 6e 67 20 3a 64 6f 63 73 74 72 69 6e 67 20 3a 62 72 6f 77 73 65 72 20 3a 74	eybinding.:docstring.:browser.:t
18a0	65 72 6d 2d 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f 6b 20 3a 61 6c 6c 6f 77 2d 6f	erm-transformation-hook.:allow-o
18c0	74 68 65 72 2d 6b 65 79 73 29 20 3a 61 6c 6c 6f 77 2d 6f 74 68 65 72 2d 6b 65 79 73 20 6e 69 6c	ther-keys).:allow-other-keys.nil
18e0	20 65 72 72 6f 72 20 22 4b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 25 73 20 6e 6f 74 20	.error."Keyword.argument.%s.not.
1900	6f 6e 65 20 6f 66 20 28 3a 6b 65 79 62 69 6e 64 69 6e 67 20 3a 64 6f 63 73 74 72 69 6e 67 20 3a	one.of.(:keybinding.:docstring.:
1920	62 72 6f 77 73 65 72 20 3a 74 65 72 6d 2d 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2d 68 6f 6f	browser.:term-transformation-hoo
1940	6b 29 22 20 63 6c 2d 2d 61 73 73 65 72 74 69 6f 6e 2d 66 61 69 6c 65 64 20 28 73 79 6d 62 6f 6c	k)".cl--assertion-failed.(symbol
1960	70 20 65 6e 67 69 6e 65 2d 6e 61 6d 65 29 20 70 72 6f 67 31 20 64 65 66 75 6e 20 65 6e 67 69 6e	p.engine-name).prog1.defun.engin
1980	65 2f 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 28 73 65 61 72 63 68 2d 74 65 72 6d 29 20 65 6e	e/function-name.(search-term).en
19a0	67 69 6e 65 2f 64 6f 63 73 74 72 69 6e 67 20 69 6e 74 65 72 61 63 74 69 76 65 20 6c 69 73 74 20	gine/docstring.interactive.list.
19c0	65 6e 67 69 6e 65 2f 67 65 74 2d 71 75 65 72 79 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 65 6e 67	engine/get-query.symbol-name.eng
19e0	69 6e 65 2f 65 78 65 63 75 74 65 2d 73 65 61 72 63 68 20 28 73 65 61 72 63 68 2d 74 65 72 6d 29	ine/execute-search.(search-term)
1a00	20 65 6e 67 69 6e 65 2f 62 69 6e 64 2d 6b 65 79 20 65 6e 67 69 6e 65 2d 6e 61 6d 65 20 73 65 61	.engine/bind-key.engine-name.sea
1a20	72 63 68 2d 65 6e 67 69 6e 65 2d 75 72 6c 5d 20 31 32 20 28 23 24 20 2e 20 34 32 35 35 29 5d 29	rch-engine-url].12.(#$...4255)])
1a40	29 0a 28 70 72 6f 76 69 64 65 20 27 65 6e 67 69 6e 65 2d 6d 6f 64 65 29 0a	).(provide.'engine-mode).