blob: ddf4d6259e861babaa9a0a558f46c04b98e0a376 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.27.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20	imizations...;;;.This.file.uses.
0060	64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20	dynamic.docstrings,.first.added.
0080	69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64	in.Emacs.19.29...;;;.This.file.d
00a0	6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20	oes.not.contain.utf-8.non-ASCII.
00c0	63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 6c 6f	characters,.;;;.and.so.can.be.lo
00e0	61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 20 74	aded.in.Emacs.versions.earlier.t
0100	68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	han.23...;;;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 72 65 71 75 69 72 65 20 27 6f 72 67	;;;;;;;;;;;;;;;;...(require.'org
01a0	29 0a 23 40 32 38 38 20 54 68 65 20 6c 65 76 65 6c 20 61 74 20 77 68 69 63 68 20 79 65 61 72 73	).#@288.The.level.at.which.years
01c0	20 73 68 6f 75 6c 64 20 62 65 20 70 6c 61 63 65 64 20 69 6e 20 74 68 65 20 64 61 74 65 20 74 72	.should.be.placed.in.the.date.tr
01e0	65 65 2e 0a 54 68 69 73 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 6f 6e 65 2c 20 62 75 74 20 69 66	ee..This.is.normally.one,.but.if
0200	20 74 68 65 20 62 75 66 66 65 72 20 68 61 73 20 61 6e 20 65 6e 74 72 79 20 77 69 74 68 20 61 0a	.the.buffer.has.an.entry.with.a.
0220	44 41 54 45 5f 54 52 45 45 20 28 6f 72 20 57 45 45 4b 5f 54 52 45 45 20 66 6f 72 20 49 53 4f 20	DATE_TREE.(or.WEEK_TREE.for.ISO.
0240	77 65 65 6b 20 65 6e 74 72 69 65 73 29 20 70 72 6f 70 65 72 74 79 20 28 61 6e 79 0a 76 61 6c 75	week.entries).property.(any.valu
0260	65 29 2c 20 74 68 65 20 64 61 74 65 20 74 72 65 65 20 77 69 6c 6c 20 62 65 63 6f 6d 65 20 61 20	e),.the.date.tree.will.become.a.
0280	73 75 62 74 72 65 65 20 75 6e 64 65 72 20 74 68 61 74 20 65 6e 74 72 79 2c 20 73 6f 0a 74 68 65	subtree.under.that.entry,.so.the
02a0	20 62 61 73 65 20 6c 65 76 65 6c 20 77 69 6c 6c 20 62 65 20 70 72 6f 70 65 72 6c 79 20 61 64 6a	.base.level.will.be.properly.adj
02c0	75 73 74 65 64 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 62 61 73	usted...(defvar.org-datetree-bas
02e0	65 2d 6c 65 76 65 6c 20 31 20 28 23 24 20 2e 20 34 32 34 29 29 0a 28 62 79 74 65 2d 63 6f 64 65	e-level.1.(#$...424)).(byte-code
0300	20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 44 44 5c 33 30 35 5c 33 30 36	."\300\301\302\303\304DD\305\306
0320	5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 09 5c 32 30 37 22 20 5b 63 75 73	\307\310\311\312\313&.\207".[cus
0340	74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 6f 72 67 2d 64 61 74 65 74 72 65	tom-declare-variable.org-datetre
0360	65 2d 61 64 64 2d 74 69 6d 65 73 74 61 6d 70 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e	e-add-timestamp.funcall.function
0380	20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 5d 20 22 57 68 65 6e 20 6e	.#[0."\300\207".[nil].1]."When.n
03a0	6f 6e 2d 6e 69 6c 2c 20 61 64 64 20 61 20 74 69 6d 65 20 73 74 61 6d 70 20 6d 61 74 63 68 69 6e	on-nil,.add.a.time.stamp.matchin
03c0	67 20 64 61 74 65 20 6f 66 20 65 6e 74 72 79 2e 5c 6e 41 64 64 65 64 20 74 69 6d 65 20 73 74 61	g.date.of.entry.\nAdded.time.sta
03e0	6d 70 20 69 73 20 61 63 74 69 76 65 20 75 6e 6c 65 73 73 20 76 61 6c 75 65 20 69 73 20 60 69 6e	mp.is.active.unless.value.is.`in
0400	61 63 74 69 76 65 27 2e 22 20 3a 67 72 6f 75 70 20 6f 72 67 2d 63 61 70 74 75 72 65 20 3a 76 65	active'.".:group.org-capture.:ve
0420	72 73 69 6f 6e 20 22 32 34 2e 33 22 20 3a 74 79 70 65 20 28 63 68 6f 69 63 65 20 28 63 6f 6e 73	rsion."24.3".:type.(choice.(cons
0440	74 20 3a 74 61 67 20 22 44 6f 20 6e 6f 74 20 61 64 64 20 61 20 74 69 6d 65 20 73 74 61 6d 70 22	t.:tag."Do.not.add.a.time.stamp"
0460	20 6e 69 6c 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 41 64 64 20 61 6e 20 69 6e 61 63 74 69	.nil).(const.:tag."Add.an.inacti
0480	76 65 20 74 69 6d 65 20 73 74 61 6d 70 22 20 69 6e 61 63 74 69 76 65 29 20 28 63 6f 6e 73 74 20	ve.time.stamp".inactive).(const.
04a0	3a 74 61 67 20 22 41 64 64 20 61 6e 20 61 63 74 69 76 65 20 74 69 6d 65 20 73 74 61 6d 70 22 20	:tag."Add.an.active.time.stamp".
04c0	61 63 74 69 76 65 29 29 5d 20 31 30 29 0a 23 40 33 32 32 20 46 69 6e 64 20 6f 72 20 63 72 65 61	active))].10).#@322.Find.or.crea
04e0	74 65 20 61 20 64 61 79 20 65 6e 74 72 79 20 66 6f 72 20 64 61 74 65 20 44 2e 0a 49 66 20 4b 45	te.a.day.entry.for.date.D..If.KE
0500	45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6e 6f	EP-RESTRICTION.is.non-nil,.do.no
0520	74 20 77 69 64 65 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 57 68 65 6e 20 69 74 20 69 73 20 6e	t.widen.the.buffer..When.it.is.n
0540	69 6c 2c 20 74 68 65 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 20 77 69 64 65 6e 65 64 20 74	il,.the.buffer.will.be.widened.t
0560	6f 20 6d 61 6b 65 20 73 75 72 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 64 61 74 65 0a 74 72 65	o.make.sure.an.existing.date.tre
0580	65 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 2e 20 20 49 66 20 69 74 20 69 73 20 74 68 65 20 73 79	e.can.be.found...If.it.is.the.sy
05a0	6d 62 6f 6c 20 60 73 75 62 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74 27 2c 20 74 68 65 6e 20 74 68	mbol.`subtree-at-point',.then.th
05c0	65 20 74 72 65 65 0a 77 69 6c 6c 20 62 65 20 62 75 69 6c 74 20 75 6e 64 65 72 20 74 68 65 20 68	e.tree.will.be.built.under.the.h
05e0	65 61 64 6c 69 6e 65 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 28 66 6e 20 44 20 26 6f 70 74 69 6f 6e	eadline.at.point...(fn.D.&option
0600	61 6c 20 4b 45 45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	al.KEEP-RESTRICTION)..(defalias.
0620	27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 64 61 74 65 2d 63 72 65 61 74 65 20 23	'org-datetree-find-date-create.#
0640	5b 35 31 33 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c 32 30 37 22 20 5b 6f 72 67 2d 64 61 74 65	[513."\300.\301.#\207".[org-date
0660	74 72 65 65 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65 2d 67 72 6f 75 70 20 64 61 79 5d 20 36 20 28	tree--find-create-group.day].6.(
0680	23 24 20 2e 20 31 32 33 36 29 5d 29 0a 23 40 34 33 32 20 46 69 6e 64 20 6f 72 20 63 72 65 61 74	#$...1236)]).#@432.Find.or.creat
06a0	65 20 61 20 6d 6f 6e 74 68 20 65 6e 74 72 79 20 66 6f 72 20 64 61 74 65 20 44 2e 0a 43 6f 6d 70	e.a.month.entry.for.date.D..Comp
06c0	61 72 65 64 20 74 6f 20 60 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 64 61 74 65 2d	ared.to.`org-datetree-find-date-
06e0	63 72 65 61 74 65 27 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 72 65 61 74 65 73 0a 65 6e	create'.this.function.creates.en
0700	74 72 69 65 73 20 67 72 6f 75 70 65 64 20 62 79 20 6d 6f 6e 74 68 20 69 6e 73 74 65 61 64 20 6f	tries.grouped.by.month.instead.o
0720	66 20 64 61 79 73 2e 0a 49 66 20 4b 45 45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e 20 69 73 20 6e	f.days..If.KEEP-RESTRICTION.is.n
0740	6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 77 69 64 65 6e 20 74 68 65 20 62 75 66 66 65 72 2e	on-nil,.do.not.widen.the.buffer.
0760	0a 57 68 65 6e 20 69 74 20 69 73 20 6e 69 6c 2c 20 74 68 65 20 62 75 66 66 65 72 20 77 69 6c 6c	.When.it.is.nil,.the.buffer.will
0780	20 62 65 20 77 69 64 65 6e 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 61 6e 20 65 78 69 73	.be.widened.to.make.sure.an.exis
07a0	74 69 6e 67 20 64 61 74 65 0a 74 72 65 65 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 2e 20 20 49 66	ting.date.tree.can.be.found...If
07c0	20 69 74 20 69 73 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 73 75 62 74 72 65 65 2d 61 74 2d 70 6f	.it.is.the.symbol.`subtree-at-po
07e0	69 6e 74 27 2c 20 74 68 65 6e 20 74 68 65 20 74 72 65 65 0a 77 69 6c 6c 20 62 65 20 62 75 69 6c	int',.then.the.tree.will.be.buil
0800	74 20 75 6e 64 65 72 20 74 68 65 20 68 65 61 64 6c 69 6e 65 20 61 74 20 70 6f 69 6e 74 2e 0a 0a	t.under.the.headline.at.point...
0820	28 66 6e 20 44 20 26 6f 70 74 69 6f 6e 61 6c 20 4b 45 45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e	(fn.D.&optional.KEEP-RESTRICTION
0840	29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d	)..(defalias.'org-datetree-find-
0860	6d 6f 6e 74 68 2d 63 72 65 61 74 65 20 23 5b 35 31 33 20 22 5c 33 30 30 02 5c 33 30 31 03 23 5c	month-create.#[513."\300.\301.#\
0880	32 30 37 22 20 5b 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65 2d	207".[org-datetree--find-create-
08a0	67 72 6f 75 70 20 6d 6f 6e 74 68 5d 20 36 20 28 23 24 20 2e 20 31 36 38 33 29 5d 29 0a 23 40 31	group.month].6.(#$...1683)]).#@1
08c0	38 35 20 46 69 6e 64 20 6f 72 20 63 72 65 61 74 65 20 61 6e 20 65 6e 74 72 79 20 66 6f 72 20 64	85.Find.or.create.an.entry.for.d
08e0	61 74 65 20 44 2e 0a 49 66 20 74 69 6d 65 2d 70 65 72 69 6f 64 20 69 73 20 64 61 79 2c 20 67 72	ate.D..If.time-period.is.day,.gr
0900	6f 75 70 20 65 6e 74 72 69 65 73 20 62 79 20 64 61 79 2e 0a 49 66 20 74 69 6d 65 2d 70 65 72 69	oup.entries.by.day..If.time-peri
0920	6f 64 20 69 73 20 6d 6f 6e 74 68 2c 20 74 68 65 6e 20 67 72 6f 75 70 20 65 6e 74 72 69 65 73 20	od.is.month,.then.group.entries.
0940	62 79 20 6d 6f 6e 74 68 2e 0a 0a 28 66 6e 20 44 20 54 49 4d 45 2d 47 52 4f 55 50 49 4e 47 20 26	by.month...(fn.D.TIME-GROUPING.&
0960	6f 70 74 69 6f 6e 61 6c 20 4b 45 45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e 29 1f 0a 28 64 65 66	optional.KEEP-RESTRICTION)..(def
0980	61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65	alias.'org-datetree--find-create
09a0	2d 67 72 6f 75 70 20 23 5b 37 37 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 33 30 32 10	-group.#[770."\301\300!\210\302.
09c0	5c 32 31 34 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 28 00 5c 33 30 34 20 5c 32 30 34 16 00 5c 33	\214\211\303=\203(.\304.\204..\3
09e0	30 35 5c 33 30 36 21 5c 32 31 30 7e 5c 32 31 30 5c 33 30 37 20 5c 32 31 30 5c 33 30 31 5c 33 30	05\306!\210~\210\307.\210\301\30
0a00	30 21 5c 32 31 30 5c 33 31 30 5c 33 31 31 20 5c 33 30 32 5c 22 10 5c 32 30 32 46 00 5c 32 31 31	0!\210\310\311.\302\".\202F.\211
0a20	5c 32 30 34 2e 00 7e 5c 32 31 30 5c 33 31 32 5c 33 31 33 21 5c 32 31 31 5c 32 30 33 45 00 5c 32	\204..~\210\312\313!\211\203E.\2
0a40	31 31 62 5c 32 31 30 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 33 31 30 5c 33 31 31 20 5c 33 30	11b\210\301\300!\210\310\311.\30
0a60	32 5c 22 10 5c 33 30 37 20 5c 32 31 30 5c 32 31 30 65 62 5c 32 31 30 02 5c 33 31 34 01 38 5c 32	2\".\307.\210\210eb\210.\314.8\2
0a80	36 32 01 03 5c 32 31 31 40 5c 32 36 32 01 04 5c 32 31 31 41 40 5c 32 36 32 01 5c 33 31 35 5c 33	62..\211@\262..\211A@\262.\315\3
0aa0	31 36 04 5c 22 5c 32 31 30 5c 33 31 35 5c 33 31 37 04 04 23 5c 32 31 30 04 5c 33 32 30 3d 5c 32	16.\"\210\315\317..#\210.\320=\2
0ac0	30 35 71 00 5c 33 31 35 5c 33 32 31 04 04 04 24 5c 32 36 36 5c 32 30 33 29 5c 32 30 37 22 20 5b	05q.\315\321...$\266\203)\207".[
0ae0	6f 72 67 2d 64 61 74 65 74 72 65 65 2d 62 61 73 65 2d 6c 65 76 65 6c 20 6d 61 6b 65 2d 6c 6f 63	org-datetree-base-level.make-loc
0b00	61 6c 2d 76 61 72 69 61 62 6c 65 20 31 20 73 75 62 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74 20 6f	al-variable.1.subtree-at-point.o
0b20	72 67 2d 61 74 2d 68 65 61 64 69 6e 67 2d 70 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 74 20 68 65	rg-at-heading-p.error."Not.at.he
0b40	61 64 69 6e 67 22 20 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65 20 6f 72 67	ading".org-narrow-to-subtree.org
0b60	2d 67 65 74 2d 76 61 6c 69 64 2d 6c 65 76 65 6c 20 6f 72 67 2d 63 75 72 72 65 6e 74 2d 6c 65 76	-get-valid-level.org-current-lev
0b80	65 6c 20 6f 72 67 2d 66 69 6e 64 2d 70 72 6f 70 65 72 74 79 20 22 44 41 54 45 5f 54 52 45 45 22	el.org-find-property."DATE_TREE"
0ba0	20 32 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 2d 66 69 6e 64 2d 63 72 65 61 74 65 20 22 5e 5c	.2.org-datetree--find-create."^\
0bc0	5c 2a 2b 5b 20 09 5d 2b 5c 5c 28 5b 31 32 5d 5b 30 2d 39 5d 5c 5c 7b 33 5c 5c 7d 5c 5c 29 5c 5c	\*+[..]+\\([12][0-9]\\{3\\}\\)\\
0be0	28 5c 5c 73 2d 2a 3f 5c 5c 28 5b 20 09 5d 3a 5b 5b 3a 61 6c 6e 75 6d 3a 5d 3a 5f 40 23 25 25 5d	(\\s-*?\\([..]:[[:alnum:]:_@#%%]
0c00	2b 3a 5c 5c 29 3f 5c 5c 73 2d 2a 24 5c 5c 29 22 20 22 5e 5c 5c 2a 2b 5b 20 09 5d 2b 25 64 2d 5c	+:\\)?\\s-*$\\)"."^\\*+[..]+%d-\
0c20	5c 28 5b 30 31 5d 5b 30 2d 39 5d 5c 5c 29 20 5c 5c 77 2b 24 22 20 64 61 79 20 22 5e 5c 5c 2a 2b	\([01][0-9]\\).\\w+$".day."^\\*+
0c40	5b 20 09 5d 2b 25 64 2d 25 30 32 64 2d 5c 5c 28 5b 30 31 32 33 5d 5b 30 2d 39 5d 5c 5c 29 20 5c	[..]+%d-%02d-\\([0123][0-9]\\).\
0c60	5c 77 2b 24 22 5d 20 31 31 20 28 23 24 20 2e 20 32 32 34 33 29 5d 29 0a 23 40 33 38 30 20 46 69	\w+$"].11.(#$...2243)]).#@380.Fi
0c80	6e 64 20 6f 72 20 63 72 65 61 74 65 20 61 6e 20 49 53 4f 20 77 65 65 6b 20 65 6e 74 72 79 20 66	nd.or.create.an.ISO.week.entry.f
0ca0	6f 72 20 64 61 74 65 20 44 2e 0a 43 6f 6d 70 61 72 65 64 20 74 6f 20 60 6f 72 67 2d 64 61 74 65	or.date.D..Compared.to.`org-date
0cc0	74 72 65 65 2d 66 69 6e 64 2d 64 61 74 65 2d 63 72 65 61 74 65 27 20 74 68 69 73 20 66 75 6e 63	tree-find-date-create'.this.func
0ce0	74 69 6f 6e 20 63 72 65 61 74 65 73 0a 65 6e 74 72 69 65 73 20 6f 72 64 65 72 65 64 20 62 79 20	tion.creates.entries.ordered.by.
0d00	77 65 65 6b 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 6f 6e 74 68 73 2e 0a 57 68 65 6e 20 69 74 20	week.instead.of.months..When.it.
0d20	69 73 20 6e 69 6c 2c 20 74 68 65 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 20 77 69 64 65 6e	is.nil,.the.buffer.will.be.widen
0d40	65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 64 61 74 65	ed.to.make.sure.an.existing.date
0d60	0a 74 72 65 65 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 2e 20 20 49 66 20 69 74 20 69 73 20 74 68	.tree.can.be.found...If.it.is.th
0d80	65 20 73 79 6d 62 6f 6c 20 60 73 75 62 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74 27 2c 20 74 68 65	e.symbol.`subtree-at-point',.the
0da0	6e 20 74 68 65 20 74 72 65 65 0a 77 69 6c 6c 20 62 65 20 62 75 69 6c 74 20 75 6e 64 65 72 20 74	n.the.tree.will.be.built.under.t
0dc0	68 65 20 68 65 61 64 6c 69 6e 65 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 28 66 6e 20 44 20 26 6f 70	he.headline.at.point...(fn.D.&op
0de0	74 69 6f 6e 61 6c 20 4b 45 45 50 2d 52 45 53 54 52 49 43 54 49 4f 4e 29 1f 0a 28 64 65 66 61 6c	tional.KEEP-RESTRICTION)..(defal
0e00	69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 69 73 6f 2d 77 65 65 6b 2d	ias.'org-datetree-find-iso-week-
0e20	63 72 65 61 74 65 20 23 5b 35 31 33 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 33 30 32 10	create.#[513."\301\300!\210\302.
0e40	5c 32 31 34 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 28 00 5c 33 30 34 20 5c 32 30 34 16 00 5c 33	\214\211\303=\203(.\304.\204..\3
0e60	30 35 5c 33 30 36 21 5c 32 31 30 7e 5c 32 31 30 5c 33 30 37 20 5c 32 31 30 5c 33 30 31 5c 33 30	05\306!\210~\210\307.\210\301\30
0e80	30 21 5c 32 31 30 5c 33 31 30 5c 33 31 31 20 5c 33 30 32 5c 22 10 5c 32 30 32 46 00 5c 32 31 31	0!\210\310\311.\302\".\202F.\211
0ea0	5c 32 30 34 2e 00 7e 5c 32 31 30 5c 33 31 32 5c 33 31 33 21 5c 32 31 31 5c 32 30 33 45 00 5c 32	\204..~\210\312\313!\211\203E.\2
0ec0	31 31 62 5c 32 31 30 5c 33 30 31 5c 33 30 30 21 5c 32 31 30 5c 33 31 30 5c 33 31 31 20 5c 33 30	11b\210\301\300!\210\310\311.\30
0ee0	32 5c 22 10 5c 33 30 37 20 5c 32 31 30 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 34 5c 33 31 35 21	2\".\307.\210\210eb\210\314\315!
0f00	5c 32 31 30 01 5c 33 31 36 01 38 5c 32 36 32 01 02 5c 32 31 31 40 5c 32 36 32 01 03 5c 32 31 31	\210.\316.8\262..\211@\262..\211
0f20	41 40 5c 32 36 32 01 5c 33 31 37 5c 33 32 30 5c 32 31 31 5c 32 31 31 04 06 06 06 08 26 06 5c 33	A@\262.\317\320\211\211.....&.\3
0f40	32 31 06 06 5c 32 31 31 5c 33 31 36 01 38 5c 32 36 32 01 5c 33 32 32 01 5c 33 32 30 55 5c 32 30	21..\211\316.8\262.\322.\320U\20
0f60	33 7f 00 5c 33 32 33 5c 33 32 34 21 5c 32 30 32 5c 32 37 31 01 01 5c 33 32 30 56 5c 32 30 33 5c	3..\323\324!\202\271..\320V\203\
0f80	33 36 33 00 01 53 5c 32 36 32 01 5c 33 32 35 03 5c 32 31 31 5c 32 31 31 40 5c 32 36 32 01 01 5c	363..S\262.\325.\211\211@\262..\
0fa0	32 31 31 41 40 5c 32 36 32 01 02 5c 33 31 36 01 38 5c 32 36 32 01 01 5c 33 32 36 04 53 5f 5c 5c	211A@\262..\316.8\262..\326.S_\\
0fc0	03 5c 33 31 36 56 5c 32 30 33 5c 33 34 30 00 5c 32 31 31 5c 33 32 37 5c 33 33 30 06 06 5f 5c 5c	.\316V\203\340.\211\327\330.._\\
0fe0	5c 33 33 31 5c 32 34 35 5a 5c 32 36 32 01 01 5c 32 31 31 5c 33 32 30 57 5c 32 30 33 5c 33 30 31	\331\245Z\262..\211\320W\203\301
1000	00 5c 33 33 32 01 21 53 5c 32 36 32 01 5c 32 31 31 5c 33 33 30 5c 32 34 36 5c 33 32 30 55 5c 32	.\332.!S\262.\211\330\246\320U\2
1020	30 35 5c 33 32 37 00 5c 32 31 31 5c 33 33 33 5c 32 34 36 5c 33 32 30 55 3f 5c 32 30 36 5c 33 32	05\327.\211\333\246\320U?\206\32
1040	37 00 5c 32 31 31 5c 33 33 34 5c 32 34 36 5c 33 32 30 55 5c 32 36 32 01 5c 32 30 33 5c 33 34 30	7.\211\334\246\320U\262.\203\340
1060	00 5c 32 31 31 54 5c 32 36 32 01 5c 32 36 36 5c 32 30 34 5c 33 33 35 03 5f 03 5c 33 33 30 5c 32	.\211T\262.\266\204\335._.\330\2
1080	34 35 04 5c 33 33 33 5c 32 34 35 5b 05 5c 33 33 34 5c 32 34 35 25 5c 32 30 32 5c 32 37 31 01 5c	45.\333\245[.\334\245%\202\271.\
10a0	33 33 32 02 54 21 5c 32 36 32 01 5c 33 33 36 03 5c 32 31 31 5c 32 31 31 40 5c 32 36 32 01 01 5c	332.T!\262.\336.\211\211@\262..\
10c0	32 31 31 41 40 5c 32 36 32 01 02 5c 33 31 36 01 38 5c 32 36 32 01 01 5c 33 32 36 04 53 5f 5c 5c	211A@\262..\316.8\262..\326.S_\\
10e0	03 5c 33 31 36 56 5c 32 30 33 50 01 5c 32 31 31 5c 33 32 37 5c 33 33 30 06 06 5f 5c 5c 5c 33 33	.\316V\203P.\211\327\330.._\\\33
1100	31 5c 32 34 35 5a 5c 32 36 32 01 01 5c 32 31 31 5c 33 32 30 57 5c 32 30 33 31 01 5c 33 33 32 01	1\245Z\262..\211\320W\2031.\332.
1120	21 53 5c 32 36 32 01 5c 32 31 31 5c 33 33 30 5c 32 34 36 5c 33 32 30 55 5c 32 30 35 47 01 5c 32	!S\262.\211\330\246\320U\205G.\2
1140	31 31 5c 33 33 33 5c 32 34 36 5c 33 32 30 55 3f 5c 32 30 36 47 01 5c 32 31 31 5c 33 33 34 5c 32	11\333\246\320U?\206G.\211\334\2
1160	34 36 5c 33 32 30 55 5c 32 36 32 01 5c 32 30 33 50 01 5c 32 31 31 54 5c 32 36 32 01 5c 32 36 36	46\320U\262.\203P.\211T\262.\266
1180	5c 32 30 34 5c 33 33 35 03 5f 03 5c 33 33 30 5c 32 34 35 04 5c 33 33 33 5c 32 34 35 5b 05 5c 33	\204\335._.\330\245.\333\245[.\3
11a0	33 34 5c 32 34 35 5c 33 33 37 5c 32 31 31 5c 32 31 31 40 5c 32 36 32 01 01 5c 32 31 31 41 40 5c	34\245\337\211\211@\262..\211A@\
11c0	32 36 32 01 02 5c 33 31 36 01 38 5c 32 36 32 01 01 5c 33 32 36 04 53 5f 5c 5c 03 5c 33 31 36 56	262..\316.8\262..\326.S_\\.\316V
11e0	5c 32 30 33 5c 32 36 35 01 5c 32 31 31 5c 33 32 37 5c 33 33 30 06 06 5f 5c 5c 5c 33 33 31 5c 32	\203\265.\211\327\330.._\\\331\2
1200	34 35 5a 5c 32 36 32 01 01 5c 32 31 31 5c 33 32 30 57 5c 32 30 33 5c 32 32 36 01 5c 33 33 32 01	45Z\262..\211\320W\203\226.\332.
1220	21 53 5c 32 36 32 01 5c 32 31 31 5c 33 33 30 5c 32 34 36 5c 33 32 30 55 5c 32 30 35 5c 32 35 34	!S\262.\211\330\246\320U\205\254
1240	01 5c 32 31 31 5c 33 33 33 5c 32 34 36 5c 33 32 30 55 3f 5c 32 30 36 5c 32 35 34 01 5c 32 31 31	.\211\333\246\320U?\206\254.\211
1260	5c 33 33 34 5c 32 34 36 5c 33 32 30 55 5c 32 36 32 01 5c 32 30 33 5c 32 36 35 01 5c 32 31 31 54	\334\246\320U\262.\203\265.\211T
1280	5c 32 36 32 01 5c 32 36 36 5c 32 30 34 26 06 5c 32 36 36 5c 32 30 33 21 5c 33 31 36 01 38 01 40	\262.\266\204&.\266\203!\316.8.@
12a0	5c 33 34 30 5c 33 34 31 03 5c 33 32 32 5c 32 31 31 5c 33 34 32 5c 33 34 33 06 5c 6e 5c 22 25 5c	\340\341.\322\211\342\343.\n\"%\
12c0	32 31 30 5c 33 34 30 5c 33 34 34 03 03 5c 33 32 32 5c 33 34 32 5c 33 34 35 06 5c 6e 5c 22 25 5c	210\340\344..\322\342\345.\n\"%\
12e0	32 31 30 5c 33 34 30 5c 33 34 36 06 08 06 08 06 08 24 5c 32 36 36 5c 32 30 37 29 5c 32 30 37 22	210\340\346......$\266\207)\207"
1300	20 5b 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 62 61 73 65 2d 6c 65 76 65 6c 20 6d 61 6b 65 2d 6c	.[org-datetree-base-level.make-l
1320	6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 31 20 73 75 62 74 72 65 65 2d 61 74 2d 70 6f 69 6e 74	ocal-variable.1.subtree-at-point
1340	20 6f 72 67 2d 61 74 2d 68 65 61 64 69 6e 67 2d 70 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 74 20	.org-at-heading-p.error."Not.at.
1360	68 65 61 64 69 6e 67 22 20 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65 20 6f	heading".org-narrow-to-subtree.o
1380	72 67 2d 67 65 74 2d 76 61 6c 69 64 2d 6c 65 76 65 6c 20 6f 72 67 2d 63 75 72 72 65 6e 74 2d 6c	rg-get-valid-level.org-current-l
13a0	65 76 65 6c 20 6f 72 67 2d 66 69 6e 64 2d 70 72 6f 70 65 72 74 79 20 22 57 45 45 4b 5f 54 52 45	evel.org-find-property."WEEK_TRE
13c0	45 22 20 72 65 71 75 69 72 65 20 63 61 6c 2d 69 73 6f 20 32 20 65 6e 63 6f 64 65 2d 74 69 6d 65	E".require.cal-iso.2.encode-time
13e0	20 30 20 63 61 6c 65 6e 64 61 72 2d 69 73 6f 2d 66 72 6f 6d 2d 61 62 73 6f 6c 75 74 65 20 6e 69	.0.calendar-iso-from-absolute.ni
1400	6c 20 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 65 72 65 20 77 61 73 20 6e 6f 20 79 65 61 72 20	l.user-error."There.was.no.year.
1420	7a 65 72 6f 22 20 2b 20 33 31 20 32 33 20 34 20 31 30 20 61 62 73 20 31 30 30 20 34 30 30 20 33	zero".+.31.23.4.10.abs.100.400.3
1440	36 35 20 2d 20 28 31 32 20 33 31 20 2d 31 29 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 2d 66 69	65.-.(12.31.-1).org-datetree--fi
1460	6e 64 2d 63 72 65 61 74 65 20 22 5e 5c 5c 2a 2b 5b 20 09 5d 2b 5c 5c 28 5b 31 32 5d 5b 30 2d 39	nd-create."^\\*+[..]+\\([12][0-9
1480	5d 5c 5c 7b 33 5c 5c 7d 5c 5c 29 5c 5c 28 5c 5c 73 2d 2a 3f 5c 5c 28 5b 20 09 5d 3a 5b 5b 3a 61	]\\{3\\}\\)\\(\\s-*?\\([..]:[[:a
14a0	6c 6e 75 6d 3a 5d 3a 5f 40 23 25 25 5d 2b 3a 5c 5c 29 3f 5c 5c 73 2d 2a 24 5c 5c 29 22 20 66 6f	lnum:]:_@#%%]+:\\)?\\s-*$\\)".fo
14c0	72 6d 61 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 22 25 47 22 20 22 5e 5c 5c 2a 2b 5b 20 09 5d	rmat-time-string."%G"."^\\*+[..]
14e0	2b 25 64 2d 57 5c 5c 28 5b 30 2d 35 5d 5b 30 2d 39 5d 5c 5c 29 24 22 20 22 25 47 2d 57 25 56 22	+%d-W\\([0-5][0-9]\\)$"."%G-W%V"
1500	20 22 5e 5c 5c 2a 2b 5b 20 09 5d 2b 25 64 2d 25 30 32 64 2d 5c 5c 28 5b 30 31 32 33 5d 5b 30 2d	."^\\*+[..]+%d-%02d-\\([0123][0-
1520	39 5d 5c 5c 29 20 5c 5c 77 2b 24 22 5d 20 32 35 20 28 23 24 20 2e 20 33 31 39 38 29 5d 29 0a 23	9]\\).\\w+$"].25.(#$...3198)]).#
1540	40 33 34 36 20 46 69 6e 64 20 74 68 65 20 64 61 74 65 74 72 65 65 20 6d 61 74 63 68 65 64 20 62	@346.Find.the.datetree.matched.b
1560	79 20 52 45 47 45 58 2d 54 45 4d 50 4c 41 54 45 20 66 6f 72 20 59 45 41 52 2c 20 4d 4f 4e 54 48	y.REGEX-TEMPLATE.for.YEAR,.MONTH
1580	2c 20 6f 72 20 44 41 59 2e 0a 52 45 47 45 58 2d 54 45 4d 50 4c 41 54 45 20 69 73 20 70 61 73 73	,.or.DAY..REGEX-TEMPLATE.is.pass
15a0	65 64 20 74 6f 20 60 66 6f 72 6d 61 74 27 20 77 69 74 68 20 59 45 41 52 2c 20 4d 4f 4e 54 48 2c	ed.to.`format'.with.YEAR,.MONTH,
15c0	20 61 6e 64 20 44 41 59 20 61 73 0a 61 72 67 75 6d 65 6e 74 73 2e 20 20 4d 61 74 63 68 20 67 72	.and.DAY.as.arguments...Match.gr
15e0	6f 75 70 20 31 20 69 73 20 63 6f 6d 70 61 72 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 73 70	oup.1.is.compared.against.the.sp
1600	65 63 69 66 69 65 64 20 64 61 74 65 0a 63 6f 6d 70 6f 6e 65 6e 74 2e 20 20 49 66 20 49 4e 53 45	ecified.date.component...If.INSE
1620	52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 61 6e 64 20 74 68 65 72 65 20 69 73 20 6e 6f 20 6d 61	RT.is.non-nil.and.there.is.no.ma
1640	74 63 68 20 74 68 65 6e 20 69 74 20 69 73 0a 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 74 68 65	tch.then.it.is.inserted.into.the
1660	20 62 75 66 66 65 72 2e 0a 0a 28 66 6e 20 52 45 47 45 58 2d 54 45 4d 50 4c 41 54 45 20 59 45 41	.buffer...(fn.REGEX-TEMPLATE.YEA
1680	52 20 26 6f 70 74 69 6f 6e 61 6c 20 4d 4f 4e 54 48 20 44 41 59 20 49 4e 53 45 52 54 29 1f 0a 28	R.&optional.MONTH.DAY.INSERT)..(
16a0	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 2d 66 69 6e 64 2d 63 72 65	defalias.'org-datetree--find-cre
16c0	61 74 65 20 23 5b 31 32 38 32 20 22 02 5c 32 30 34 08 00 01 5c 32 30 33 0b 00 5c 33 30 30 20 5c	ate.#[1282.".\204...\203..\300.\
16e0	32 31 30 5c 33 30 31 05 05 05 05 24 5c 33 30 32 65 62 5c 32 31 30 5c 33 30 33 02 5c 33 30 32 5c	210\301....$\302eb\210\303.\302\
1700	33 30 34 23 5c 32 31 31 5c 32 36 32 02 5c 32 30 33 39 00 5c 33 30 35 5c 32 32 34 62 5c 32 30 33	304#\211\262.\2039.\305\224b\203
1720	39 00 5c 33 30 36 5c 33 30 37 5c 33 30 35 21 21 04 5c 32 30 36 35 00 05 5c 32 30 36 35 00 06 06	9.\306\307\305!!.\2065..\2065...
1740	57 5c 32 30 34 15 00 5c 32 31 31 5c 32 30 34 54 00 64 62 5c 32 31 30 6e 5c 32 30 34 47 00 5c 33	W\204..\211\204T.db\210n\204G.\3
1760	31 30 63 5c 32 31 30 5c 33 31 31 06 06 06 06 06 06 06 06 24 5c 32 30 32 79 00 5c 33 30 36 5c 33	10c\210\311........$\202y.\306\3
1780	30 37 5c 33 30 35 21 21 04 5c 32 30 36 63 00 05 5c 32 30 36 63 00 06 06 55 5c 32 30 33 6c 00 5c	07\305!!.\206c..\206c...U\203l.\
17a0	33 31 32 20 5c 32 30 32 79 00 5c 33 31 32 20 5c 32 31 30 5c 33 31 31 06 06 06 06 06 06 06 06 24	312.\202y.\312.\210\311........$
17c0	5c 32 30 37 22 20 5b 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65 20 66 6f 72	\207".[org-narrow-to-subtree.for
17e0	6d 61 74 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 74 20 31 20 73 74	mat.nil.re-search-forward.t.1.st
1800	72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 22 5c 6e 22	ring-to-number.match-string."\n"
1820	20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 69 6e 73 65 72 74 2d 6c 69 6e 65 20 62 65 67 69 6e 6e	.org-datetree-insert-line.beginn
1840	69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 31 32 20 28 23 24 20 2e 20 35 34 34 35 29 5d 29 0a 23 40	ing-of-line].12.(#$...5445)]).#@
1860	33 38 20 0a 0a 28 66 6e 20 59 45 41 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4d 4f 4e 54 48 20 44 41	38...(fn.YEAR.&optional.MONTH.DA
1880	59 20 54 45 58 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65	Y.TEXT)..(defalias.'org-datetree
18a0	2d 69 6e 73 65 72 74 2d 6c 69 6e 65 20 23 5b 31 30 32 35 20 22 5c 32 31 32 5c 33 30 33 5c 33 30	-insert-line.#[1025."\212\303\30
18c0	34 78 5c 32 31 30 60 29 60 7c 5c 32 31 30 5c 33 30 35 08 5c 32 33 36 5c 32 30 33 13 00 5c 33 30	4x\210`)`|\210\305.\236\203..\30
18e0	36 63 5c 32 31 30 5c 33 30 36 5c 33 30 37 09 5c 33 31 30 5c 22 5c 33 31 31 5c 32 36 31 03 5c 32	6c\210\306\307.\310\"\311\261.\2
1900	31 30 5c 33 31 32 75 5c 32 31 30 02 5c 32 30 33 26 00 5c 33 31 33 20 5c 32 31 30 01 5c 32 30 33	10\312u\210.\203&.\313.\210.\203
1920	2d 00 5c 33 31 33 20 5c 32 31 30 5c 32 31 31 5c 32 30 33 37 00 5c 32 31 31 63 5c 32 31 30 5c 32	-.\313.\210\211\2037.\211c\210\2
1940	30 32 67 00 5c 33 31 34 5c 33 31 35 05 5c 22 63 5c 32 31 30 02 5c 32 30 33 67 00 01 5c 32 30 33	02g.\314\315.\"c\210.\203g..\203
1960	57 00 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 32 31 31 5c 32 31 31 06 07 06 09 06 0b	W.\316\317\320\321\211\211......
1980	26 06 5c 22 5c 32 30 32 65 00 5c 33 31 36 5c 33 32 32 5c 33 32 30 5c 33 32 31 5c 32 31 31 5c 32	&.\"\202e.\316\322\320\321\211\2
19a0	31 31 5c 33 32 33 06 09 06 0b 26 06 5c 22 63 5c 32 31 30 01 5c 32 30 33 5c 32 31 32 00 5c 6e 5c	11\323....&.\"c\210.\203\212.\n\
19c0	32 30 33 5c 32 31 32 00 5c 32 31 32 5c 33 30 36 63 5c 32 31 30 5c 33 32 34 20 5c 32 31 30 5c 33	203\212.\212\306c\210\324.\210\3
19e0	32 35 5c 33 32 30 5c 33 32 31 5c 32 31 31 5c 32 31 31 06 06 06 08 06 5c 6e 26 06 5c 33 30 34 5c	25\320\321\211\211.....\n&.\304\
1a00	6e 5c 33 32 36 3d 23 5c 32 31 30 29 5c 33 32 37 20 5c 32 30 37 22 20 5b 6f 72 67 2d 62 6c 61 6e	n\326=#\210)\327.\207".[org-blan
1a20	6b 2d 62 65 66 6f 72 65 2d 6e 65 77 2d 65 6e 74 72 79 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d	k-before-new-entry.org-datetree-
1a40	62 61 73 65 2d 6c 65 76 65 6c 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 61 64 64 2d 74 69 6d 65	base-level.org-datetree-add-time
1a60	73 74 61 6d 70 20 22 20 09 5c 6e 22 20 6e 69 6c 20 68 65 61 64 69 6e 67 20 22 5c 6e 22 20 6d 61	stamp."..\n".nil.heading."\n".ma
1a80	6b 65 2d 73 74 72 69 6e 67 20 34 32 20 22 20 5c 6e 22 20 2d 31 20 6f 72 67 2d 64 6f 2d 64 65 6d	ke-string.42.".\n".-1.org-do-dem
1aa0	6f 74 65 20 66 6f 72 6d 61 74 20 22 25 64 22 20 66 6f 72 6d 61 74 2d 74 69 6d 65 2d 73 74 72 69	ote.format."%d".format-time-stri
1ac0	6e 67 20 22 2d 25 6d 2d 25 64 20 25 41 22 20 65 6e 63 6f 64 65 2d 74 69 6d 65 20 30 20 22 2d 25	ng."-%m-%d.%A".encode-time.0."-%
1ae0	6d 20 25 42 22 20 31 20 6f 72 67 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 6f 72 67 2d 69 6e 73 65	m.%B".1.org-indent-line.org-inse
1b00	72 74 2d 74 69 6d 65 2d 73 74 61 6d 70 20 69 6e 61 63 74 69 76 65 20 62 65 67 69 6e 6e 69 6e 67	rt-time-stamp.inactive.beginning
1b20	2d 6f 66 2d 6c 69 6e 65 5d 20 31 33 20 28 23 24 20 2e 20 36 32 34 33 29 5d 29 0a 23 40 36 34 20	-of-line].13.(#$...6243)]).#@64.
1b40	49 6e 73 65 72 74 20 61 20 6e 6f 64 65 20 54 58 54 20 69 6e 74 6f 20 74 68 65 20 64 61 74 65 20	Insert.a.node.TXT.into.the.date.
1b60	74 72 65 65 20 75 6e 64 65 72 20 64 61 74 65 20 44 2e 0a 0a 28 66 6e 20 54 58 54 20 44 29 1f 0a	tree.under.date.D...(fn.TXT.D)..
1b80	28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6c 65 2d 65 6e 74	(defalias.'org-datetree-file-ent
1ba0	72 79 2d 75 6e 64 65 72 20 23 5b 35 31 34 20 22 5c 33 30 31 01 21 5c 32 31 30 5c 33 30 32 08 20	ry-under.#[514."\301.!\210\302..
1bc0	5c 33 30 33 5c 22 5c 33 30 34 5c 33 30 35 5c 32 31 31 5c 22 5c 32 31 30 5c 33 30 36 20 5c 32 31	\303\"\304\305\211\"\210\306.\21
1be0	30 5c 33 30 37 01 04 5c 22 5c 32 30 37 22 20 5b 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 20 6f 72	0\307..\"\207".[outline-level.or
1c00	67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 64 61 74 65 2d 63 72 65 61 74 65 20 6f 72 67 2d	g-datetree-find-date-create.org-
1c20	67 65 74 2d 76 61 6c 69 64 2d 6c 65 76 65 6c 20 31 20 6f 72 67 2d 65 6e 64 2d 6f 66 2d 73 75 62	get-valid-level.1.org-end-of-sub
1c40	74 72 65 65 20 74 20 6f 72 67 2d 62 61 63 6b 2d 6f 76 65 72 2d 65 6d 70 74 79 2d 6c 69 6e 65 73	tree.t.org-back-over-empty-lines
1c60	20 6f 72 67 2d 70 61 73 74 65 2d 73 75 62 74 72 65 65 5d 20 36 20 28 23 24 20 2e 20 36 39 37 36	.org-paste-subtree].6.(#$...6976
1c80	29 5d 29 0a 23 40 32 30 39 20 4d 61 6b 65 20 73 75 72 65 20 61 6c 6c 20 65 6e 74 72 69 65 73 20	)]).#@209.Make.sure.all.entries.
1ca0	69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 65 65 20 61 72 65 20 75 6e 64 65 72 20 74 68	in.the.current.tree.are.under.th
1cc0	65 20 63 6f 72 72 65 63 74 20 64 61 74 65 2e 0a 49 74 20 6d 61 79 20 62 65 20 75 73 65 66 75 6c	e.correct.date..It.may.be.useful
1ce0	20 74 6f 20 72 65 73 74 72 69 63 74 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 74 68 65 20 61	.to.restrict.the.buffer.to.the.a
1d00	70 70 6c 69 63 61 62 6c 65 20 70 6f 72 74 69 6f 6e 0a 62 65 66 6f 72 65 20 72 75 6e 6e 69 6e 67	pplicable.portion.before.running
1d20	20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 20 74 68 65 20 63	.this.command,.even.though.the.c
1d40	6f 6d 6d 61 6e 64 20 74 72 69 65 73 20 74 6f 20 62 65 20 73 6d 61 72 74 2e 1f 0a 28 64 65 66 61	ommand.tries.to.be.smart...(defa
1d60	6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 63 6c 65 61 6e 75 70 20 23 5b 30 20 22	lias.'org-datetree-cleanup.#[0."
1d80	65 62 5c 32 31 30 5c 33 30 34 08 5c 33 30 35 51 5c 33 30 34 09 5c 33 30 35 51 5c 33 30 36 5c 6e	eb\210\304.\305Q\304.\305Q\306\n
1da0	5c 33 30 37 5c 33 31 30 23 5c 32 30 35 5c 32 34 34 00 5c 33 31 31 32 5c 32 34 30 00 5c 33 31 32	\307\310#\205\244.\3112\240.\312
1dc0	20 5c 33 31 33 5c 32 32 34 0b 5a 5d 5c 33 31 33 5c 32 32 34 7b 5c 33 31 34 5c 33 31 35 02 5c 22	.\313\224.Z]\313\224{\314\315.\"
1de0	5c 32 30 34 36 00 5c 33 31 36 03 02 5c 22 5c 32 30 34 36 00 5c 33 31 36 02 02 5c 22 5c 32 30 33	\2046.\316..\"\2046.\316..\"\203
1e00	3b 00 5c 33 31 37 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 5c 33 32 30 5c 33 32 31 5c 33 32 32	;.\317\311\307\"\210\320\321\322
1e20	5c 33 31 33 21 21 21 5c 33 32 33 01 38 5c 33 32 34 02 38 5c 33 32 35 03 38 45 5c 33 32 36 01 38	\313!!!\323.8\324.8\325.8E\326.8
1e40	01 40 02 41 40 60 5c 33 32 37 5c 33 31 30 21 5c 32 31 30 60 5c 33 33 30 20 5c 32 30 34 67 00 01	.@.A@`\327\310!\210`\330.\204g..
1e60	62 5c 32 31 30 5c 33 31 37 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 5c 33 33 31 5c 33 33 32 21	b\210\317\311\307\"\210\331\332!
1e80	5c 32 30 34 75 00 01 62 5c 32 31 30 5c 33 31 37 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 5c 33	\204u..b\210\317\311\307\"\210\3
1ea0	33 31 5c 33 33 33 5c 33 33 34 06 07 06 07 06 07 24 21 5c 32 30 33 5c 32 31 33 00 01 62 5c 32 31	31\333\334......$!\203\213..b\21
1ec0	30 5c 33 31 37 5c 33 31 31 5c 33 30 37 5c 22 5c 32 31 30 5c 32 31 31 62 5c 32 31 30 5c 33 33 35	0\317\311\307\"\210\211b\210\335
1ee0	20 5c 32 31 30 5c 32 31 32 5c 32 31 34 5c 33 33 36 5c 33 33 37 5c 33 31 33 21 06 07 5c 22 2a 5c	.\210\212\214\336\337\313!..\"*\
1f00	32 36 36 5c 32 30 37 5c 32 36 32 01 30 5c 32 31 30 5c 32 30 32 0b 00 5c 32 30 37 22 20 5b 6f 72	266\207\262.0\210\202..\207".[or
1f20	67 2d 64 65 61 64 6c 69 6e 65 2d 73 74 72 69 6e 67 20 6f 72 67 2d 73 63 68 65 64 75 6c 65 64 2d	g-deadline-string.org-scheduled-
1f40	73 74 72 69 6e 67 20 6f 72 67 2d 74 73 2d 72 65 67 65 78 70 20 6f 72 67 2d 64 73 2d 6b 65 79 77	string.org-ts-regexp.org-ds-keyw
1f60	6f 72 64 2d 6c 65 6e 67 74 68 20 22 5c 5c 3c 22 20 22 5c 5c 3e 5b 20 09 5d 2a 5c 5c 27 22 20 72	ord-length."\\<"."\\>[..]*\\'".r
1f80	65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6e 69 6c 20 74 20 6e 65 78 74 20 6c 69 6e 65	e-search-forward.nil.t.next.line
1fa0	2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 30 20 73 74 72 69 6e 67 2d 73 75 66	-beginning-position.0.string-suf
1fc0	66 69 78 2d 70 20 22 2d 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 74 68 72 6f 77 20 64 65 63	fix-p."-".string-match.throw.dec
1fe0	6f 64 65 2d 74 69 6d 65 20 6f 72 67 2d 74 69 6d 65 2d 73 74 72 69 6e 67 2d 74 6f 2d 74 69 6d 65	ode-time.org-time-string-to-time
2000	20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 34 20 33 20 35 20 32 20 6f 72 67 2d 62 61 63 6b 2d 74	.match-string.4.3.5.2.org-back-t
2020	6f 2d 68 65 61 64 69 6e 67 20 6f 72 67 2d 75 70 2d 68 65 61 64 69 6e 67 2d 73 61 66 65 20 6c 6f	o-heading.org-up-heading-safe.lo
2040	6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 2a 2b 5b 20 09 5d 2b 5b 30 2d 39 5d 2b 2d 5b 30 2d 31 5d 5b	oking-at."\\*+[..]+[0-9]+-[0-1][
2060	30 2d 39 5d 2d 5b 30 2d 33 5d 5b 30 2d 39 5d 22 20 66 6f 72 6d 61 74 20 22 5c 5c 2a 2b 5b 20 09	0-9]-[0-3][0-9]".format."\\*+[..
2080	5d 2b 25 64 2d 25 30 32 64 2d 25 30 32 64 22 20 6f 72 67 2d 63 75 74 2d 73 75 62 74 72 65 65 20	]+%d-%02d-%02d".org-cut-subtree.
20a0	6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6c 65 2d 65 6e 74 72 79 2d 75 6e 64 65 72 20 63 75	org-datetree-file-entry-under.cu
20c0	72 72 65 6e 74 2d 6b 69 6c 6c 5d 20 31 36 20 28 23 24 20 2e 20 37 33 30 36 29 20 6e 69 6c 5d 29	rrent-kill].16.(#$...7306).nil])
20e0	0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65 29 0a	.(provide.'org-datetree).