blob: 45c5fd6214597d57dec1d59e1ee879811b883733 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20	.(defun.one-window-p.(&optional.
0020	6e 6f 6d 69 6e 69 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 74 68	nomini)."\.Returns.non-nil.if.th
0040	65 72 65 20 69 73 20 6f 6e 6c 79 20 6f 6e 65 20 77 69 6e 64 6f 77 2e 0a 4f 70 74 69 6f 6e 61 6c	ere.is.only.one.window..Optional
0060	20 61 72 67 20 4e 4f 4d 49 4e 49 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20	.arg.NOMINI.non-nil.means.don't.
0080	63 6f 75 6e 74 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 0a 65 76 65 6e 20 69 66 20 69 74 20	count.the.minibuffer.even.if.it.
00a0	69 73 20 61 63 74 69 76 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 20 18 09 85 0b 00 08	is.active.".(byte-code."........
00c0	c3 20 3d 85 13 00 c4 08 21 89 10 88 08 c4 08 09 85 1c 00 c5 5c 22 3d 29 87 22 20 5b 62 61 73 65	..=.....!...........\"=).".[base
00e0	2d 77 69 6e 64 6f 77 20 6e 6f 6d 69 6e 69 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d	-window.nomini.selected-window.m
0100	69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 6e 65 78 74 2d 77 69 6e 64 6f 77 20 61 72 67	inibuffer-window.next-window.arg
0120	5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 71 75 6f 74 65 64 2d 63 68 61 72 20 28	].7))..(defun.read-quoted-char.(
0140	26 6f 70 74 69 6f 6e 61 6c 20 70 72 6f 6d 70 74 29 20 22 5c 0a 4c 69 6b 65 20 60 72 65 61 64 2d	&optional.prompt)."\.Like.`read-
0160	63 68 61 72 27 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 69 66 20 74 68 65 20 66 69 72 73 74 20	char',.except.that.if.the.first.
0180	63 68 61 72 61 63 74 65 72 20 72 65 61 64 20 69 73 20 61 6e 20 6f 63 74 61 6c 0a 64 69 67 69 74	character.read.is.an.octal.digit
01a0	2c 20 77 65 20 72 65 61 64 20 75 70 20 74 6f 20 74 77 6f 20 6d 6f 72 65 20 6f 63 74 61 6c 20 64	,.we.read.up.to.two.more.octal.d
01c0	69 67 69 74 73 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 63 68 61 72 61 63 74 65 72 0a 72	igits.and.return.the.character.r
01e0	65 70 72 65 73 65 6e 74 65 64 20 62 79 20 74 68 65 20 6f 63 74 61 6c 20 6e 75 6d 62 65 72 20 63	epresented.by.the.octal.number.c
0200	6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 68 6f 73 65 20 64 69 67 69 74 73 2e 0a 4f 70 74 69 6f	onsisting.of.those.digits..Optio
0220	6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 73 70 65 63 69 66 69 65 73 20 61 20	nal.argument.PROMPT.specifies.a.
0240	73 74 72 69 6e 67 20 74 6f 20 75 73 65 20 74 6f 20 70 72 6f 6d 70 74 20 74 68 65 20 75 73 65 72	string.to.use.to.prompt.the.user
0260	2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca ca c5 1a 19 18 08 cb 57 85 75 00 cc 08 21 c5 1c	.".(byte-code."........W.u...!..
0280	1b 0e 06 85 1c 00 cd ce 0e 06 5c 22 88 72 89 12 88 0b 85 29 00 c5 89 16 07 2a 88 0a 3f 86 71 00	..........\".r.....).....*..?.q.
02a0	cf 0a 58 85 39 00 0a d0 58 83 5d 00 d1 09 d2 5c 22 0a cf 5a 5c 5c 11 08 54 89 10 88 0e 06 85 5a	..X.9...X.]....\"..Z\\..T......Z
02c0	00 cd d3 d4 0e 06 0a 23 89 16 06 21 82 71 00 08 ca 56 83 6c 00 0a 16 08 d5 89 10 82 71 00 0a 11	.......#...!.q...V.l........q...
02e0	d5 89 10 88 82 06 00 88 d6 d7 09 5c 22 2b 87 22 20 5b 63 6f 75 6e 74 20 63 6f 64 65 20 63 68 61	...........\"+.".[count.code.cha
0300	72 20 69 6e 68 69 62 69 74 2d 71 75 69 74 20 68 65 6c 70 2d 66 6f 72 6d 20 6e 69 6c 20 70 72 6f	r.inhibit-quit.help-form.nil.pro
0320	6d 70 74 20 71 75 69 74 2d 66 6c 61 67 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61	mpt.quit-flag.unread-command-cha
0340	72 20 74 20 30 20 33 20 7a 65 72 6f 70 20 6d 65 73 73 61 67 65 20 22 25 73 2d 22 20 34 38 20 35	r.t.0.3.zerop.message."%s-".48.5
0360	35 20 2a 20 38 20 66 6f 72 6d 61 74 20 22 25 73 20 25 63 22 20 32 35 39 20 6c 6f 67 61 6e 64 20	5.*.8.format."%s.%c".259.logand.
0380	32 35 35 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 65 72 72 6f 72 20 28 26 72 65 73 74 20 61 72	255].9))..(defun.error.(&rest.ar
03a0	67 73 29 20 22 5c 0a 53 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2c 20 6d 61 6b 69 6e 67 20 65	gs)."\.Signal.an.error,.making.e
03c0	72 72 6f 72 20 6d 65 73 73 61 67 65 20 62 79 20 70 61 73 73 69 6e 67 20 61 6c 6c 20 61 72 67 73	rror.message.by.passing.all.args
03e0	20 74 6f 20 60 66 6f 72 6d 61 74 27 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 85 10 00 c2	.to.`format'.".(byte-code.".....
0400	c3 c4 c5 09 5c 22 43 5c 22 88 82 00 00 87 22 20 5b 74 20 61 72 67 73 20 73 69 67 6e 61 6c 20 65	....\"C\".....".[t.args.signal.e
0420	72 72 6f 72 20 61 70 70 6c 79 20 66 6f 72 6d 61 74 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 75	rror.apply.format].6))..(defun.u
0440	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 29 20 28 62 79 74 65	ndefined.nil.(interactive).(byte
0460	2d 63 6f 64 65 20 22 c0 88 c1 20 87 22 20 5b 6e 69 6c 20 64 69 6e 67 5d 20 32 29 29 0a 0a 28 70	-code.".....".[nil.ding].2))..(p
0480	75 74 20 28 71 75 6f 74 65 20 75 6e 64 65 66 69 6e 65 64 29 20 28 71 75 6f 74 65 20 73 75 70 70	ut.(quote.undefined).(quote.supp
04a0	72 65 73 73 2d 6b 65 79 6d 61 70 29 20 74 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 70 72 65 73 73	ress-keymap).t)..(defun.suppress
04c0	2d 6b 65 79 6d 61 70 20 28 6d 61 70 20 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d	-keymap.(map.&optional.arg)."\.M
04e0	61 6b 65 20 4d 41 50 20 6f 76 65 72 72 69 64 65 20 61 6c 6c 20 62 75 66 66 65 72 2d 6d 6f 64 69	ake.MAP.override.all.buffer-modi
0500	66 79 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 62 65 20 75 6e 64 65 66 69 6e 65 64 2e 0a	fying.commands.to.be.undefined..
0520	57 6f 72 6b 73 20 62 79 20 6b 6e 6f 77 69 6e 67 20 77 68 69 63 68 20 63 6f 6d 6d 61 6e 64 73 20	Works.by.knowing.which.commands.
0540	61 72 65 20 6e 6f 72 6d 61 6c 6c 79 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 79 69 6e 67 2e 0a 4e	are.normally.buffer-modifying..N
0560	6f 72 6d 61 6c 6c 79 20 61 6c 73 6f 20 6d 61 6b 65 73 20 64 69 67 69 74 73 20 73 65 74 20 6e 75	ormally.also.makes.digits.set.nu
0580	6d 65 72 69 63 20 61 72 67 2c 0a 62 75 74 20 6f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 61	meric.arg,.but.optional.second.a
05a0	72 67 20 4e 4f 44 49 47 49 54 53 20 6e 6f 6e 2d 6e 69 6c 20 70 72 65 76 65 6e 74 73 20 74 68 69	rg.NODIGITS.non-nil.prevents.thi
05c0	73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 18 08 c5 57 85 15 00 09 08 c6 49 88 08 54 89	s.".(byte-code."....W......I..T.
05e0	10 88 82 02 00 29 88 0a 86 3a 00 c7 1b 09 c8 c9 49 88 ca 89 13 88 0b cb 58 85 39 00 09 0b cc 49	.....)...:......I.......X.9....I
0600	88 0b 54 89 13 88 82 26 00 29 87 22 20 5b 69 20 6d 61 70 20 61 72 67 20 6c 6f 6f 70 20 33 32 20	..T....&.).".[i.map.arg.loop.32.
0620	31 32 37 20 75 6e 64 65 66 69 6e 65 64 20 6e 69 6c 20 34 35 20 6e 65 67 61 74 69 76 65 2d 61 72	127.undefined.nil.45.negative-ar
0640	67 75 6d 65 6e 74 20 34 38 20 35 37 20 64 69 67 69 74 2d 61 72 67 75 6d 65 6e 74 5d 20 34 29 29	gument.48.57.digit-argument].4))
0660	0a 0a 28 64 65 66 75 6e 20 73 75 62 73 74 69 74 75 74 65 2d 6b 65 79 2d 64 65 66 69 6e 69 74 69	..(defun.substitute-key-definiti
0680	6f 6e 20 28 6f 6c 64 64 65 66 20 6e 65 77 64 65 66 20 6b 65 79 6d 61 70 29 20 22 5c 0a 52 65 70	on.(olddef.newdef.keymap)."\.Rep
06a0	6c 61 63 65 20 4f 4c 44 44 45 46 20 77 69 74 68 20 4e 45 57 44 45 46 20 66 6f 72 20 61 6e 79 20	lace.OLDDEF.with.NEWDEF.for.any.
06c0	6b 65 79 73 20 69 6e 20 4b 45 59 4d 41 50 20 6e 6f 77 20 64 65 66 69 6e 65 64 20 61 73 20 4f 4c	keys.in.KEYMAP.now.defined.as.OL
06e0	44 44 45 46 2e 0a 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c 20 4f 4c 44 44 45 46 20 69 73 20	DDEF..In.other.words,.OLDDEF.is.
0700	72 65 70 6c 61 63 65 64 20 77 69 74 68 20 4e 45 57 44 45 46 20 77 68 65 72 65 20 65 76 65 72 20	replaced.with.NEWDEF.where.ever.
0720	69 74 20 61 70 70 65 61 72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 08 21 83 2a 00 08	it.appears.".(byte-code."..!.*..
0740	47 c6 1a 19 0a 09 57 85 26 00 08 0a 48 0b 3d 85 1d 00 08 0a 0c 49 88 0a 54 89 12 88 82 0b 00 2a	G.....W.&...H.=......I..T......*
0760	82 46 00 08 85 46 00 c7 c8 08 21 21 0b 3d 85 3d 00 c9 08 40 0c 5c 22 88 08 41 89 10 88 82 2a 00	.F...F....!!.=.=...@.\"..A....*.
0780	87 22 20 5b 6b 65 79 6d 61 70 20 6c 65 6e 20 69 20 6f 6c 64 64 65 66 20 6e 65 77 64 65 66 20 61	.".[keymap.len.i.olddef.newdef.a
07a0	72 72 61 79 70 20 30 20 63 64 72 2d 73 61 66 65 20 63 61 72 2d 73 61 66 65 20 73 65 74 63 64 72	rrayp.0.cdr-safe.car-safe.setcdr
07c0	5d 20 37 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 69 67 6e 6f 72 65 29 20 28 71 75 6f	].7))..(fset.(quote.ignore).(quo
07e0	74 65 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 69 67 6e 6f 72 65 29 20 6e 69 6c 29 29 29	te.(lambda.(&rest.ignore).nil)))
0800	0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65	..(fset.(quote.make-syntax-table
0820	29 20 28 71 75 6f 74 65 20 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 0a 28 66	).(quote.copy-syntax-table))..(f
0840	73 65 74 20 28 71 75 6f 74 65 20 64 6f 74 29 20 28 71 75 6f 74 65 20 70 6f 69 6e 74 29 29 0a 0a	set.(quote.dot).(quote.point))..
0860	28 66 73 65 74 20 28 71 75 6f 74 65 20 64 6f 74 2d 6d 61 72 6b 65 72 29 20 28 71 75 6f 74 65 20	(fset.(quote.dot-marker).(quote.
0880	70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 64 6f 74	point-marker))..(fset.(quote.dot
08a0	2d 6d 69 6e 29 20 28 71 75 6f 74 65 20 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 0a 28 66 73 65 74 20	-min).(quote.point-min))..(fset.
08c0	28 71 75 6f 74 65 20 64 6f 74 2d 6d 61 78 29 20 28 71 75 6f 74 65 20 70 6f 69 6e 74 2d 6d 61 78	(quote.dot-max).(quote.point-max
08e0	29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 77 69 6e 64 6f 77 2d 64 6f 74 29 20 28 71 75	))..(fset.(quote.window-dot).(qu
0900	6f 74 65 20 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65	ote.window-point))..(fset.(quote
0920	20 73 65 74 2d 77 69 6e 64 6f 77 2d 64 6f 74 29 20 28 71 75 6f 74 65 20 73 65 74 2d 77 69 6e 64	.set-window-dot).(quote.set-wind
0940	6f 77 2d 70 6f 69 6e 74 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 72 65 61 64 2d 69 6e	ow-point))..(fset.(quote.read-in
0960	70 75 74 29 20 28 71 75 6f 74 65 20 72 65 61 64 2d 73 74 72 69 6e 67 29 29 0a 0a 28 66 73 65 74	put).(quote.read-string))..(fset
0980	20 28 71 75 6f 74 65 20 73 65 6e 64 2d 73 74 72 69 6e 67 29 20 28 71 75 6f 74 65 20 70 72 6f 63	.(quote.send-string).(quote.proc
09a0	65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20	ess-send-string))..(fset.(quote.
09c0	73 65 6e 64 2d 72 65 67 69 6f 6e 29 20 28 71 75 6f 74 65 20 70 72 6f 63 65 73 73 2d 73 65 6e 64	send-region).(quote.process-send
09e0	2d 72 65 67 69 6f 6e 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 68 6f 77 2d 62 75 66	-region))..(fset.(quote.show-buf
0a00	66 65 72 29 20 28 71 75 6f 74 65 20 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 29 29 0a	fer).(quote.set-window-buffer)).
0a20	0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 74 72 69 6e 67 3d 29 20 28 71 75 6f 74 65 20 73 74	.(fset.(quote.string=).(quote.st
0a40	72 69 6e 67 2d 65 71 75 61 6c 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 73 74 72 69 6e	ring-equal))..(fset.(quote.strin
0a60	67 3c 29 20 28 71 75 6f 74 65 20 73 74 72 69 6e 67 2d 6c 65 73 73 70 29 29 0a 0a 28 66 73 65 74	g<).(quote.string-lessp))..(fset
0a80	20 28 71 75 6f 74 65 20 6d 6f 64 29 20 28 71 75 6f 74 65 20 25 29 29 0a 0a 28 66 73 65 74 20 28	.(quote.mod).(quote.%))..(fset.(
0aa0	71 75 6f 74 65 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 29 20 28 71 75 6f 74 65 20 73 65 74 2d 6d 61	quote.move-marker).(quote.set-ma
0ac0	72 6b 65 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 65 71 6c 29 20 28 71 75 6f 74 65	rker))..(fset.(quote.eql).(quote
0ae0	20 65 71 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6e 6f 74 29 20 28 71 75 6f 74 65 20	.eq))..(fset.(quote.not).(quote.
0b00	6e 75 6c 6c 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 6e 75 6d 62 65 72 70 29 20 28 71	null))..(fset.(quote.numberp).(q
0b20	75 6f 74 65 20 69 6e 74 65 67 65 72 70 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 72 70	uote.integerp))..(fset.(quote.rp
0b40	6c 61 63 61 29 20 28 71 75 6f 74 65 20 73 65 74 63 61 72 29 29 0a 0a 28 66 73 65 74 20 28 71 75	laca).(quote.setcar))..(fset.(qu
0b60	6f 74 65 20 72 70 6c 61 63 64 29 20 28 71 75 6f 74 65 20 73 65 74 63 64 72 29 29 0a 0a 28 66 73	ote.rplacd).(quote.setcdr))..(fs
0b80	65 74 20 28 71 75 6f 74 65 20 62 65 65 70 29 20 28 71 75 6f 74 65 20 64 69 6e 67 29 29 0a 0a 28	et.(quote.beep).(quote.ding))..(
0ba0	66 73 65 74 20 28 71 75 6f 74 65 20 69 6e 64 65 6e 74 2d 74 6f 2d 63 6f 6c 75 6d 6e 29 20 28 71	fset.(quote.indent-to-column).(q
0bc0	75 6f 74 65 20 69 6e 64 65 6e 74 2d 74 6f 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 62	uote.indent-to))..(fset.(quote.b
0be0	61 63 6b 77 61 72 64 2d 64 65 6c 65 74 65 2d 63 68 61 72 29 20 28 71 75 6f 74 65 20 64 65 6c 65	ackward-delete-char).(quote.dele
0c00	74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 64 65 66 76 61 72 20 67 6c 6f 62	te-backward-char))..(defvar.glob
0c20	61 6c 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 44 65 66 61 75 6c 74 20 67 6c 6f 62 61 6c 20 6b 65 79	al-map.nil."\.Default.global.key
0c40	6d 61 70 20 6d 61 70 70 69 6e 67 20 45 6d 61 63 73 20 6b 65 79 62 6f 61 72 64 20 69 6e 70 75 74	map.mapping.Emacs.keyboard.input
0c60	20 69 6e 74 6f 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 65 20 76 61 6c 75 65 20 69 73 20 61 20 6b	.into.commands..The.value.is.a.k
0c80	65 79 6d 61 70 20 77 68 69 63 68 20 69 73 20 75 73 75 61 6c 6c 79 20 28 62 75 74 20 6e 6f 74 20	eymap.which.is.usually.(but.not.
0ca0	6e 65 63 65 73 73 61 72 69 6c 79 29 20 45 6d 61 63 73 27 73 0a 67 6c 6f 62 61 6c 20 6d 61 70 2e	necessarily).Emacs's.global.map.
0cc0	22 29 0a 0a 28 64 65 66 76 61 72 20 63 74 6c 2d 78 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 44 65 66	")..(defvar.ctl-x-map.nil."\.Def
0ce0	61 75 6c 74 20 6b 65 79 6d 61 70 20 66 6f 72 20 43 2d 78 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68	ault.keymap.for.C-x.commands..Th
0d00	65 20 6e 6f 72 6d 61 6c 20 67 6c 6f 62 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68	e.normal.global.definition.of.th
0d20	65 20 63 68 61 72 61 63 74 65 72 20 43 2d 78 20 69 6e 64 69 72 65 63 74 73 20 74 6f 20 74 68 69	e.character.C-x.indirects.to.thi
0d40	73 20 6b 65 79 6d 61 70 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 65 73 63 2d 6d 61 70 20 6e 69 6c	s.keymap.")..(defvar.esc-map.nil
0d60	20 22 5c 0a 44 65 66 61 75 6c 74 20 6b 65 79 6d 61 70 20 66 6f 72 20 45 53 43 20 28 6d 65 74 61	."\.Default.keymap.for.ESC.(meta
0d80	29 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 65 20 6e 6f 72 6d 61 6c 20 67 6c 6f 62 61 6c 20 64 65	).commands..The.normal.global.de
0da0	66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 45 53 43 20 69 6e	finition.of.the.character.ESC.in
0dc0	64 69 72 65 63 74 73 20 74 6f 20 74 68 69 73 20 6b 65 79 6d 61 70 2e 22 29 0a 0a 28 64 65 66 76	directs.to.this.keymap.")..(defv
0de0	61 72 20 6d 6f 75 73 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 66 6f 72 20 6d	ar.mouse-map.nil."\.Keymap.for.m
0e00	6f 75 73 65 20 63 6f 6d 6d 61 6e 64 73 20 66 72 6f 6d 20 74 68 65 20 58 20 77 69 6e 64 6f 77 20	ouse.commands.from.the.X.window.
0e20	73 79 73 74 65 6d 2e 22 29 0a 0a 28 64 65 66 75 6e 20 72 75 6e 2d 68 6f 6f 6b 73 20 28 26 72 65	system.")..(defun.run-hooks.(&re
0e40	73 74 20 68 6f 6f 6b 6c 69 73 74 29 20 22 5c 0a 54 61 6b 65 73 20 68 6f 6f 6b 20 6e 61 6d 65 73	st.hooklist)."\.Takes.hook.names
0e60	20 61 6e 64 20 72 75 6e 73 20 65 61 63 68 20 6f 6e 65 20 69 6e 20 74 75 72 6e 2e 20 20 4d 61 6a	.and.runs.each.one.in.turn...Maj
0e80	6f 72 20 6d 6f 64 65 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 65 20 74 68 69 73 2e 0a 45 61 63 68	or.mode.functions.use.this..Each
0ea0	20 61 72 67 75 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 79 6d 62 6f 6c 2c 20 61 20	.argument.should.be.a.symbol,.a.
0ec0	68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 2e 0a 54 68 65 73 65 20 73 79 6d 62 6f 6c 73 20 61 72 65	hook.variable..These.symbols.are
0ee0	20 70 72 6f 63 65 73 73 65 64 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 73 70 65 63 69 66 69 65	.processed.in.the.order.specifie
0f00	64 2e 0a 49 66 20 61 20 68 6f 6f 6b 20 73 79 6d 62 6f 6c 20 68 61 73 20 61 20 6e 6f 6e 2d 6e 69	d..If.a.hook.symbol.has.a.non-ni
0f20	6c 20 76 61 6c 75 65 2c 20 74 68 61 74 20 76 61 6c 75 65 20 6d 61 79 20 62 65 20 61 20 66 75 6e	l.value,.that.value.may.be.a.fun
0f40	63 74 69 6f 6e 0a 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20	ction.or.a.list.of.functions.to.
0f60	62 65 20 63 61 6c 6c 65 64 20 74 6f 20 72 75 6e 20 74 68 65 20 68 6f 6f 6b 2e 0a 49 66 20 74 68	be.called.to.run.the.hook..If.th
0f80	65 20 76 61 6c 75 65 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 69 74 20 69 73 20 63 61 6c	e.value.is.a.function,.it.is.cal
0fa0	6c 65 64 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 0a 49 66 20 69 74 20 69 73 20	led.with.no.arguments..If.it.is.
0fc0	61 20 6c 69 73 74 2c 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 63 61 6c 6c 65 64 2c	a.list,.the.elements.are.called,
0fe0	20 69 6e 20 6f 72 64 65 72 2c 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 22 20 28	.in.order,.with.no.arguments.".(
1000	62 79 74 65 2d 63 6f 64 65 20 22 08 85 37 00 08 40 19 c3 09 21 85 2d 00 09 4a 85 2d 00 09 4a 1a	byte-code."..7..@...!.-..J.-..J.
1020	0a 3c 85 1f 00 0a 40 c4 3d 3f 83 29 00 c5 c6 0a 5c 22 82 2c 00 c6 0a 21 29 29 88 08 41 89 10 88	.<....@.=?.)....\".,...!))..A...
1040	82 00 00 87 22 20 5b 68 6f 6f 6b 6c 69 73 74 20 73 79 6d 20 76 61 6c 75 65 20 62 6f 75 6e 64 70	....".[hooklist.sym.value.boundp
1060	20 6c 61 6d 62 64 61 20 6d 61 70 63 61 72 20 66 75 6e 63 61 6c 6c 5d 20 36 29 29 0a 0a 28 64 65	.lambda.mapcar.funcall].6))..(de
1080	66 75 6e 20 6d 6f 6d 65 6e 74 61 72 79 2d 73 74 72 69 6e 67 2d 64 69 73 70 6c 61 79 20 28 73 74	fun.momentary-string-display.(st
10a0	72 69 6e 67 20 70 6f 73 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 69 74 2d 63 68 61 72 20 6d 65 73	ring.pos.&optional.exit-char.mes
10c0	73 61 67 65 29 20 22 5c 0a 4d 6f 6d 65 6e 74 61 72 69 6c 79 20 64 69 73 70 6c 61 79 20 53 54 52	sage)."\.Momentarily.display.STR
10e0	49 4e 47 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 61 74 20 50 4f 53 2e 0a 44 69 73 70 6c 61	ING.in.the.buffer.at.POS..Displa
1100	79 20 72 65 6d 61 69 6e 73 20 75 6e 74 69 6c 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69	y.remains.until.next.character.i
1120	73 20 74 79 70 65 64 2e 0a 49 66 20 74 68 65 20 63 68 61 72 20 69 73 20 45 58 49 54 2d 43 48 41	s.typed..If.the.char.is.EXIT-CHA
1140	52 20 28 6f 70 74 69 6f 6e 61 6c 20 74 68 69 72 64 20 61 72 67 2c 20 64 65 66 61 75 6c 74 20 69	R.(optional.third.arg,.default.i
1160	73 20 53 50 43 29 20 69 74 20 69 73 20 73 77 61 6c 6c 6f 77 65 64 3b 0a 6f 74 68 65 72 77 69 73	s.SPC).it.is.swallowed;.otherwis
1180	65 20 69 74 20 69 73 20 74 68 65 6e 20 61 76 61 69 6c 61 62 6c 65 20 61 73 20 69 6e 70 75 74 20	e.it.is.then.available.as.input.
11a0	28 61 73 20 61 20 63 6f 6d 6d 61 6e 64 20 69 66 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 29 2e 0a	(as.a.command.if.nothing.else)..
11c0	44 69 73 70 6c 61 79 20 4d 45 53 53 41 47 45 20 28 6f 70 74 69 6f 6e 61 6c 20 66 6f 75 72 74 68	Display.MESSAGE.(optional.fourth
11e0	20 61 72 67 29 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 2e 0a 49 66 20 4d 45 53 53 41	.arg).in.the.echo.area..If.MESSA
1200	47 45 20 69 73 20 6e 69 6c 2c 20 69 6e 73 74 72 75 63 74 69 6f 6e 73 20 74 6f 20 74 79 70 65 20	GE.is.nil,.instructions.to.type.
1220	45 58 49 54 2d 43 48 41 52 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 74 68 65 72 65 2e 22 20	EXIT-CHAR.are.displayed.there.".
1240	28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00 cc 89 10 88 c2 cd 20 0d c2 1e 06 1c 1b 19 ce 8e	(byte-code."....................
1260	8a 0e 07 62 88 c2 89 15 88 cf 0e 08 21 88 60 89 16 06 29 88 c9 0e 09 86 2f 00 d0 d1 08 21 5c 22	...b........!.`...)...../....!\"
1280	88 72 1e 0a 0e 0a 08 3d 86 43 00 0e 0a 89 16 0b 29 29 2c 87 22 20 5b 65 78 69 74 2d 63 68 61 72	.r.....=.C......)),.".[exit-char
12a0	20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6d 6f 64 69 66 69 65 64 20 6e	.buffer-read-only.nil.modified.n
12c0	61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 6e 73 65 72 74 2d 65 6e 64 20	ame.buffer-file-name.insert-end.
12e0	70 6f 73 20 73 74 72 69 6e 67 20 6d 65 73 73 61 67 65 20 63 68 61 72 20 75 6e 72 65 61 64 2d 63	pos.string.message.char.unread-c
1300	6f 6d 6d 61 6e 64 2d 63 68 61 72 20 33 32 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70	ommand-char.32.buffer-modified-p
1320	20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 0a 00 8a c5 09 08 5c 22 29 88 0b 89 12 88 c6 0c	.((byte-code."........\").......
1340	21 87 22 20 5b 69 6e 73 65 72 74 2d 65 6e 64 20 70 6f 73 20 62 75 66 66 65 72 2d 66 69 6c 65 2d	!.".[insert-end.pos.buffer-file-
1360	6e 61 6d 65 20 6e 61 6d 65 20 6d 6f 64 69 66 69 65 64 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e	name.name.modified.delete-region
1380	20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 29 20 69 6e 73 65	.set-buffer-modified-p].3)).inse
13a0	72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 22 54 79 70 65 20 25 73 20 74 6f 20 63 6f	rt-before-markers."Type.%s.to.co
13c0	6e 74 69 6e 75 65 20 65 64 69 74 69 6e 67 2e 22 20 73 69 6e 67 6c 65 2d 6b 65 79 2d 64 65 73 63	ntinue.editing.".single-key-desc
13e0	72 69 70 74 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 6f 2d 73 74 61 72 74 20	ription].6))..(defun.undo-start.
1400	6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 6e 64 6f 2d 70 6f 69 6e 74 65 72 20 74 6f 20 66 72 6f 6e	nil."\.Move.undo-pointer.to.fron
1420	74 20 6f 66 20 75 6e 64 6f 20 72 65 63 6f 72 64 73 2e 0a 54 68 65 20 6e 65 78 74 20 63 61 6c 6c	t.of.undo.records..The.next.call
1440	20 74 6f 20 75 6e 64 6f 2d 6d 6f 72 65 20 77 69 6c 6c 20 75 6e 64 6f 20 74 68 65 20 6d 6f 73 74	.to.undo-more.will.undo.the.most
1460	20 72 65 63 65 6e 74 6c 79 20 6d 61 64 65 20 63 68 61 6e 67 65 2e 22 20 28 62 79 74 65 2d 63 6f	.recently.made.change.".(byte-co
1480	64 65 20 22 08 c1 3d 85 09 00 c3 c4 21 88 08 89 12 87 22 20 5b 62 75 66 66 65 72 2d 75 6e 64 6f	de."..=.....!.....".[buffer-undo
14a0	2d 6c 69 73 74 20 74 20 70 65 6e 64 69 6e 67 2d 75 6e 64 6f 2d 6c 69 73 74 20 65 72 72 6f 72 20	-list.t.pending-undo-list.error.
14c0	22 4e 6f 20 75 6e 64 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 20 74 68 69 73 20 62 75 66	"No.undo.information.in.this.buf
14e0	66 65 72 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 6f 2d 6d 6f 72 65 20 28 63 6f 75	fer"].3))..(defun.undo-more.(cou
1500	6e 74 29 20 22 5c 0a 55 6e 64 6f 20 62 61 63 6b 20 4e 20 75 6e 64 6f 2d 62 6f 75 6e 64 61 72 69	nt)."\.Undo.back.N.undo-boundari
1520	65 73 20 62 65 79 6f 6e 64 20 77 68 61 74 20 77 61 73 20 61 6c 72 65 61 64 79 20 75 6e 64 6f 6e	es.beyond.what.was.already.undon
1540	65 20 72 65 63 65 6e 74 6c 79 2e 0a 43 61 6c 6c 20 75 6e 64 6f 2d 73 74 61 72 74 20 74 6f 20 67	e.recently..Call.undo-start.to.g
1560	65 74 20 72 65 61 64 79 20 74 6f 20 75 6e 64 6f 20 72 65 63 65 6e 74 20 63 68 61 6e 67 65 73 2c	et.ready.to.undo.recent.changes,
1580	0a 74 68 65 6e 20 63 61 6c 6c 20 75 6e 64 6f 2d 6d 6f 72 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65	.then.call.undo-more.one.or.more
15a0	20 74 69 6d 65 73 20 74 6f 20 75 6e 64 6f 20 74 68 65 6d 2e 22 20 28 62 79 74 65 2d 63 6f 64 65	.times.to.undo.them.".(byte-code
15c0	20 22 08 86 07 00 c2 c3 21 88 c4 09 08 5c 22 89 10 87 22 20 5b 70 65 6e 64 69 6e 67 2d 75 6e 64	."......!....\"...".[pending-und
15e0	6f 2d 6c 69 73 74 20 63 6f 75 6e 74 20 65 72 72 6f 72 20 22 4e 6f 20 66 75 72 74 68 65 72 20 75	o-list.count.error."No.further.u
1600	6e 64 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 22 20 70 72 69 6d 69 74 69 76 65 2d 75 6e 64 6f 5d	ndo.information".primitive-undo]
1620	20 34 29 29 0a	.4)).