blob: 12ecb8fd0f4a28c6e4a6fe65d916576df742ca09 (plain)

ofs	hex dump	ascii
0000	0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 65 6c 65 63 74 72 69 63 29 29 0a 0a 28 72 65	.(require.(quote.electric))..(re
0020	71 75 69 72 65 20 28 71 75 6f 74 65 20 63 68 69 73 74 6f 72 79 29 29 0a 0a 28 64 65 66 75 6e 20	quire.(quote.chistory))..(defun.
0040	45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65 78	Electric-command-history-redo-ex
0060	70 72 65 73 73 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 63 6f 6e 66 69 72 6d 29 20 22	pression.(&optional.noconfirm)."
0080	5c 0a 45 64 69 74 20 63 75 72 72 65 6e 74 20 68 69 73 74 6f 72 79 20 6c 69 6e 65 20 69 6e 20 6d	\.Edit.current.history.line.in.m
00a0	69 6e 69 62 75 66 66 65 72 20 61 6e 64 20 65 78 65 63 75 74 65 20 72 65 73 75 6c 74 2e 0a 57 69	inibuffer.and.execute.result..Wi
00c0	74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 4e 4f 43 4f 4e 46 49 52 4d 2c 20 65 78	th.prefix.argument.NOCONFIRM,.ex
00e0	65 63 75 74 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 69 73 20 77 69 74 68 6f 75 74	ecute.current.line.as.is.without
0100	20 65 64 69 74 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79	.editing.".(interactive."P").(by
0120	74 65 2d 63 6f 64 65 20 22 c2 88 c2 18 8a c3 71 88 c4 20 88 c5 70 21 89 10 88 c6 c7 21 83 28 00	te-code."......q.....p!.....!.(.
0140	08 83 24 00 c8 c9 09 08 44 5c 22 82 25 00 c2 82 29 00 c2 29 29 87 22 20 5b 74 6f 64 6f 20 6e 6f	..$.....D\".%...)..)).".[todo.no
0160	63 6f 6e 66 69 72 6d 20 6e 69 6c 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20	confirm.nil."*Command.History*".
0180	62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 61 64 20 62 6f 75 6e 64 70 20 65 6c	beginning-of-line.read.boundp.el
01a0	65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20 74 68 72 6f 77	ectric-history-in-progress.throw
01c0	20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 5d 20 37 29 29 0a 0a 28 64 65	.electric-history-quit].7))..(de
01e0	66 76 61 72 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 29 0a 0a	fvar.electric-history-map.nil)..
0200	28 69 66 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 20 28 73 65	(if.electric-history-map.nil.(se
0220	74 71 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65	tq.electric-history-map.(make-ke
0240	79 6d 61 70 29 29 20 28 66 69 6c 6c 61 72 72 61 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f	ymap)).(fillarray.electric-histo
0260	72 79 2d 6d 61 70 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 75	ry-map.(quote.Electric-history-u
0280	6e 64 65 66 69 6e 65 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d	ndefined)).(define-key.electric-
02a0	68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 22 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 20 28	history-map.".".(make-keymap)).(
02c0	66 69 6c 6c 61 72 72 61 79 20 28 6c 6f 6f 6b 75 70 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68	fillarray.(lookup-key.electric-h
02e0	69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 22 29 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d	istory-map.".").(quote.Electric-
0300	68 69 73 74 6f 72 79 2d 75 6e 64 65 66 69 6e 65 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	history-undefined)).(define-key.
0320	65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 15 22 20 28 71 75 6f 74 65 20	electric-history-map.".".(quote.
0340	75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	universal-argument)).(define-key
0360	20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65	.electric-history-map.".".(quote
0380	20 45 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65	.Electric-command-history-redo-e
03a0	78 70 72 65 73 73 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63	xpression)).(define-key.electric
03c0	2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 21 22 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63	-history-map."!".(quote.Electric
03e0	2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 72 65 64 6f 2d 65 78 70 72 65 73 73 69 6f 6e	-command-history-redo-expression
0400	29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d	)).(define-key.electric-history-
0420	6d 61 70 20 22 1b 18 22 20 28 71 75 6f 74 65 20 65 76 61 6c 2d 73 65 78 70 29 29 20 28 64 65 66	map."..".(quote.eval-sexp)).(def
0440	69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 04	ine-key.electric-history-map."..
0460	22 20 28 71 75 6f 74 65 20 64 6f 77 6e 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	".(quote.down-list)).(define-key
0480	20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 15 22 20 28 71 75 6f 74	.electric-history-map."..".(quot
04a0	65 20 62 61 63 6b 77 61 72 64 2d 75 70 2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	e.backward-up-list)).(define-key
04c0	20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 02 22 20 28 71 75 6f 74	.electric-history-map."..".(quot
04e0	65 20 62 61 63 6b 77 61 72 64 2d 73 65 78 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c	e.backward-sexp)).(define-key.el
0500	65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 06 22 20 28 71 75 6f 74 65 20 66	ectric-history-map."..".(quote.f
0520	6f 72 77 61 72 64 2d 73 65 78 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72	orward-sexp)).(define-key.electr
0540	69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 01 22 20 28 71 75 6f 74 65 20 62 65 67 69 6e	ic-history-map."..".(quote.begin
0560	6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63	ning-of-defun)).(define-key.elec
0580	74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 05 22 20 28 71 75 6f 74 65 20 65 6e 64	tric-history-map."..".(quote.end
05a0	2d 6f 66 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63	-of-defun)).(define-key.electric
05c0	2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 0e 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64	-history-map."..".(quote.forward
05e0	2d 6c 69 73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73	-list)).(define-key.electric-his
0600	74 6f 72 79 2d 6d 61 70 20 22 1b 10 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 6c 69	tory-map."..".(quote.backward-li
0620	73 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72	st)).(define-key.electric-histor
0640	79 2d 6d 61 70 20 22 71 22 20 28 71 75 6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72	y-map."q".(quote.Electric-histor
0660	79 2d 71 75 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69	y-quit)).(define-key.electric-hi
0680	73 74 6f 72 79 2d 6d 61 70 20 22 03 22 20 6e 69 6c 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65	story-map.".".nil).(define-key.e
06a0	6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74 65 20	lectric-history-map."..".(quote.
06c0	45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 29 29 20 28 64 65 66 69 6e 65 2d	Electric-history-quit)).(define-
06e0	6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1d 22 20 28 71 75	key.electric-history-map.".".(qu
0700	6f 74 65 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 29 29 20 28 64 65 66	ote.Electric-history-quit)).(def
0720	69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1a 22	ine-key.electric-history-map."."
0740	20 28 71 75 6f 74 65 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 29 29 20 28 64 65 66 69 6e 65 2d	.(quote.suspend-emacs)).(define-
0760	6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 08 22 20 28 71 75	key.electric-history-map.".".(qu
0780	6f 74 65 20 48 65 6c 70 65 72 2d 68 65 6c 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c	ote.Helper-help)).(define-key.el
07a0	65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 3f 22 20 28 71 75 6f 74 65 20 48 65	ectric-history-map."?".(quote.He
07c0	6c 70 65 72 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 29 29 20 28 64 65 66 69 6e 65	lper-describe-bindings)).(define
07e0	2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 3e 22 20 28	-key.electric-history-map.".>".(
0800	71 75 6f 74 65 20 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65	quote.end-of-buffer)).(define-ke
0820	79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 3c 22 20 28 71 75 6f	y.electric-history-map.".<".(quo
0840	74 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 62 75 66 66 65 72 29 29 20 28 64 65 66 69 6e 65	te.beginning-of-buffer)).(define
0860	2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0a 22 20 28 71	-key.electric-history-map.".".(q
0880	75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65	uote.next-line)).(define-key.ele
08a0	63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 6e 65 78	ctric-history-map.".".(quote.nex
08c0	74 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69	t-line)).(define-key.electric-hi
08e0	73 74 6f 72 79 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69	story-map.".".(quote.previous-li
0900	6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72	ne)).(define-key.electric-histor
0920	79 2d 6d 61 70 20 22 0e 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 20 28 64 65	y-map.".".(quote.next-line)).(de
0940	66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 10	fine-key.electric-history-map.".
0960	22 20 28 71 75 6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65	".(quote.previous-line)).(define
0980	2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 1b 76 22 20 28	-key.electric-history-map.".v".(
09a0	71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	quote.scroll-down)).(define-key.
09c0	65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 16 22 20 28 71 75 6f 74 65 20	electric-history-map.".".(quote.
09e0	73 63 72 6f 6c 6c 2d 75 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63	scroll-up)).(define-key.electric
0a00	2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 22 0c 22 20 28 71 75 6f 74 65 20 72 65 63 65 6e 74 65 72	-history-map.".".(quote.recenter
0a20	29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d	)).(define-key.electric-history-
0a40	6d 61 70 20 22 1b 16 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 6f 74 68 65 72 2d 77 69 6e	map."..".(quote.scroll-other-win
0a60	64 6f 77 29 29 29 0a 0a 28 64 65 66 76 61 72 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64	dow)))..(defvar.electric-command
0a80	2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c	-history-hook.nil."\.If.non-nil,
0aa0	20 69 74 73 20 76 61 6c 75 65 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 20 65 6c 65 63 74 72 69	.its.value.is.called.by..electri
0ac0	63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2e 22 29 0a 0a 28 64 65 66 75 6e 20 65 6c 65	c-command-history.")..(defun.ele
0ae0	63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 6e 69 6c 20 22 5c 0a 4d 61 6a	ctric-command-history.nil."\.Maj
0b00	6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 61 6e 64 20 72 65 64 6f 69 6e	or.mode.for.examining.and.redoin
0b20	67 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 20 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79	g.commands.from..command-history
0b40	2e 0a 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 20 6c 69 73 74 65 64 20 69	..The.number.of.command.listed.i
0b60	73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69	s.controlled.by..list-command-hi
0b80	73 74 6f 72 79 2d 6d 61 78 2e 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 68 69 73 74 6f 72 79 20 69	story-max..The.command.history.i
0ba0	73 20 66 69 6c 74 65 72 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74	s.filtered.by..list-command-hist
0bc0	6f 72 79 2d 66 69 6c 74 65 72 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 43 6f 6d 62 69 6e 65 73	ory-filter..if.non-nil..Combines
0be0	20 74 79 70 65 6f 75 74 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 74 20 77 69	.typeout.Command.History.list.wi
0c00	6e 64 6f 77 20 77 69 74 68 20 6d 65 6e 75 20 6c 69 6b 65 20 73 65 6c 65 63 74 69 6f 6e 0a 6f 66	ndow.with.menu.like.selection.of
0c20	20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20 68 69 73 74 6f 72 79 20	.an.expression.from.the.history.
0c40	66 6f 72 20 72 65 2d 65 76 61 6c 75 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 2a 6f 72 69 67 69 6e	for.re-evaluation.in.the.*origin
0c60	61 6c 2a 20 62 75 66 66 65 72 2e 0a 0a 54 68 65 20 68 69 73 74 6f 72 79 20 64 69 73 70 6c 61 79	al*.buffer...The.history.display
0c80	65 64 20 69 73 20 66 69 6c 74 65 72 65 64 20 62 79 20 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d	ed.is.filtered.by..list-command-
0ca0	68 69 73 74 6f 72 79 2d 66 69 6c 74 65 72 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 54 68 69	history-filter..if.non-nil...Thi
0cc0	73 20 70 6f 70 73 20 75 70 20 61 20 77 69 6e 64 6f 77 20 77 69 74 68 20 74 68 65 20 43 6f 6d 6d	s.pops.up.a.window.with.the.Comm
0ce0	61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73 74 69 6e 67 2e 20 20 49 66 20 74 68 65 20 76 65 72	and.History.listing...If.the.ver
0d00	79 0a 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 74 79 70 65 64 20 69 73 20 53 70 61 63 65 2c	y.next.character.typed.is.Space,
0d20	20 74 68 65 20 6c 69 73 74 69 6e 67 20 69 73 20 6b 69 6c 6c 65 64 20 61 6e 64 20 74 68 65 20 70	.the.listing.is.killed.and.the.p
0d40	72 65 76 69 6f 75 73 0a 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 69 73 20	revious.window.configuration.is.
0d60	72 65 73 74 6f 72 65 64 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 79 6f 75 20 63 61 6e 20 62 72	restored...Otherwise,.you.can.br
0d80	6f 77 73 65 20 69 6e 20 74 68 65 0a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 77 69 74 68	owse.in.the.Command.History.with
0da0	20 20 52 65 74 75 72 6e 20 20 6d 6f 76 69 6e 67 20 64 6f 77 6e 20 61 6e 64 20 20 44 65 6c 65 74	..Return..moving.down.and..Delet
0dc0	65 20 20 6d 6f 76 69 6e 67 20 75 70 2c 20 70 6f 73 73 69 62 6c 79 0a 73 65 6c 65 63 74 69 6e 67	e..moving.up,.possibly.selecting
0de0	20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 62 65 20 72 65 64 6f 6e 65 20 77 69 74 68	.an.expression.to.be.redone.with
0e00	20 53 70 61 63 65 20 6f 72 20 71 75 69 74 74 69 6e 67 20 77 69 74 68 20 60 51 27 2e 0a 0a 4c 69	.Space.or.quitting.with.`Q'...Li
0e20	6b 65 20 45 6d 61 63 73 2d 4c 69 73 70 20 4d 6f 64 65 20 65 78 63 65 70 74 20 74 68 61 74 20 63	ke.Emacs-Lisp.Mode.except.that.c
0e40	68 61 72 61 63 74 65 72 73 20 64 6f 20 6e 6f 74 20 69 6e 73 65 72 74 20 74 68 65 6d 73 65 6c 76	haracters.do.not.insert.themselv
0e60	65 73 20 61 6e 64 0a 54 61 62 20 61 6e 64 20 6c 69 6e 65 66 65 65 64 20 64 6f 20 6e 6f 74 20 69	es.and.Tab.and.linefeed.do.not.i
0e80	6e 64 65 6e 74 2e 20 20 49 6e 73 74 65 61 64 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73 20 61	ndent...Instead.these.commands.a
0ea0	72 65 20 70 72 6f 76 69 64 65 64 3a 0a 53 70 61 63 65 20 6f 72 20 21 09 65 64 69 74 20 74 68 65	re.provided:.Space.or.!.edit.the
0ec0	6e 20 65 76 61 6c 75 61 74 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 69 6e 20 68 69 73 74 6f	n.evaluate.current.line.in.histo
0ee0	72 79 20 69 6e 73 69 64 65 0a 09 09 20 20 20 74 68 65 20 4f 52 49 47 49 4e 41 4c 20 62 75 66 66	ry.inside......the.ORIGINAL.buff
0f00	65 72 20 77 68 69 63 68 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 6d 6f 64 65 2e 0a 09 09 20 20	er.which.invoked.this.mode......
0f20	20 54 68 65 20 70 72 65 76 69 6f 75 73 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69	.The.previous.window.configurati
0f40	6f 6e 20 69 73 20 72 65 73 74 6f 72 65 64 0a 09 09 20 20 20 75 6e 6c 65 73 73 20 74 68 65 20 69	on.is.restored......unless.the.i
0f60	6e 76 6f 6b 65 64 20 63 6f 6d 6d 61 6e 64 20 63 68 61 6e 67 65 73 20 69 74 2e 0a 43 2d 63 20 43	nvoked.command.changes.it..C-c.C
0f80	2d 63 2c 20 43 2d 5d 2c 20 51 09 51 75 69 74 20 61 6e 64 20 72 65 73 74 6f 72 65 20 70 72 65 76	-c,.C-],.Q.Quit.and.restore.prev
0fa0	69 6f 75 73 20 77 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 4c 46 44 2c 20	ious.window.configuration..LFD,.
0fc0	52 45 54 09 4d 6f 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 20 69 6e 20 74 68 65	RET.Move.to.the.next.line.in.the
0fe0	20 68 69 73 74 6f 72 79 2e 0a 44 45 4c 09 09 4d 6f 76 65 20 74 6f 20 74 68 65 20 70 72 65 76 69	.history..DEL..Move.to.the.previ
1000	6f 75 73 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 68 69 73 74 6f 72 79 2e 0a 3f 09 09 50 72 6f 76	ous.line.in.the.history..?..Prov
1020	69 64 65 73 20 61 20 63 6f 6d 70 6c 65 74 65 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 73	ides.a.complete.list.of.commands
1040	2e 0a 0a 43 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 20 65 6c 65 63 74 72 69 63 2d	...Calls.the.value.of..electric-
1060	63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 68 6f 6f 6b 20 20 69 66 20 74 68 61 74 20 69 73	command-history-hook..if.that.is
1080	20 6e 6f 6e 2d 6e 69 6c 0a 54 68 65 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 20 6c 69 73	.non-nil.The.Command.History.lis
10a0	74 69 6e 67 20 69 73 20 72 65 63 6f 6d 70 75 74 65 64 20 65 61 63 68 20 74 69 6d 65 20 74 68 69	ting.is.recomputed.each.time.thi
10c0	73 20 6d 6f 64 65 20 69 73 20 69 6e 76 6f 6b 65 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	s.mode.is.invoked.".(interactive
10e0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c1 70 c4 1b 1a 18 c7 8e c8 c9 8d 89 13 29 88 0b	).(byte-code."...p...........)..
1100	3a 83 34 00 0a 71 88 0b 40 83 2b 00 ca 0b 41 40 40 0b 41 40 41 5c 22 82 31 00 cb cc 0b 41 40 5c	:.4..q..@.+...A@@.A@A\".1....A@\
1120	22 82 35 00 c4 2b 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e 2d 70 72	".5..+.".[electric-history-in-pr
1140	6f 67 72 65 73 73 20 74 20 6f 6c 64 2d 62 75 66 66 65 72 20 74 6f 64 6f 20 6e 69 6c 20 65 6c 65	ogress.t.old-buffer.todo.nil.ele
1160	63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d	ctric-history-map.Helper-return-
1180	62 6c 75 72 62 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 71 88 c1 20 88 c2 70 21 87 22 20 5b	blurb.((byte-code.".q.....p!.".[
11a0	22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74	"*Command.History*".Command-hist
11c0	6f 72 79 2d 73 65 74 75 70 20 62 75 72 79 2d 62 75 66 66 65 72 5d 20 33 29 29 20 65 6c 65 63 74	ory-setup.bury-buffer].3)).elect
11e0	72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 8b 87	ric-history-quit.(byte-code."...
1200	22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69 6c 20 48 65 6c 70	".[electric-history-map.nil.Help
1220	65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 74 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c4	er-return-blurb.t.((byte-code.".
1240	8b 88 c5 c6 21 88 c7 c8 21 88 6d 83 1d 00 c9 20 88 ca cb 21 88 cc cd c1 5c 22 82 25 00 ce 1a cf	....!...!.m........!....\".%....
1260	cd d0 c3 23 29 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 6d 61 70 20 6e 69	...#).".[electric-history-map.ni
1280	6c 20 48 65 6c 70 65 72 2d 72 65 74 75 72 6e 2d 62 6c 75 72 62 20 74 20 28 28 62 79 74 65 2d 63	l.Helper-return-blurb.t.((byte-c
12a0	6f 64 65 20 22 c1 20 88 c2 71 88 c3 c4 c5 08 23 87 22 20 5b 65 6c 65 63 74 72 69 63 2d 68 69 73	ode."....q.....#.".[electric-his
12c0	74 6f 72 79 2d 6d 61 70 20 6c 69 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 22 2a	tory-map.list-command-history."*
12e0	43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72 79 2a 22 20 43 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72	Command.History*".Command-histor
1300	79 2d 73 65 74 75 70 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79	y-setup.electric-command-history
1320	20 22 45 6c 65 63 74 72 69 63 20 48 69 73 74 6f 72 79 22 5d 20 35 29 29 20 45 6c 65 63 74 72 69	."Electric.History"].5)).Electri
1340	63 2d 70 6f 70 2d 75 70 2d 77 69 6e 64 6f 77 20 22 2a 43 6f 6d 6d 61 6e 64 20 48 69 73 74 6f 72	c-pop-up-window."*Command.Histor
1360	79 2a 22 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 68	y*".run-hooks.electric-command-h
1380	69 73 74 6f 72 79 2d 68 6f 6f 6b 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 4e 6f 20 63 6f 6d	istory-hook.ding.message."No.com
13a0	6d 61 6e 64 20 68 69 73 74 6f 72 79 2e 22 20 74 68 72 6f 77 20 65 6c 65 63 74 72 69 63 2d 68 69	mand.history.".throw.electric-hi
13c0	73 74 6f 72 79 2d 71 75 69 74 20 22 72 65 74 75 72 6e 20 74 6f 20 48 69 73 74 6f 72 79 22 20 45	story-quit."return.to.History".E
13e0	6c 65 63 74 72 69 63 2d 63 6f 6d 6d 61 6e 64 2d 6c 6f 6f 70 20 22 2d 3e 22 5d 20 39 29 29 5d 20	lectric-command-loop."->"].9))].
1400	31 29 20 61 70 70 6c 79 20 65 64 69 74 2d 61 6e 64 2d 65 76 61 6c 2d 63 6f 6d 6d 61 6e 64 20 22	1).apply.edit-and-eval-command."
1420	52 65 64 6f 3a 20 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 45 6c 65 63 74 72 69 63 2d 68 69	Redo:."].4))..(defun.Electric-hi
1440	73 74 6f 72 79 2d 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65	story-undefined.nil.(interactive
1460	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 88 c4 c5 21 87 22 20 5b 6e 69	).(byte-code.".......!...!.".[ni
1480	6c 20 64 69 6e 67 20 6d 65 73 73 61 67 65 20 22 54 79 70 65 20 43 2d 68 20 66 6f 72 20 68 65 6c	l.ding.message."Type.C-h.for.hel
14a0	70 2c 20 3f 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 73 2c 20 43 2d 63 20 74 6f 20 71 75 69 74 2c 20	p,.?.for.commands,.C-c.to.quit,.
14c0	53 70 61 63 65 20 74 6f 20 65 78 65 63 75 74 65 22 20 73 69 74 2d 66 6f 72 20 34 5d 20 34 29 29	Space.to.execute".sit-for.4].4))
14e0	0a 0a 28 64 65 66 75 6e 20 45 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 20 6e	..(defun.Electric-history-quit.n
1500	69 6c 20 22 5c 0a 51 75 69 74 20 45 6c 65 63 74 72 69 63 20 43 6f 6d 6d 61 6e 64 20 48 69 73 74	il."\.Quit.Electric.Command.Hist
1520	6f 72 79 2c 20 72 65 73 74 6f 72 69 6e 67 20 70 72 65 76 69 6f 75 73 20 77 69 6e 64 6f 77 20 63	ory,.restoring.previous.window.c
1540	6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79	onfiguration.".(interactive).(by
1560	74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 83 13 00 c3 c4 21 88 c5 c6 c0 5c 22 82 14 00 c0 87 22	te-code."....!.....!....\"....."
1580	20 5b 6e 69 6c 20 62 6f 75 6e 64 70 20 65 6c 65 63 74 72 69 63 2d 68 69 73 74 6f 72 79 2d 69 6e	.[nil.boundp.electric-history-in
15a0	2d 70 72 6f 67 72 65 73 73 20 6d 65 73 73 61 67 65 20 22 22 20 74 68 72 6f 77 20 65 6c 65 63 74	-progress.message."".throw.elect
15c0	72 69 63 2d 68 69 73 74 6f 72 79 2d 71 75 69 74 5d 20 35 29 29 0a	ric-history-quit].5)).