blob: e5820af34f8ed38019a8665fe6a2f6cfbe6dcf60 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20	.(defvar.lisp-mode-syntax-table.
0020	6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 76 61 72 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f	nil."\.")..(defvar.emacs-lisp-mo
0040	64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 76	de-syntax-table.nil."\.")..(defv
0060	61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c	ar.lisp-mode-abbrev-table.nil."\
0080	0a 22 29 0a 0a 28 69 66 20 28 6e 6f 74 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79	.")..(if.(not.emacs-lisp-mode-sy
00a0	6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6c 65 74 20 28 28 69 20 30 29 29 20 28 73 65 74 71 20 65	ntax-table).(let.((i.0)).(setq.e
00c0	6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b	macs-lisp-mode-syntax-table.(mak
00e0	65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 34 38 29	e-syntax-table)).(while.(<.i.48)
0100	20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 65	.(modify-syntax-entry.i."_...".e
0120	6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65	macs-lisp-mode-syntax-table).(se
0140	74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 35 37 29 29 20 28	tq.i.(1+.i))).(setq.i.(1+.57)).(
0160	77 68 69 6c 65 20 28 3c 20 69 20 36 35 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e	while.(<.i.65).(modify-syntax-en
0180	74 72 79 20 69 20 22 5f 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e	try.i."_...".emacs-lisp-mode-syn
01a0	74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74	tax-table).(setq.i.(1+.i))).(set
01c0	71 20 69 20 28 31 2b 20 39 30 29 29 20 28 77 68 69 6c 65 20 28 3c 20 69 20 39 37 29 20 28 6d 6f	q.i.(1+.90)).(while.(<.i.97).(mo
01e0	64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 5f 20 20 20 22 20 65 6d 61 63 73	dify-syntax-entry.i."_...".emacs
0200	2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69	-lisp-mode-syntax-table).(setq.i
0220	20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 31 32 32 29 29 20 28 77 68 69	.(1+.i))).(setq.i.(1+.122)).(whi
0240	6c 65 20 28 3c 20 69 20 31 32 38 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72	le.(<.i.128).(modify-syntax-entr
0260	79 20 69 20 22 5f 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61	y.i."_...".emacs-lisp-mode-synta
0280	78 2d 74 61 62 6c 65 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 6d 6f 64 69 66	x-table).(setq.i.(1+.i))).(modif
02a0	79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 20 20 20 22 20 65 6d 61 63 73 2d 6c	y-syntax-entry.32."....".emacs-l
02c0	69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73	isp-mode-syntax-table).(modify-s
02e0	79 6e 74 61 78 2d 65 6e 74 72 79 20 39 20 22 20 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d	yntax-entry.9."....".emacs-lisp-
0300	6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61	mode-syntax-table).(modify-synta
0320	78 2d 65 6e 74 72 79 20 31 30 20 22 3e 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64	x-entry.10.">...".emacs-lisp-mod
0340	65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65	e-syntax-table).(modify-syntax-e
0360	6e 74 72 79 20 31 32 20 22 3e 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73	ntry.12.">...".emacs-lisp-mode-s
0380	79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72	yntax-table).(modify-syntax-entr
03a0	79 20 35 39 20 22 3c 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74	y.59."<...".emacs-lisp-mode-synt
03c0	61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39	ax-table).(modify-syntax-entry.9
03e0	36 20 22 27 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d	6."'...".emacs-lisp-mode-syntax-
0400	74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22	table).(modify-syntax-entry.39."
0420	27 20 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62	'...".emacs-lisp-mode-syntax-tab
0440	6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 34 20 22 27 20 20	le).(modify-syntax-entry.44."'..
0460	20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29	.".emacs-lisp-mode-syntax-table)
0480	20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 36 20 22 27 20 20 20 22 20	.(modify-syntax-entry.46."'...".
04a0	65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d	emacs-lisp-mode-syntax-table).(m
04c0	6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 35 20 22 27 20 20 20 22 20 65 6d 61	odify-syntax-entry.35."'...".ema
04e0	63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69	cs-lisp-mode-syntax-table).(modi
0500	66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 34 20 22 5c 22 20 20 20 20 22 20 65 6d 61 63	fy-syntax-entry.34."\"....".emac
0520	73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66	s-lisp-mode-syntax-table).(modif
0540	79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 5c 5c 20 20 20 22 20 65 6d 61 63 73 2d	y-syntax-entry.92."\\...".emacs-
0560	6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d	lisp-mode-syntax-table).(modify-
0580	73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 20 22 20 65 6d 61 63 73 2d 6c 69 73	syntax-entry.40."()..".emacs-lis
05a0	70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e	p-mode-syntax-table).(modify-syn
05c0	74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 29 28 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d	tax-entry.41.")(..".emacs-lisp-m
05e0	6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78	ode-syntax-table).(modify-syntax
0600	2d 65 6e 74 72 79 20 39 31 20 22 28 5d 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65	-entry.91."(]..".emacs-lisp-mode
0620	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e	-syntax-table).(modify-syntax-en
0640	74 72 79 20 39 33 20 22 29 5b 20 20 22 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79	try.93.")[..".emacs-lisp-mode-sy
0660	6e 74 61 78 2d 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61	ntax-table)))..(define-abbrev-ta
0680	62 6c 65 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c	ble.(quote.lisp-mode-abbrev-tabl
06a0	65 29 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62	e).nil)..(defun.lisp-mode-variab
06c0	6c 65 73 20 28 6c 69 73 70 2d 73 79 6e 74 61 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85	les.(lisp-syntax).(byte-code."..
06e0	24 00 09 3f 85 20 00 cf 0a 21 89 11 88 d0 d1 d2 09 23 88 d0 d3 d4 09 23 88 d0 d5 d4 09 23 88 d6	$..?.....!.......#.....#.....#..
0700	09 21 88 0c 89 13 88 d7 c5 21 88 d8 0e 06 50 89 15 88 d7 c7 21 88 0d 89 16 07 88 d7 c8 21 88 c9	.!.......!....P.....!........!..
0720	89 16 08 88 d7 ca 21 88 d9 89 16 0a 88 d7 cb 21 88 da 89 16 0b 88 d7 cc 21 88 db 89 16 0c 88 d7	......!........!........!.......
0740	cd 21 88 dc 89 16 0d 88 d7 ce 21 88 dd 89 16 0e 87 22 20 5b 6c 69 73 70 2d 73 79 6e 74 61 78 20	.!........!......".[lisp-syntax.
0760	6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 65 6d 61 63 73 2d 6c 69 73	lisp-mode-syntax-table.emacs-lis
0780	70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76	p-mode-syntax-table.local-abbrev
07a0	2d 74 61 62 6c 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 61	-table.lisp-mode-abbrev-table.pa
07c0	72 61 67 72 61 70 68 2d 73 74 61 72 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72	ragraph-start.page-delimiter.par
07e0	61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65	agraph-separate.paragraph-ignore
0800	2d 66 69 6c 6c 2d 70 72 65 66 69 78 20 74 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74	-fill-prefix.t.indent-line-funct
0820	69 6f 6e 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d	ion.comment-start.comment-start-
0840	73 6b 69 70 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65	skip.comment-column.comment-inde
0860	6e 74 2d 68 6f 6f 6b 20 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 6f 64 69 66 79	nt-hook.copy-syntax-table.modify
0880	2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 34 20 22 5c 22 20 20 20 22 20 39 31 20 22 5f 20	-syntax-entry.124."\"...".91."_.
08a0	20 20 22 20 39 33 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63	..".93.set-syntax-table.make-loc
08c0	61 6c 2d 76 61 72 69 61 62 6c 65 20 22 5e 24 5c 5c 7c 22 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d	al-variable."^$\\|".lisp-indent-
08e0	6c 69 6e 65 20 22 3b 22 20 22 3b 2b 20 2a 22 20 34 30 20 6c 69 73 70 2d 63 6f 6d 6d 65 6e 74 2d	line.";".";+.*".40.lisp-comment-
0900	69 6e 64 65 6e 74 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 2d 63	indent].15))..(defun.lisp-mode-c
0920	6f 6d 6d 61 6e 64 73 20 28 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88	ommands.(map).(byte-code."....#.
0940	c1 08 c4 c5 23 88 c1 08 c6 c7 23 87 22 20 5b 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 1b	....#.....#.".[map.define-key.".
0960	11 22 20 69 6e 64 65 6e 74 2d 73 65 78 70 20 22 7f 22 20 62 61 63 6b 77 61 72 64 2d 64 65 6c 65	.".indent-sexp.".".backward-dele
0980	74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 20 22 09 22 20 6c 69 73 70 2d 69 6e 64 65 6e 74	te-char-untabify.".".lisp-indent
09a0	2d 6c 69 6e 65 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d	-line].6))..(defvar.emacs-lisp-m
09c0	6f 64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 65 6d 61 63 73 2d 6c 69 73	ode-map.nil."\.")..(if.emacs-lis
09e0	70 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 65 6d 61 63 73 2d 6c 69 73 70 2d	p-mode-map.nil.(setq.emacs-lisp-
0a00	6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28	mode-map.(make-sparse-keymap)).(
0a20	64 65 66 69 6e 65 2d 6b 65 79 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 22	define-key.emacs-lisp-mode-map."
0a40	1b 18 22 20 28 71 75 6f 74 65 20 65 76 61 6c 2d 64 65 66 75 6e 29 29 20 28 6c 69 73 70 2d 6d 6f	..".(quote.eval-defun)).(lisp-mo
0a60	64 65 2d 63 6f 6d 6d 61 6e 64 73 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 29	de-commands.emacs-lisp-mode-map)
0a80	29 0a 0a 28 64 65 66 75 6e 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c	)..(defun.emacs-lisp-mode.nil."\
0aa0	0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 4c 69 73 70 20 63 6f 64	.Major.mode.for.editing.Lisp.cod
0ac0	65 20 74 6f 20 72 75 6e 20 69 6e 20 45 6d 61 63 73 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c	e.to.run.in.Emacs..Commands:.Del
0ae0	65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69	ete.converts.tabs.to.spaces.as.i
0b00	74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 20 73 65 70 61 72 61	t.moves.back..Blank.lines.separa
0b20	74 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74	te.paragraphs...Semicolons.start
0b40	20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61	.comments..\\{emacs-lisp-mode-ma
0b60	70 7d 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20	p}.Entry.to.this.mode.calls.the.
0b80	76 61 6c 75 65 20 6f 66 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 66	value.of.emacs-lisp-mode-hook.if
0ba0	20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61	.that.value.is.non-nil.".(intera
0bc0	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 20 88 c6 08 21 88 c7 09 21 88	ctive).(byte-code.".......!...!.
0be0	c8 89 12 88 c9 89 13 88 ca c4 21 88 cb cc 21 87 22 20 5b 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f	..........!...!.".[emacs-lisp-mo
0c00	64 65 2d 6d 61 70 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61	de-map.emacs-lisp-mode-syntax-ta
0c20	62 6c 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 6b 69 6c	ble.major-mode.mode-name.nil.kil
0c40	6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d	l-all-local-variables.use-local-
0c60	6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 65 6d 61 63 73 2d 6c 69 73 70 2d	map.set-syntax-table.emacs-lisp-
0c80	6d 6f 64 65 20 22 45 6d 61 63 73 2d 4c 69 73 70 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69	mode."Emacs-Lisp".lisp-mode-vari
0ca0	61 62 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d	ables.run-hooks.emacs-lisp-mode-
0cc0	68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70	hook].6))..(defvar.lisp-mode-map
0ce0	20 6e 69 6c 29 0a 0a 28 69 66 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65	.nil)..(if.lisp-mode-map.nil.(se
0d00	74 71 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65	tq.lisp-mode-map.(make-sparse-ke
0d20	79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70	ymap)).(define-key.lisp-mode-map
0d40	20 22 1b 18 22 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 73 65 6e 64 2d 64 65 66 75 6e 29 29 20 28	."..".(quote.lisp-send-defun)).(
0d60	64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 0c 22 20 28 71	define-key.lisp-mode-map."..".(q
0d80	75 6f 74 65 20 72 75 6e 2d 6c 69 73 70 29 29 20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61	uote.run-lisp)).(lisp-mode-comma
0da0	6e 64 73 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70	nds.lisp-mode-map))..(defun.lisp
0dc0	2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74	-mode.nil."\.Major.mode.for.edit
0de0	69 6e 67 20 4c 69 73 70 20 63 6f 64 65 20 66 6f 72 20 4c 69 73 70 73 20 6f 74 68 65 72 20 74 68	ing.Lisp.code.for.Lisps.other.th
0e00	61 6e 20 47 4e 55 20 45 6d 61 63 73 20 4c 69 73 70 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c	an.GNU.Emacs.Lisp..Commands:.Del
0e20	65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69	ete.converts.tabs.to.spaces.as.i
0e40	74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 20 73 65 70 61 72 61	t.moves.back..Blank.lines.separa
0e60	74 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74	te.paragraphs...Semicolons.start
0e80	20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 4e 6f 74	.comments..\\{lisp-mode-map}.Not
0ea0	65 20 74 68 61 74 20 60 72 75 6e 2d 6c 69 73 70 27 20 6d 61 79 20 62 65 20 75 73 65 64 20 65 69	e.that.`run-lisp'.may.be.used.ei
0ec0	74 68 65 72 20 74 6f 20 73 74 61 72 74 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 4c 69 73 70 20 6a	ther.to.start.an.inferior.Lisp.j
0ee0	6f 62 0a 6f 72 20 74 6f 20 73 77 69 74 63 68 20 62 61 63 6b 20 74 6f 20 61 6e 20 65 78 69 73 74	ob.or.to.switch.back.to.an.exist
0f00	69 6e 67 20 6f 6e 65 2e 0a 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c	ing.one...Entry.to.this.mode.cal
0f20	6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 6c 69 73 70 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69	ls.the.value.of.lisp-mode-hook.i
0f40	66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72	f.that.value.is.non-nil.".(inter
0f60	61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c6 20 88 c7 08 21 88 c8 89 11	active).(byte-code.".......!....
0f80	88 c9 89 12 88 ca c3 21 88 cb 0c 21 88 cc cd 21 87 22 20 5b 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61	.......!...!...!.".[lisp-mode-ma
0fa0	70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 74 20 6c 69 73 70 2d 6d 6f	p.major-mode.mode-name.t.lisp-mo
0fc0	64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63	de-syntax-table.nil.kill-all-loc
0fe0	61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6c 69 73 70 2d	al-variables.use-local-map.lisp-
1000	6d 6f 64 65 20 22 4c 69 73 70 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20	mode."Lisp".lisp-mode-variables.
1020	73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 6c 69 73 70 2d	set-syntax-table.run-hooks.lisp-
1040	6d 6f 64 65 2d 68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 73 65 6e 64	mode-hook].6))..(defun.lisp-send
1060	2d 64 65 66 75 6e 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64	-defun.nil."\.Send.the.current.d
1080	65 66 75 6e 20 74 6f 20 74 68 65 20 4c 69 73 70 20 70 72 6f 63 65 73 73 20 6d 61 64 65 20 62 79	efun.to.the.Lisp.process.made.by
10a0	20 4d 2d 78 20 72 75 6e 2d 6c 69 73 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	.M-x.run-lisp.".(interactive).(b
10c0	79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 65 72 72 6f 72 20 22 50 72	yte-code."....!.".[nil.error."Pr
10e0	6f 63 65 73 73 20 6c 69 73 70 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 5d 20 32 29 29 0a	ocess.lisp.does.not.exist"].2)).
1100	0a 28 64 65 66 76 61 72 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d	.(defvar.lisp-interaction-mode-m
1120	61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f	ap.nil)..(if.lisp-interaction-mo
1140	64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f	de-map.nil.(setq.lisp-interactio
1160	6e 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29	n-mode-map.(make-sparse-keymap))
1180	20 28 6c 69 73 70 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 6c 69 73 70 2d 69 6e 74 65 72 61	.(lisp-mode-commands.lisp-intera
11a0	63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70	ction-mode-map).(define-key.lisp
11c0	2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 18 22 20 28 71 75 6f 74	-interaction-mode-map."..".(quot
11e0	65 20 65 76 61 6c 2d 64 65 66 75 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6c 69 73 70 2d	e.eval-defun)).(define-key.lisp-
1200	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20	interaction-mode-map.".".(quote.
1220	65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 29 29 29 0a 0a 28 64 65 66 75 6e 20	eval-print-last-sexp)))..(defun.
1240	6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a	lisp-interaction-mode.nil."\.Maj
1260	6f 72 20 6d 6f 64 65 20 66 6f 72 20 74 79 70 69 6e 67 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6e	or.mode.for.typing.and.evaluatin
1280	67 20 4c 69 73 70 20 66 6f 72 6d 73 2e 0a 4c 69 6b 65 20 4c 69 73 70 20 6d 6f 64 65 20 65 78 63	g.Lisp.forms..Like.Lisp.mode.exc
12a0	65 70 74 20 74 68 61 74 20 5c 5c 5b 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70	ept.that.\\[eval-print-last-sexp
12c0	5d 20 65 76 61 6c 73 20 74 68 65 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 0a 62 65 66 6f	].evals.the.Lisp.expression.befo
12e0	72 65 20 70 6f 69 6e 74 2c 20 61 6e 64 20 70 72 69 6e 74 73 20 69 74 73 20 76 61 6c 75 65 20 69	re.point,.and.prints.its.value.i
1300	6e 74 6f 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 64 76 61 6e 63 69 6e 67 20 70 6f 69 6e 74 2e	nto.the.buffer,.advancing.point.
1320	0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73	..Commands:.Delete.converts.tabs
1340	20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 50 61 72	.to.spaces.as.it.moves.back..Par
1360	61 67 72 61 70 68 73 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 6f 6e 6c 79 20 62 79 20 62 6c	agraphs.are.separated.only.by.bl
1380	61 6e 6b 20 6c 69 6e 65 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74 20 63 6f 6d	ank.lines...Semicolons.start.com
13a0	6d 65 6e 74 73 2e 0a 5c 5c 7b 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d	ments..\\{lisp-interaction-mode-
13c0	6d 61 70 7d 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68	map}.Entry.to.this.mode.calls.th
13e0	65 20 76 61 6c 75 65 20 6f 66 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65	e.value.of.lisp-interaction-mode
1400	2d 68 6f 6f 6b 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22	-hook.if.that.value.is.non-nil."
1420	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 20 88	.(interactive).(byte-code.".....
1440	c6 08 21 88 c7 09 21 88 c8 89 12 88 c9 89 13 88 ca c4 21 88 cb cc 21 87 22 20 5b 6c 69 73 70 2d	..!...!...........!...!.".[lisp-
1460	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 65 6d 61 63 73 2d 6c 69 73 70 2d	interaction-mode-map.emacs-lisp-
1480	6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64	mode-syntax-table.major-mode.mod
14a0	65 2d 6e 61 6d 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62	e-name.nil.kill-all-local-variab
14c0	6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62	les.use-local-map.set-syntax-tab
14e0	6c 65 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 22 4c 69 73 70 20 49	le.lisp-interaction-mode."Lisp.I
1500	6e 74 65 72 61 63 74 69 6f 6e 22 20 6c 69 73 70 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20	nteraction".lisp-mode-variables.
1520	72 75 6e 2d 68 6f 6f 6b 73 20 6c 69 73 70 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d	run-hooks.lisp-interaction-mode-
1540	68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73	hook].6))..(defun.eval-print-las
1560	74 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c 75 61 74 65 20 73 65 78 70 20 62 65	t-sexp.(arg)."\.Evaluate.sexp.be
1580	66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 74 6f 20 63 75 72	fore.point;.print.value.into.cur
15a0	72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20	rent.buffer.".(interactive."P").
15c0	28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 20 18 c5 8e 8a c6 09 21 88 c7 c8 21 88 60 29 29	(byte-code."...........!...!.`))
15e0	29 60 70 23 87 22 20 5b 73 74 61 62 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e	)`p#.".[stab.emacs-lisp-mode-syn
1600	74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73 79 6e 74 61 78	tax-table.nil.eval-region.syntax
1620	2d 74 61 62 6c 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 73 74 61 62 20	-table.((byte-code."..!.".[stab.
1640	73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73 79 6e 74 61 78	set-syntax-table].2)).set-syntax
1660	2d 74 61 62 6c 65 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 5d 20 37 29 29 0a 0a 28 64 65	-table.forward-sexp.-1].7))..(de
1680	66 75 6e 20 65 76 61 6c 2d 6c 61 73 74 2d 73 65 78 70 20 28 61 72 67 29 20 22 5c 0a 45 76 61 6c	fun.eval-last-sexp.(arg)."\.Eval
16a0	75 61 74 65 20 73 65 78 70 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 3b 20 70 72 69 6e 74 20 76 61	uate.sexp.before.point;.print.va
16c0	6c 75 65 20 69 6e 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74	lue.in.minibuffer..With.argument
16e0	2c 20 70 72 69 6e 74 20 6f 75 74 70 75 74 20 69 6e 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66	,.print.output.into.current.buff
1700	65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64	er.".(interactive."P").(byte-cod
1720	65 20 22 c4 88 c5 c6 20 18 c7 8e 8a c8 09 21 88 c9 ca 21 88 60 29 29 29 60 0a 83 1e 00 70 82 1f	e."...........!...!.`)))`....p..
1740	00 c3 23 87 22 20 5b 73 74 61 62 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74	..#.".[stab.emacs-lisp-mode-synt
1760	61 78 2d 74 61 62 6c 65 20 61 72 67 20 74 20 6e 69 6c 20 65 76 61 6c 2d 72 65 67 69 6f 6e 20 73	ax-table.arg.t.nil.eval-region.s
1780	79 6e 74 61 78 2d 74 61 62 6c 65 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b	yntax-table.((byte-code."..!.".[
17a0	73 74 61 62 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73	stab.set-syntax-table].2)).set-s
17c0	79 6e 74 61 78 2d 74 61 62 6c 65 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 5d 20 37 29 29	yntax-table.forward-sexp.-1].7))
17e0	0a 0a 28 64 65 66 75 6e 20 65 76 61 6c 2d 64 65 66 75 6e 20 28 61 72 67 29 20 22 5c 0a 45 76 61	..(defun.eval-defun.(arg)."\.Eva
1800	6c 75 61 74 65 20 64 65 66 75 6e 20 74 68 61 74 20 70 6f 69 6e 74 20 69 73 20 69 6e 20 6f 72 20	luate.defun.that.point.is.in.or.
1820	62 65 66 6f 72 65 2e 0a 50 72 69 6e 74 20 76 61 6c 75 65 20 69 6e 20 6d 69 6e 69 62 75 66 66 65	before..Print.value.in.minibuffe
1840	72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 69 6e 73 65 72 74 20 76 61 6c 75 65 20 69	r..With.argument,.insert.value.i
1860	6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 66 74 65 72 20 74 68 65 20 64 65 66 75 6e	n.current.buffer.after.the.defun
1880	2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20	.".(interactive."P").(byte-code.
18a0	22 c3 88 8a c4 20 88 60 18 c5 20 88 c6 60 08 09 83 16 00 70 82 17 00 c2 23 29 29 87 22 20 5b 65	"......`.....`.....p....#)).".[e
18c0	6e 64 20 61 72 67 20 74 20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 62 65 67 69 6e 6e	nd.arg.t.nil.end-of-defun.beginn
18e0	69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 65 76 61 6c 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28	ing-of-defun.eval-region].6))..(
1900	64 65 66 75 6e 20 6c 69 73 70 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 62	defun.lisp-comment-indent.nil.(b
1920	79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 83 0a 00 69 82 32 00 c2 c4 21 83 5c 22 00 c5 20 18 08 3c	yte-code."..!...i.2...!.\".....<
1940	83 1d 00 08 40 82 1e 00 08 29 82 32 00 c6 c7 21 88 6e 83 2e 00 c8 82 30 00 69 54 09 5d 87 22 20	....@....).2...!.n.....0.iT.].".
1960	5b 74 65 6d 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22	[tem.comment-column.looking-at."
1980	3b 3b 3b 22 20 22 3b 3b 22 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 20	;;;".";;".calculate-lisp-indent.
19a0	73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 30 5d 20 36 29 29 0a	skip-chars-backward."..".0].6)).
19c0	0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 6e 69	.(defconst.lisp-indent-offset.ni
19e0	6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68	l."\.")..(defconst.lisp-indent-h
1a00	6f 6f 6b 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 22 5c 0a	ook.(quote.lisp-indent-hook)."\.
1a20	22 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 26 6f 70	")..(defun.lisp-indent-line.(&op
1a40	74 69 6f 6e 61 6c 20 77 68 6f 6c 65 2d 65 78 70 29 20 22 5c 0a 49 6e 64 65 6e 74 20 63 75 72 72	tional.whole-exp)."\.Indent.curr
1a60	65 6e 74 20 6c 69 6e 65 20 61 73 20 4c 69 73 70 20 63 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 75	ent.line.as.Lisp.code..With.argu
1a80	6d 65 6e 74 2c 20 69 6e 64 65 6e 74 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 69 6e 65	ment,.indent.any.additional.line
1aa0	73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 0a 72 69 67 69 64 6c 79	s.of.the.same.expression.rigidly
1ac0	20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74	.along.with.this.one.".(interact
1ae0	69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c7 20 c5 c5 c5 64 60 5a 1c	ive."P").(byte-code.".......d`Z.
1b00	1b 1a 19 18 c8 20 88 60 89 12 88 c9 ca 21 88 cb cc 21 83 24 00 c5 82 98 00 cb cd 21 85 2e 00 cb	.......`.....!...!.$.......!....
1b20	ce 21 3f 83 3a 00 cf 20 88 d0 d1 21 82 5b 00 08 3c 85 43 00 08 40 89 10 88 08 69 5a 89 11 88 d2	.!?.:......!.[..<.C..@....iZ....
1b40	09 21 83 54 00 c5 82 5b 00 d3 0a 60 5c 22 88 08 6a 88 64 0c 5a 60 56 85 68 00 64 0c 5a 62 88 0e	.!.T...[...`\"..j.d.Z`V.h.d.Zb..
1b60	06 85 98 00 d2 09 21 3f 85 98 00 8a 0a 62 88 d4 d5 21 88 60 89 13 88 0a 62 88 d6 d5 21 88 60 89	......!?.....b...!.`....b...!.`.
1b80	12 88 0b 0a 56 29 85 98 00 d7 0a 0b 09 23 2d 87 22 20 5b 69 6e 64 65 6e 74 20 73 68 69 66 74 2d	....V).......#-.".[indent.shift-
1ba0	61 6d 74 20 62 65 67 20 65 6e 64 20 70 6f 73 20 6e 69 6c 20 77 68 6f 6c 65 2d 65 78 70 20 63 61	amt.beg.end.pos.nil.whole-exp.ca
1bc0	6c 63 75 6c 61 74 65 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66	lculate-lisp-indent.beginning-of
1be0	2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 6c 6f	-line.skip-chars-forward."..".lo
1c00	6f 6b 69 6e 67 2d 61 74 20 22 3b 3b 3b 22 20 22 3b 22 20 22 3b 3b 22 20 69 6e 64 65 6e 74 2d 66	oking-at.";;;".";".";;".indent-f
1c20	6f 72 2d 63 6f 6d 6d 65 6e 74 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 7a 65 72 6f 70	or-comment.forward-char.-1.zerop
1c40	20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 66 6f	.delete-region.forward-sexp.1.fo
1c60	72 77 61 72 64 2d 6c 69 6e 65 20 69 6e 64 65 6e 74 2d 63 6f 64 65 2d 72 69 67 69 64 6c 79 5d 20	rward-line.indent-code-rigidly].
1c80	31 37 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 70 2d 69 6e 64 65	17))..(defun.calculate-lisp-inde
1ca0	6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 72 73 65 2d 73 74 61 72 74 29 20 22 5c 0a 52 65	nt.(&optional.parse-start)."\.Re
1cc0	74 75 72 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 66 6f 72	turn.appropriate.indentation.for
1ce0	20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 4c 69 73 70 20 63 6f 64 65 2e 0a 49 6e 20 75	.current.line.as.Lisp.code..In.u
1d00	73 75 61 6c 20 63 61 73 65 20 72 65 74 75 72 6e 73 20 61 6e 20 69 6e 74 65 67 65 72 3a 20 74 68	sual.case.returns.an.integer:.th
1d20	65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 43 61 6e 20 69 6e 73 74 65	e.column.to.indent.to..Can.inste
1d40	61 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2c 20 77 68 6f 73 65 20 63 61 72 20 69 73 20 74	ad.return.a.list,.whose.car.is.t
1d60	68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e 0a 54 68 69 73 20 6d 65 61	he.column.to.indent.to..This.mea
1d80	6e 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 73 20 61 74 20 74 68 65 20 73	ns.that.following.lines.at.the.s
1da0	61 6d 65 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 0a 73 68 6f 75 6c 64 20	ame.level.of.indentation.should.
1dc0	6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 62 65 20 69 6e 64 65 6e 74 65 64 20 74 68 65 20	not.necessarily.be.indented.the.
1de0	73 61 6d 65 20 77 61 79 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20	same.way..The.second.element.of.
1e00	74 68 65 20 6c 69 73 74 20 69 73 20 74 68 65 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 0a	the.list.is.the.buffer.position.
1e20	6f 66 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65	of.the.start.of.the.containing.e
1e40	78 70 72 65 73 73 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a ce 20 88 60 c4 c4 c4	xpression.".(byte-code."....`...
1e60	c6 c4 c4 1e 08 1e 07 1d 1b 1a 19 18 0e 09 83 1f 00 0e 09 62 82 21 00 cf 20 88 60 08 57 85 33 00	...................b.!....`.W.3.
1e80	d0 60 08 d1 23 89 11 88 82 5c 22 00 88 0d 85 44 00 09 85 44 00 d2 09 d1 5c 22 89 12 d1 56 85 86	.`..#....\"....D...D....\"...V..
1ea0	00 c4 89 15 88 d2 09 d3 5c 22 89 16 07 88 d2 09 d4 5c 22 89 16 08 88 0e 08 54 62 88 0e 07 85 69	........\".......\"......Tb....i
1ec0	00 0e 07 60 56 85 82 00 d0 0e 07 08 d1 23 1e 0a 0e 0a 41 40 89 15 85 81 00 0e 0a 89 11 29 88 82	...`V........#....A@.........)..
1ee0	34 00 88 0d 83 8f 00 c4 82 e8 00 0e 08 54 62 88 0e 07 3f 83 a0 00 69 89 13 82 e8 00 d0 60 0e 07	4............Tb...?...i......`..
1f00	d1 c6 24 88 d5 d6 21 86 e8 00 8a d7 d4 21 88 60 29 0e 07 56 83 d7 00 60 0e 07 55 83 c6 00 c4 82	..$...!......!.`)..V...`..U.....
1f20	d1 00 d8 d4 21 88 d0 60 0e 07 d1 c6 24 88 d9 20 82 e8 00 0e 07 62 88 ce 20 88 d0 60 0e 07 d1 c6	....!..`....$........b.....`....
1f40	24 88 d9 20 88 69 1e 0b d2 09 da 5c 22 83 fe 00 08 62 88 db dc 21 88 69 82 3a 01 dd 0e 0c 21 85	$....i.....\"....b...!.i.:....!.
1f60	07 01 0e 08 83 16 01 0e 08 62 88 0e 0b 0e 0c 5c 5c 82 3a 01 0b 86 3a 01 de cd 21 85 27 01 0e 0d	.........b.....\\.:...:...!.'...
1f80	85 27 01 0d 3f 83 38 01 df 0e 0d 08 09 23 86 35 01 0e 0b 82 3a 01 0e 0b 29 2e 07 29 87 22 20 5b	.'..?.8......#.5....:...)..).".[
1fa0	69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 20 70 61 72 65 6e 2d 64 65 70 74 68 20 64	indent-point.state.paren-depth.d
1fc0	65 73 69 72 65 64 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 72 65 74 72 79 20 74 20 6c 61 73 74 2d 73	esired-indent.nil.retry.t.last-s
1fe0	65 78 70 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 73 65 78 70 20 70 61 72 73 65 2d 73 74 61 72 74 20	exp.containing-sexp.parse-start.
2000	70 65 65 6b 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 6f	peek.normal-indent.lisp-indent-o
2020	66 66 73 65 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 62 65 67 69 6e 6e 69 6e 67	ffset.lisp-indent-hook.beginning
2040	2d 6f 66 2d 6c 69 6e 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 70 61 72 73	-of-line.beginning-of-defun.pars
2060	65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 30 20 65 6c 74 20 32 20 31 20 6c 6f 6f 6b 69 6e 67	e-partial-sexp.0.elt.2.1.looking
2080	2d 61 74 20 22 5c 5c 73 28 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d	-at."\\s(".forward-line.forward-
20a0	73 65 78 70 20 62 61 63 6b 77 61 72 64 2d 70 72 65 66 69 78 2d 63 68 61 72 73 20 33 20 73 6b 69	sexp.backward-prefix-chars.3.ski
20c0	70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 74 65 67 65 72 70 20 62 6f	p-chars-forward."..".integerp.bo
20e0	75 6e 64 70 20 66 75 6e 63 61 6c 6c 5d 20 32 34 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d	undp.funcall].24))..(defun.lisp-
2100	69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73 74 61 74 65 29	indent-hook.(indent-point.state)
2120	20 28 62 79 74 65 2d 63 6f 64 65 20 22 69 18 c7 09 c8 5c 22 54 62 88 c9 60 0a ca c3 24 88 c7 09	.(byte-code."i....\"Tb..`...$...
2140	cb 5c 22 85 1b 00 cc cd 21 3f 83 3f 00 8a ce c8 21 88 60 29 0a 56 3f 85 37 00 0a 62 88 cf 20 88	.\".....!?.?....!.`).V?.7..b....
2160	c9 60 0a ca c3 24 88 d0 20 88 69 82 8e 00 d1 60 d2 c8 21 88 60 5c 22 d3 1d 1c d4 0c 21 d5 4e 89	.`...$....i....`..!.`\".....!.N.
2180	15 88 0d d6 3d 86 68 00 0d 3f 85 68 00 0c 47 d7 56 85 68 00 d8 d9 0c 5c 22 83 73 00 da 09 0e 06	....=.h..?.h..G.V.h....\".s.....
21a0	5c 22 82 8d 00 db 0d 21 83 83 00 dc 0d 09 0e 06 08 24 82 8d 00 0d 85 8d 00 dd 0d 09 0e 06 23 2a	\".....!.........$............#*
21c0	29 87 22 20 5b 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 73 74 61 74 65 20 6c 61 73 74 2d 73 65	).".[normal-indent.state.last-se
21e0	78 70 20 74 20 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68 6f 64 20 69 6e 64 65 6e 74 2d 70 6f 69 6e	xp.t.function.method.indent-poin
2200	74 20 65 6c 74 20 31 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 30 20 32 20 6c	t.elt.1.parse-partial-sexp.0.2.l
2220	6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 20 66 6f 72 77 61 72 64 2d	ooking-at."\\sw\\|\\s_".forward-
2240	6c 69 6e 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 62 61 63 6b 77 61 72 64 2d	line.beginning-of-line.backward-
2260	70 72 65 66 69 78 2d 63 68 61 72 73 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 6f	prefix-chars.buffer-substring.fo
2280	72 77 61 72 64 2d 73 65 78 70 20 6e 69 6c 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 6c 69 73 70 2d	rward-sexp.nil.intern-soft.lisp-
22a0	69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 64 65 66 75 6e 20 33 20 73 74 72 69 6e 67 2d 6d 61 74 63 68	indent-hook.defun.3.string-match
22c0	20 22 5c 5c 60 64 65 66 22 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d 20 69 6e	."\\`def".lisp-indent-defform.in
22e0	74 65 67 65 72 70 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 73 70 65 63 66 6f 72 6d 20 66 75 6e 63	tegerp.lisp-indent-specform.func
2300	61 6c 6c 5d 20 31 39 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 73 70 2d 62 6f 64 79 2d 69	all].19))..(defconst.lisp-body-i
2320	6e 64 65 6e 74 20 32 20 22 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 70 2d 69 6e 64 65 6e	ndent.2."\.")..(defun.lisp-inden
2340	74 2d 73 70 65 63 66 6f 72 6d 20 28 63 6f 75 6e 74 20 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70	t-specform.(count.state.indent-p
2360	6f 69 6e 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	oint.normal-indent).(byte-code."
2380	ca 09 cb 5c 22 0b cc cc 1d 1c 1a 18 08 62 88 69 89 15 88 0e 06 0d 5c 5c 89 14 88 cd cb 21 88 ce	...\"........b.i......\\.....!..
23a0	cb 21 88 cf 60 0e 07 cb c8 24 88 60 0e 07 57 85 34 00 cc d0 d1 8f 85 3c 00 cc 88 82 29 00 88 0b	.!..`....$.`..W.4......<....)...
23c0	d2 56 83 5e 00 0a 0b 5a cb 58 83 57 00 0d d3 d4 0e 06 5c 22 5c 5c 08 44 82 5b 00 0e 09 08 44 82	.V.^...Z.X.W......\"\\.D.[....D.
23e0	7d 00 0a d2 55 85 67 00 0b d2 55 86 74 00 0b d2 55 85 74 00 0c 0e 09 58 83 7b 00 0c 82 7d 00 0e	}...U.g...U.t...U.t....X.{...}..
2400	09 2c 87 22 20 5b 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 73 74 61 74	.,.".[containing-form-start.stat
2420	65 20 69 20 63 6f 75 6e 74 20 62 6f 64 79 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67	e.i.count.body-indent.containing
2440	2d 66 6f 72 6d 2d 63 6f 6c 75 6d 6e 20 6c 69 73 70 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 69 6e	-form-column.lisp-body-indent.in
2460	64 65 6e 74 2d 70 6f 69 6e 74 20 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 65 6c 74 20 31	dent-point.t.normal-indent.elt.1
2480	20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 70	.nil.forward-char.forward-sexp.p
24a0	61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 53	arse-partial-sexp.(byte-code.".S
24c0	89 10 88 c3 c4 21 88 c5 60 09 c4 c2 24 87 22 20 5b 63 6f 75 6e 74 20 69 6e 64 65 6e 74 2d 70 6f	.....!..`...$.".[count.indent-po
24e0	69 6e 74 20 74 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69	int.t.forward-sexp.1.parse-parti
2500	61 6c 2d 73 65 78 70 5d 20 36 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22	al-sexp].6).((error.(byte-code."
2520	c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 30 20 2a 20 32 5d 20 38 29 29 0a 0a 28 64 65 66 75	..".[nil].1))).0.*.2].8))..(defu
2540	6e 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d 20 28 73 74 61 74 65 20 69 6e 64	n.lisp-indent-defform.(state.ind
2560	65 6e 74 2d 70 6f 69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 62 88 c2 c3 21 88	ent-point).(byte-code.".A@b...!.
2580	60 08 41 41 40 56 85 1a 00 08 41 40 62 88 09 69 5c 5c 87 22 20 5b 73 74 61 74 65 20 6c 69 73 70	`.AA@V....A@b..i\\.".[state.lisp
25a0	2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 33 29 29	-body-indent.forward-line.1].3))
25c0	0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 61 6d 62 64 61 29 20 28 71 75 6f 74 65 20 6c 69 73	..(put.(quote.lambda).(quote.lis
25e0	70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 28 71 75 6f 74 65 20 64 65 66 75 6e 29 29 0a 0a 28	p-indent-hook).(quote.defun))..(
2600	70 75 74 20 28 71 75 6f 74 65 20 70 72 6f 67 6e 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e	put.(quote.progn).(quote.lisp-in
2620	64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 70 72 6f 67 31	dent-hook).0)..(put.(quote.prog1
2640	29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28	).(quote.lisp-indent-hook).1)..(
2660	70 75 74 20 28 71 75 6f 74 65 20 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 29 20 28 71 75 6f 74	put.(quote.save-excursion).(quot
2680	65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75	e.lisp-indent-hook).0)..(put.(qu
26a0	6f 74 65 20 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 29 20 28 71 75 6f 74	ote.save-window-excursion).(quot
26c0	65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75	e.lisp-indent-hook).0)..(put.(qu
26e0	6f 74 65 20 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 29 20 28 71 75 6f 74 65 20 6c 69 73	ote.save-restriction).(quote.lis
2700	70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c	p-indent-hook).0)..(put.(quote.l
2720	65 74 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a	et).(quote.lisp-indent-hook).1).
2740	0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 65 74 2a 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69	.(put.(quote.let*).(quote.lisp-i
2760	6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 77 68 69 6c	ndent-hook).1)..(put.(quote.whil
2780	65 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a	e).(quote.lisp-indent-hook).1)..
27a0	28 70 75 74 20 28 71 75 6f 74 65 20 69 66 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65	(put.(quote.if).(quote.lisp-inde
27c0	6e 74 2d 68 6f 6f 6b 29 20 32 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 63 61 74 63 68 29 20	nt-hook).2)..(put.(quote.catch).
27e0	28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75	(quote.lisp-indent-hook).1)..(pu
2800	74 20 28 71 75 6f 74 65 20 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 29 20 28 71 75 6f 74 65 20	t.(quote.condition-case).(quote.
2820	6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 32 29 0a 0a 28 70 75 74 20 28 71 75 6f 74	lisp-indent-hook).2)..(put.(quot
2840	65 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e	e.unwind-protect).(quote.lisp-in
2860	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 77 69 74 68 2d	dent-hook).1)..(put.(quote.with-
2880	6f 75 74 70 75 74 2d 74 6f 2d 74 65 6d 70 2d 62 75 66 66 65 72 29 20 28 71 75 6f 74 65 20 6c 69	output-to-temp-buffer).(quote.li
28a0	73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e	sp-indent-hook).1)..(defun.inden
28c0	74 2d 73 65 78 70 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 65 61 63 68 20 6c 69 6e 65 20 6f	t-sexp.nil."\.Indent.each.line.o
28e0	66 20 74 68 65 20 6c 69 73 74 20 73 74 61 72 74 69 6e 67 20 6a 75 73 74 20 61 66 74 65 72 20 70	f.the.list.starting.just.after.p
2900	6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20	oint.".(interactive).(byte-code.
2920	22 c1 88 c1 43 cb c1 c1 c1 c1 c1 1e 07 1e 06 1d 1c 1b 1a 18 8a cc cd 21 29 88 8a c1 89 14 88 0c	"...C..................!).......
2940	3f 85 2f 01 0a 16 08 c1 89 15 88 0d 3f 85 33 00 6d 89 14 3f 85 82 00 ce 60 cf 20 88 60 c1 c1 0e	?./.........?.3.m..?....`...`...
2960	06 25 89 16 06 88 0e 06 40 89 12 88 d0 d1 0e 06 5c 22 40 85 62 00 d2 20 88 cf 20 88 d3 d0 d1 0e	.%......@.......\"@.b...........
2980	06 5c 22 c1 5c 22 88 d0 d4 0e 06 5c 22 40 83 7b 00 d5 cd 21 88 d3 d0 d6 0e 06 5c 22 c1 5c 22 82	.\".\".....\"@.{...!......\".\".
29a0	7e 00 c9 89 15 88 82 2a 00 88 0c 86 8c 00 0a cb 58 89 14 83 93 00 c1 82 2b 01 0e 08 0a 56 85 a7	~......*........X.......+....V..
29c0	00 08 41 10 0e 08 53 89 16 08 88 82 93 00 88 0e 08 0a 57 85 bd 00 c1 08 42 10 0e 08 54 89 16 08	..A...S...........W.....B...T...
29e0	88 82 a8 00 88 d5 cd 21 88 60 89 13 88 d7 d8 21 88 6d 86 d1 00 d9 da 21 83 d8 00 c1 82 2b 01 08	.......!.`.....!.m.....!.....+..
2a00	40 85 e1 00 08 40 cb 59 83 ec 00 08 40 89 16 07 82 1a 01 db 08 40 85 f5 00 08 40 5b 21 1e 0a dc	@....@.Y....@........@....@[!...
2a20	0e 0a 21 83 0a 01 d3 08 0e 0a 89 16 07 5c 22 82 19 01 d3 08 0e 0a 41 40 5b 5c 22 88 0e 0a 40 89	..!..........\".......A@[\"...@.
2a40	16 07 29 88 dd 69 0e 07 5c 22 85 2b 01 de 0b 60 5c 22 88 0e 07 6a 88 82 1e 00 29 2e 07 87 22 20	..)..i..\".+...`\"...j....)...".
2a60	5b 69 6e 64 65 6e 74 2d 73 74 61 63 6b 20 6e 69 6c 20 6e 65 78 74 2d 64 65 70 74 68 20 62 6f 6c	[indent-stack.nil.next-depth.bol
2a80	20 6f 75 74 65 72 2d 6c 6f 6f 70 2d 64 6f 6e 65 20 69 6e 6e 65 72 2d 6c 6f 6f 70 2d 64 6f 6e 65	.outer-loop-done.inner-loop-done
2aa0	20 73 74 61 74 65 20 74 68 69 73 2d 69 6e 64 65 6e 74 20 6c 61 73 74 2d 64 65 70 74 68 20 74 20	.state.this-indent.last-depth.t.
2ac0	76 61 6c 20 30 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69	val.0.forward-sexp.1.parse-parti
2ae0	61 6c 2d 73 65 78 70 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6e 74 68 63 64 72 20 34 20 69 6e 64	al-sexp.end-of-line.nthcdr.4.ind
2b00	65 6e 74 2d 66 6f 72 2d 63 6f 6d 6d 65 6e 74 20 73 65 74 63 61 72 20 33 20 66 6f 72 77 61 72 64	ent-for-comment.setcar.3.forward
2b20	2d 6c 69 6e 65 20 35 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20	-line.5.skip-chars-forward."..".
2b40	6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 3b 0a 5d 22 20 63 61 6c 63 75 6c 61 74 65 2d 6c 69 73 70	looking-at."[;.]".calculate-lisp
2b60	2d 69 6e 64 65 6e 74 20 69 6e 74 65 67 65 72 70 20 2f 3d 20 64 65 6c 65 74 65 2d 72 65 67 69 6f	-indent.integerp./=.delete-regio
2b80	6e 5d 20 32 34 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 63 6f 64 65 2d 72 69 67 69	n].24))..(defun.indent-code-rigi
2ba0	64 6c 79 20 28 73 74 61 72 74 20 65 6e 64 20 61 72 67 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 63	dly.(start.end.arg.&optional.noc
2bc0	68 61 6e 67 65 2d 72 65 67 65 78 70 29 20 22 5c 0a 49 6e 64 65 6e 74 20 61 6c 6c 20 6c 69 6e 65	hange-regexp)."\.Indent.all.line
2be0	73 20 6f 66 20 63 6f 64 65 2c 20 73 74 61 72 74 69 6e 67 20 69 6e 20 74 68 65 20 72 65 67 69 6f	s.of.code,.starting.in.the.regio
2c00	6e 2c 20 73 69 64 65 77 61 79 73 20 62 79 20 41 52 47 20 63 6f 6c 75 6d 6e 73 2e 0a 44 6f 65 73	n,.sideways.by.ARG.columns..Does
2c20	20 6e 6f 74 20 61 66 66 65 63 74 20 6c 69 6e 65 73 20 73 74 61 72 74 69 6e 67 20 69 6e 73 69 64	.not.affect.lines.starting.insid
2c40	65 20 63 6f 6d 6d 65 6e 74 73 20 6f 72 20 73 74 72 69 6e 67 73 2c 0a 61 73 73 75 6d 69 6e 67 20	e.comments.or.strings,.assuming.
2c60	74 68 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73 20	that.the.start.of.the.region.is.
2c80	6e 6f 74 20 69 6e 73 69 64 65 20 74 68 65 6d 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 70	not.inside.them..Called.from.a.p
2ca0	72 6f 67 72 61 6d 2c 20 74 61 6b 65 73 20 61 72 67 73 20 53 54 41 52 54 2c 20 45 4e 44 2c 20 43	rogram,.takes.args.START,.END,.C
2cc0	4f 4c 55 4d 4e 53 20 61 6e 64 20 4e 4f 43 48 41 4e 47 45 2d 52 45 47 45 58 50 2e 0a 54 68 65 20	OLUMNS.and.NOCHANGE-REGEXP..The.
2ce0	6c 61 73 74 20 69 73 20 61 20 72 65 67 65 78 70 20 77 68 69 63 68 2c 20 69 66 20 6d 61 74 63 68	last.is.a.regexp.which,.if.match
2d00	65 64 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 6c 69 6e 65 2c 0a 6d	ed.at.the.beginning.of.a.line,.m
2d20	65 61 6e 73 20 64 6f 6e 27 74 20 69 6e 64 65 6e 74 20 74 68 61 74 20 6c 69 6e 65 2e 22 20 28 69	eans.don't.indent.that.line.".(i
2d40	6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88	nteractive."r.p").(byte-code."..
2d60	c3 18 8a 09 62 88 c7 20 89 11 88 0a 62 88 6e 86 21 00 c8 60 c9 ca 21 88 60 c3 c3 08 25 89 10 88	....b.......b.n.!..`..!.`...%...
2d80	60 09 57 85 66 00 cb cc 08 5c 22 40 86 54 00 0c 85 37 00 cd 0c 21 86 54 00 ce 20 1d cf 60 d0 d1	`.W.f....\"@.T...7...!.T.....`..
2da0	21 88 60 5c 22 88 6c 86 53 00 d2 d3 0d 0e 06 5c 5c 5d d3 5c 22 29 88 c8 60 c9 ca 21 88 60 c3 c3	!.`\".l.S......\\].\")..`..!.`..
2dc0	08 25 89 10 88 82 5c 22 00 29 29 87 22 20 5b 73 74 61 74 65 20 65 6e 64 20 73 74 61 72 74 20 6e	.%....\".)).".[state.end.start.n
2de0	69 6c 20 6e 6f 63 68 61 6e 67 65 2d 72 65 67 65 78 70 20 69 6e 64 65 6e 74 20 61 72 67 20 70 6f	il.nochange-regexp.indent.arg.po
2e00	69 6e 74 2d 6d 61 72 6b 65 72 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 66 6f	int-marker.parse-partial-sexp.fo
2e20	72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6e 74 68 63 64 72 20 33 20 6c 6f 6f 6b 69 6e 67 2d 61 74	rward-line.1.nthcdr.3.looking-at
2e40	20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 64 65 6c 65 74 65 2d 72 65 67 69	.current-indentation.delete-regi
2e60	6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 64 65 6e	on.skip-chars-forward."..".inden
2e80	74 2d 74 6f 20 30 5d 20 31 37 29 29 0a	t-to.0].17)).