blob: 8e803366f334c4cda576ec737aac7f119f20af3e (plain)

ofs	hex dump	ascii
0000	0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 29 29 0a 0a 28 64 65	.(require.(quote.mim-mode))..(de
0020	66 63 6f 6e 73 74 20 6d 65 64 69 74 2d 7a 61 70 2d 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 22 2f	fconst.medit-zap-file.(concat."/
0040	74 6d 70 2f 22 20 28 67 65 74 65 6e 76 20 22 55 53 45 52 22 29 20 22 2e 6d 65 64 69 74 2e 6d 75	tmp/".(getenv."USER").".medit.mu
0060	64 22 29 20 22 5c 0a 46 69 6c 65 20 6e 61 6d 65 20 66 6f 72 20 64 61 74 61 20 73 65 6e 74 20 74	d")."\.File.name.for.data.sent.t
0080	6f 20 4d 44 4c 20 62 79 20 4d 65 64 69 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 65 64	o.MDL.by.Medit.")..(defconst.med
00a0	69 74 2d 62 75 66 66 65 72 20 22 2a 4d 45 44 49 54 2a 22 20 22 5c 0a 4e 61 6d 65 20 6f 66 20 62	it-buffer."*MEDIT*"."\.Name.of.b
00c0	75 66 66 65 72 20 69 6e 20 77 68 69 63 68 20 4d 65 64 69 74 20 61 63 63 75 6d 75 6c 61 74 65 73	uffer.in.which.Medit.accumulates
00e0	20 64 61 74 61 20 74 6f 20 73 65 6e 64 20 74 6f 20 4d 44 4c 2e 22 29 0a 0a 28 64 65 66 63 6f 6e	.data.to.send.to.MDL.")..(defcon
0100	73 74 20 6d 65 64 69 74 2d 73 61 76 65 2d 66 69 6c 65 73 20 74 20 22 5c 0a 49 66 20 6e 6f 6e 2d	st.medit-save-files.t."\.If.non-
0120	6e 69 6c 2c 20 4d 65 64 69 74 20 6f 66 66 65 72 73 20 74 6f 20 73 61 76 65 20 66 69 6c 65 73 20	nil,.Medit.offers.to.save.files.
0140	6f 6e 20 72 65 74 75 72 6e 20 74 6f 20 4d 44 4c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69	on.return.to.MDL.")..(defun.medi
0160	74 2d 73 61 76 65 2d 64 65 66 69 6e 65 20 6e 69 6c 20 22 5c 0a 4d 61 72 6b 20 74 68 65 20 70 72	t-save-define.nil."\.Mark.the.pr
0180	65 76 69 6f 75 73 20 6f 72 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 74 6f 70 6c 65 76 65 6c 20 6f	evious.or.surrounding.toplevel.o
01a0	62 6a 65 63 74 20 74 6f 20 62 65 20 73 65 6e 74 20 62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28	bject.to.be.sent.back.to.MDL.".(
01c0	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 c2 88 8a c3 20 88 60	interactive).(byte-code."......`
01e0	18 c4 c5 21 88 c6 09 08 60 23 88 08 62 88 c7 c8 08 c9 20 88 60 5c 22 21 29 29 87 22 20 5b 73 74	...!....`#..b.......`\"!)).".[st
0200	61 72 74 20 6d 65 64 69 74 2d 62 75 66 66 65 72 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f	art.medit-buffer.nil.beginning-o
0220	66 2d 44 45 46 49 4e 45 20 66 6f 72 77 61 72 64 2d 6d 69 6d 2d 6f 62 6a 65 63 74 20 31 20 61 70	f-DEFINE.forward-mim-object.1.ap
0240	70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2d 73 75	pend-to-buffer.message.buffer-su
0260	62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e	bstring.end-of-line].8))..(defun
0280	20 6d 65 64 69 74 2d 73 61 76 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22	.medit-save-region.(start.end)."
02a0	5c 0a 4d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 67 69 6f 6e 20 74 6f 20 62 65 20	\.Mark.the.current.region.to.be.
02c0	73 65 6e 74 20 74 6f 20 62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28 69 6e 74 65 72 61 63 74 69	sent.to.back.to.MDL.".(interacti
02e0	76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 88 c5 c6 21 87	ve."r").(byte-code."......#...!.
0300	22 20 5b 6d 65 64 69 74 2d 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 61 70	".[medit-buffer.start.end.nil.ap
0320	70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 22 43 75 72 72 65 6e 74 20	pend-to-buffer.message."Current.
0340	72 65 67 69 6f 6e 20 73 61 76 65 64 20 66 6f 72 20 4d 44 4c 2e 22 5d 20 34 29 29 0a 0a 28 64 65	region.saved.for.MDL."].4))..(de
0360	66 75 6e 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 4d 61 72	fun.medit-save-buffer.nil."\.Mar
0380	6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 62 65 20 73 65 6e 74 20	k.the.current.buffer.to.be.sent.
03a0	62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74	back.to.MDL.".(interactive).(byt
03c0	65 2d 63 6f 64 65 20 22 c1 88 c2 08 65 64 23 88 c3 c4 21 87 22 20 5b 6d 65 64 69 74 2d 62 75 66	e-code."....ed#...!.".[medit-buf
03e0	66 65 72 20 6e 69 6c 20 61 70 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65	fer.nil.append-to-buffer.message
0400	20 22 43 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 73 61 76 65 64 20 66 6f 72 20 4d 44 4c 2e 22	."Current.buffer.saved.for.MDL."
0420	5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 7a 61 70 2d 64 65 66 69 6e 65 2d 74	].4))..(defun.medit-zap-define-t
0440	6f 2d 6d 64 6c 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20	o-mdl.nil."\.Return.to.MDL.with.
0460	73 75 72 72 6f 75 6e 64 69 6e 67 20 6f 72 20 70 72 65 76 69 6f 75 73 20 74 6f 70 6c 65 76 65 6c	surrounding.or.previous.toplevel
0480	20 4d 44 4c 20 6f 62 6a 65 63 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 88 c1 20 88	.MDL.object.".(byte-code."......
04a0	c2 20 87 22 20 5b 69 6e 64 65 74 61 72 63 74 69 76 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 64 65	...".[indetarctive.medit-save-de
04c0	66 75 6e 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e	fun.medit-go-to-mdl].4))..(defun
04e0	20 6d 65 64 69 74 2d 7a 61 70 2d 72 65 67 69 6f 6e 2d 6d 64 6c 20 28 73 74 61 72 74 20 65 6e 64	.medit-zap-region-mdl.(start.end
0500	29 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20 63 75 72 72 65 6e 74 20	)."\.Return.to.MDL.with.current.
0520	72 65 67 69 6f 6e 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	region.".(interactive).(byte-cod
0540	65 20 22 c2 88 c3 08 09 5c 22 88 c4 20 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 6d	e.".....\"....".[start.end.nil.m
0560	65 64 69 74 2d 73 61 76 65 2d 72 65 67 69 6f 6e 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c	edit-save-region.medit-go-to-mdl
0580	5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 7a 61 70 2d 62 75 66 66 65 72 20 6e	].3))..(defun.medit-zap-buffer.n
05a0	69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20 63 75 72 72 65 6e 74	il."\.Return.to.MDL.with.current
05c0	20 62 75 66 66 65 72 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	.buffer.".(interactive).(byte-co
05e0	64 65 20 22 c0 88 c1 20 88 c2 20 87 22 20 5b 6e 69 6c 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75	de."........".[nil.medit-save-bu
0600	66 66 65 72 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75	ffer.medit-go-to-mdl].3))..(defu
0620	6e 20 6d 65 64 69 74 2d 67 6f 74 6f 2d 6d 64 6c 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 66	n.medit-goto-mdl.nil."\.Return.f
0640	72 6f 6d 20 45 6d 61 63 73 20 74 6f 20 73 75 70 65 72 69 6f 72 20 4d 44 4c 2c 20 73 65 6e 64 69	rom.Emacs.to.superior.MDL,.sendi
0660	6e 67 20 73 61 76 65 64 20 63 6f 64 65 2e 0a 4f 70 74 69 6f 6e 61 6c 6c 79 2c 20 6f 66 66 65 72	ng.saved.code..Optionally,.offer
0680	73 20 74 6f 20 73 61 76 65 20 63 68 61 6e 67 65 64 20 66 69 6c 65 73 2e 22 20 28 69 6e 74 65 72	s.to.save.changed.files.".(inter
06a0	61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c5 09 21 18 08 83 28 00 8a 08	active).(byte-code."....!...(...
06c0	71 88 c6 08 21 83 1c 00 c7 65 64 0a 23 82 1d 00 c3 88 c8 c3 21 88 c9 20 29 82 29 00 c3 88 0c 83	q...!....ed.#.......!...).).....
06e0	33 00 ca 20 82 34 00 c3 88 cb 20 29 87 22 20 5b 62 75 66 66 65 72 20 6d 65 64 69 74 2d 62 75 66	3....4.....).".[buffer.medit-buf
0700	66 65 72 20 6d 65 64 69 74 2d 7a 61 70 2d 66 69 6c 65 20 6e 69 6c 20 6d 65 64 69 74 2d 73 61 76	fer.medit-zap-file.nil.medit-sav
0720	65 2d 66 69 6c 65 73 20 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69	e-files.get-buffer.buffer-modifi
0740	65 64 2d 70 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64	ed-p.write-region.set-buffer-mod
0760	69 66 69 65 64 2d 70 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 73 61 76 65 2d 73 6f 6d 65 2d 62	ified-p.erase-buffer.save-some-b
0780	75 66 66 65 72 73 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 5d 20 38 29 29 0a 0a 28 64 65 66 63	uffers.suspend-emacs].8))..(defc
07a0	6f 6e 73 74 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e	onst.medit-mode-map.nil)..(if.(n
07c0	6f 74 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20	ot.medit-mode-map).(progn.(setq.
07e0	6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 63 6f 70 79 2d 61 6c 69 73 74 20 6d 69 6d 2d 6d	medit-mode-map.(copy-alist.mim-m
0800	6f 64 65 2d 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65	ode-map)).(define-key.medit-mode
0820	2d 6d 61 70 20 22 1b 7a 22 20 28 71 75 6f 74 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 64 65 66 69	-map.".z".(quote.medit-save-defi
0840	6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20	ne)).(define-key.medit-mode-map.
0860	22 1b 1a 22 20 28 71 75 6f 74 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75 66 66 65 72 29 29 20	"..".(quote.medit-save-buffer)).
0880	28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 18 7a 22 20	(define-key.medit-mode-map.".z".
08a0	28 71 75 6f 74 65 20 6d 65 64 69 74 2d 67 6f 74 6f 2d 6d 64 6c 29 29 20 28 64 65 66 69 6e 65 2d	(quote.medit-goto-mdl)).(define-
08c0	6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 18 73 22 20 28 71 75 6f 74 65 20 6d	key.medit-mode-map.".s".(quote.m
08e0	65 64 69 74 2d 7a 61 70 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d	edit-zap-buffer))))..(defconst.m
0900	65 64 69 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 28 71 75 6f	edit-mode-hook.(and.(boundp.(quo
0920	74 65 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b	te.mim-mode-hook)).mim-mode-hook
0940	29 20 22 5c 0a 22 29 0a 0a 28 73 65 74 71 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 71 75	)."\.")..(setq.mim-mode-hook.(qu
0960	6f 74 65 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 6d 65 64 69 74 2d 6d 6f 64 65 29 29 29 29 0a	ote.(lambda.nil.(medit-mode)))).
0980	0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 6d 6f 64 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 74	.(defun.medit-mode.(&optional.st
09a0	61 74 65 29 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74	ate)."\.Major.mode.for.editing.t
09c0	65 78 74 20 61 6e 64 20 72 65 74 75 72 6e 69 6e 67 20 69 74 20 74 6f 20 61 20 73 75 70 65 72 69	ext.and.returning.it.to.a.superi
09e0	6f 72 20 4d 44 4c 2e 0a 4c 69 6b 65 20 4d 69 6d 20 6d 6f 64 65 2c 20 70 6c 75 73 20 74 68 65 73	or.MDL..Like.Mim.mode,.plus.thes
0a00	65 20 73 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 7b 6d 65 64 69 74 2d 6d 6f 64	e.special.commands:.\\{medit-mod
0a20	65 2d 6d 61 70 7d 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	e-map}".(interactive).(byte-code
0a40	20 22 c3 88 c4 08 21 88 c5 c6 21 88 c7 89 11 88 c8 89 12 87 22 20 5b 6d 65 64 69 74 2d 6d 6f 64	."....!...!.........".[medit-mod
0a60	65 2d 6d 61 70 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 75	e-map.major-mode.mode-name.nil.u
0a80	73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 75 6e 2d 68 6f 6f 6b 73 20 6d 65 64 69 74 2d 6d 6f 64	se-local-map.run-hooks.medit-mod
0aa0	65 2d 68 6f 6f 6b 20 6d 65 64 69 74 2d 6d 6f 64 65 20 22 4d 65 64 69 74 22 5d 20 34 29 29 0a 0a	e-hook.medit-mode."Medit"].4))..
0ac0	28 6d 69 6d 2d 6d 6f 64 65 29 0a	(mim-mode).