blob: 1404b1cff4eacbaa297a4348ec050f3e204d9727 (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 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 30 33 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:03.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 72 67 2d 64	luke/.emacs.d/org-7.4/lisp/org-d
0080	61 74 65 74 72 65 65 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20	atetree.el.;;;.in.Emacs.version.
00a0	32 33 2e 31 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e	23.1.1.;;;.with.all.optimization
00c0	73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69 63 20 64	s...;;;.This.file.uses.dynamic.d
00e0	6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20	ocstrings,.first.added.in.Emacs.
0100	31 39 2e 32 39 2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63 73 2d 76	19.29..(if.(and.(boundp.'emacs-v
0120	65 72 73 69 6f 6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e	ersion)...(<.(aref.emacs-version
0140	20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41	.(1-.(length.emacs-version))).?A
0160	29 0a 09 20 28 6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a 76 65 72	)...(or.(and.(boundp.'epoch::ver
0180	73 69 6f 6e 29 20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 73 74 72	sion).epoch::version).......(str
01a0	69 6e 67 2d 6c 65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32 39 22 29	ing-lessp.emacs-version."19.29")
01c0	29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 60 6f 72 67 2d 64 61 74 65 74 72 65 65 2e 65 6c 27	)).....(error."`org-datetree.el'
01e0	20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72	.was.compiled.for.Emacs.19.29.or
0200	20 6c 61 74 65 72 22 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.later"))..;;;;;;;;;;;;;;;;;;;;;
0220	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	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 29 0a	;;;;;;;;;;;;;;...(require.'org).
0260	23 40 32 35 32 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 20 73	#@252.The.level.at.which.years.s
0280	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 65 65	hould.be.placed.in.the.date.tree
02a0	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 20 74	..This.is.normally.one,.but.if.t
02c0	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 20 44 41	he.buffer.has.an.entry.with.a.DA
02e0	54 45 5f 54 52 45 45 0a 70 72 6f 70 65 72 74 79 20 28 61 6e 79 20 76 61 6c 75 65 29 2c 20 74 68	TE_TREE.property.(any.value),.th
0300	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 73 75 62 74 72 65	e.date.tree.will.become.a.subtre
0320	65 20 75 6e 64 65 72 20 74 68 61 74 20 65 6e 74 72 79 2c 0a 73 6f 20 74 68 65 20 62 61 73 65 20	e.under.that.entry,.so.the.base.
0340	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 75 73 74 65 64 2e	level.will.be.properly.adjusted.
0360	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 65 2d 6c 65 76 65	..(defvar.org-datetree-base-leve
0380	6c 20 31 20 28 23 24 20 2e 20 36 31 34 29 29 0a 23 40 31 38 34 20 46 69 6e 64 20 6f 72 20 63 72	l.1.(#$...614)).#@184.Find.or.cr
03a0	65 61 74 65 20 61 6e 20 65 6e 74 72 79 20 66 6f 72 20 44 41 54 45 2e 0a 49 66 20 4b 45 45 50 2d	eate.an.entry.for.DATE..If.KEEP-
03c0	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 74 20 77	RESTRICTION.is.non-nil,.do.not.w
03e0	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 69 6c 2c	iden.the.buffer..When.it.is.nil,
0400	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 6f 20 6d	.the.buffer.will.be.widened.to.m
0420	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 65 20 63	ake.sure.an.existing.date.tree.c
0440	61 6e 20 62 65 20 66 6f 75 6e 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74	an.be.found...(defalias.'org-dat
0460	65 74 72 65 65 2d 66 69 6e 64 2d 64 61 74 65 2d 63 72 65 61 74 65 20 23 5b 28 64 61 74 65 20 26	etree-find-date-create.#[(date.&
0480	6f 70 74 69 6f 6e 61 6c 20 6b 65 65 70 2d 72 65 73 74 72 69 63 74 69 6f 6e 29 20 22 5c 33 30 36	optional.keep-restriction)."\306
04a0	08 38 08 40 08 41 40 19 1a 1b 5c 33 30 37 5c 33 31 30 1c 1d 5c 33 31 31 0d 21 5c 66 4c 5c 32 31	.8.@.A@...\307\310..\311.!\fL\21
04c0	30 2a 0e 14 5c 32 30 34 1d 00 7e 5c 32 31 30 65 62 5c 32 31 30 5c 32 31 34 5c 33 31 32 5c 33 31	0*..\204..~\210eb\210\214\312\31
04e0	33 5c 33 31 34 5c 33 31 35 23 5c 32 30 33 40 00 5c 33 31 36 5c 33 31 35 21 5c 32 31 30 5c 33 30	3\314\315#\203@.\316\315!\210\30
0500	37 5c 33 31 37 0e 15 20 5c 33 31 30 5c 22 1c 1d 5c 33 31 31 0d 21 5c 66 4c 5c 32 31 30 2a 5c 33	7\317...\310\"..\311.!\fL\210*\3
0520	32 30 20 5c 32 31 30 65 62 5c 32 31 30 5c 33 32 31 0b 21 5c 32 31 30 5c 33 32 32 0b 5c 6e 5c 22	20.\210eb\210\321.!\210\322.\n\"
0540	5c 32 31 30 5c 33 32 33 0b 5c 6e 09 23 5c 32 31 30 60 7e 5c 32 31 30 62 2c 5c 32 30 37 22 20 5b	\210\323.\n.#\210`~\210b,\207".[
0560	64 61 74 65 20 64 61 79 20 6d 6f 6e 74 68 20 79 65 61 72 20 76 61 6c 75 65 20 76 61 72 20 32 20	date.day.month.year.value.var.2.
0580	6f 72 67 2d 64 61 74 65 74 72 65 65 2d 62 61 73 65 2d 6c 65 76 65 6c 20 31 20 6d 61 6b 65 2d 6c	org-datetree-base-level.1.make-l
05a0	6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20	ocal-variable.re-search-forward.
05c0	22 5e 5b 20 09 5d 2a 3a 44 41 54 45 5f 54 52 45 45 3a 5b 20 09 5d 2b 5c 5c 53 2d 22 20 6e 69 6c	"^[..]*:DATE_TREE:[..]+\\S-".nil
05e0	20 74 20 6f 72 67 2d 62 61 63 6b 2d 74 6f 2d 68 65 61 64 69 6e 67 20 6f 72 67 2d 67 65 74 2d 76	.t.org-back-to-heading.org-get-v
0600	61 6c 69 64 2d 6c 65 76 65 6c 20 6f 72 67 2d 6e 61 72 72 6f 77 2d 74 6f 2d 73 75 62 74 72 65 65	alid-level.org-narrow-to-subtree
0620	20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 79 65 61 72 2d 63 72 65 61 74 65 20 6f	.org-datetree-find-year-create.o
0640	72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 6d 6f 6e 74 68 2d 63 72 65 61 74 65 20 6f 72	rg-datetree-find-month-create.or
0660	67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 64 61 79 2d 63 72 65 61 74 65 20 6b 65 65 70 2d	g-datetree-find-day-create.keep-
0680	72 65 73 74 72 69 63 74 69 6f 6e 20 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 5d 20 34 20 28 23 24	restriction.outline-level].4.(#$
06a0	20 2e 20 39 31 38 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65	...918)]).(defalias.'org-datetre
06c0	65 2d 66 69 6e 64 2d 79 65 61 72 2d 63 72 65 61 74 65 20 23 5b 28 79 65 61 72 29 20 22 5c 33 30	e-find-year-create.#[(year)."\30
06e0	33 5c 33 30 34 18 19 65 62 5c 32 31 30 5c 33 30 35 09 5c 33 30 34 5c 33 30 36 23 5c 32 31 31 10	3\304..eb\210\305.\304\306#\211.
0700	5c 32 30 33 21 00 5c 33 30 37 5c 32 32 34 62 5c 32 30 33 21 00 5c 33 31 30 5c 33 31 31 5c 33 30	\203!.\307\224b\203!.\310\311\30
0720	37 21 21 5c 6e 57 5c 32 30 34 07 00 08 5c 32 30 34 35 00 64 62 5c 32 31 30 6e 5c 32 30 34 2f 00	7!!\nW\204...\2045.db\210n\204/.
0740	5c 33 31 32 20 5c 32 31 30 5c 33 31 33 5c 6e 21 5c 32 30 32 4c 00 5c 33 31 30 5c 33 31 31 5c 33	\312.\210\313\n!\202L.\310\311\3
0760	30 37 21 21 5c 6e 55 5c 32 30 33 45 00 5c 33 31 34 20 62 5c 32 30 32 4c 00 5c 33 31 35 5c 33 30	07!!\nU\203E.\314.b\202L.\315\30
0780	37 21 5c 32 31 30 5c 33 31 33 5c 6e 21 2a 5c 32 30 37 22 20 5b 6d 61 74 63 68 20 72 65 20 79 65	7!\210\313\n!*\207".[match.re.ye
07a0	61 72 20 22 5e 5c 5c 2a 2b 5b 20 09 5d 2b 5c 5c 28 5b 31 32 5d 5b 30 2d 39 5d 5b 30 2d 39 5d 5b	ar."^\\*+[..]+\\([12][0-9][0-9][
07c0	30 2d 39 5d 5c 5c 29 5b 20 09 5c 6e 5d 22 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72	0-9]\\)[..\n]".nil.re-search-for
07e0	77 61 72 64 20 74 20 31 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 6d 61 74 63 68 2d	ward.t.1.string-to-number.match-
0800	73 74 72 69 6e 67 20 6e 65 77 6c 69 6e 65 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 69 6e 73 65	string.newline.org-datetree-inse
0820	72 74 2d 6c 69 6e 65 20 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f	rt-line.point-at-bol.beginning-o
0840	66 2d 6c 69 6e 65 5d 20 34 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74	f-line].4]).(defalias.'org-datet
0860	72 65 65 2d 66 69 6e 64 2d 6d 6f 6e 74 68 2d 63 72 65 61 74 65 20 23 5b 28 79 65 61 72 20 6d 6f	ree-find-month-create.#[(year.mo
0880	6e 74 68 29 20 22 5c 33 30 34 20 5c 32 31 30 5c 33 30 35 5c 33 30 36 08 5c 22 5c 33 30 37 19 1a	nth)."\304.\210\305\306.\"\307..
08a0	65 62 5c 32 31 30 5c 33 31 30 5c 6e 5c 33 30 37 5c 33 31 31 23 5c 32 31 31 11 5c 32 30 33 27 00	eb\210\310\n\307\311#\211.\203'.
08c0	5c 33 31 32 5c 32 32 34 62 5c 32 30 33 27 00 5c 33 31 33 5c 33 31 34 5c 33 31 32 21 21 0b 57 5c	\312\224b\203'.\313\314\312!!.W\
08e0	32 30 34 0d 00 09 5c 32 30 34 3c 00 64 62 5c 32 31 30 6e 5c 32 30 34 35 00 5c 33 31 35 20 5c 32	204...\204<.db\210n\2045.\315.\2
0900	31 30 5c 33 31 36 08 0b 5c 22 5c 32 30 32 54 00 5c 33 31 33 5c 33 31 34 5c 33 31 32 21 21 0b 55	10\316..\"\202T.\313\314\312!!.U
0920	5c 32 30 33 4c 00 5c 33 31 37 20 62 5c 32 30 32 54 00 5c 33 32 30 5c 33 31 32 21 5c 32 31 30 5c	\203L.\317.b\202T.\320\312!\210\
0940	33 31 36 08 0b 5c 22 2a 5c 32 30 37 22 20 5b 79 65 61 72 20 6d 61 74 63 68 20 72 65 20 6d 6f 6e	316..\"*\207".[year.match.re.mon
0960	74 68 20 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 6d 61 74 20	th.org-narrow-to-subtree.format.
0980	22 5e 5c 5c 2a 2b 5b 20 09 5d 2b 25 64 2d 5c 5c 28 5b 30 31 5d 5b 30 2d 39 5d 5c 5c 29 5b 20 09	"^\\*+[..]+%d-\\([01][0-9]\\)[..
09a0	5c 6e 5d 22 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	\n]".nil.re-search-forward.t.1.s
09c0	74 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 6e 65 77	tring-to-number.match-string.new
09e0	6c 69 6e 65 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 70 6f	line.org-datetree-insert-line.po
0a00	69 6e 74 2d 61 74 2d 62 6f 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 34 5d	int-at-bol.beginning-of-line].4]
0a20	29 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 64	).(defalias.'org-datetree-find-d
0a40	61 79 2d 63 72 65 61 74 65 20 23 5b 28 79 65 61 72 20 6d 6f 6e 74 68 20 64 61 79 29 20 22 5c 33	ay-create.#[(year.month.day)."\3
0a60	30 35 20 5c 32 31 30 5c 33 30 36 5c 33 30 37 08 09 23 5c 33 31 30 1a 1b 65 62 5c 32 31 30 5c 33	05.\210\306\307..#\310..eb\210\3
0a80	31 31 0b 5c 33 31 30 5c 33 31 32 23 5c 32 31 31 12 5c 32 30 33 28 00 5c 33 31 33 5c 32 32 34 62	11.\310\312#\211.\203(.\313\224b
0aa0	5c 32 30 33 28 00 5c 33 31 34 5c 33 31 35 5c 33 31 33 21 21 5c 66 57 5c 32 30 34 0e 00 5c 6e 5c	\203(.\314\315\313!!\fW\204..\n\
0ac0	32 30 34 3e 00 64 62 5c 32 31 30 6e 5c 32 30 34 36 00 5c 33 31 36 20 5c 32 31 30 5c 33 31 37 08	204>.db\210n\2046.\316.\210\317.
0ae0	09 5c 66 23 5c 32 30 32 57 00 5c 33 31 34 5c 33 31 35 5c 33 31 33 21 21 5c 66 55 5c 32 30 33 4e	.\f#\202W.\314\315\313!!\fU\203N
0b00	00 5c 33 32 30 20 62 5c 32 30 32 57 00 5c 33 32 31 5c 33 31 33 21 5c 32 31 30 5c 33 31 37 08 09	.\320.b\202W.\321\313!\210\317..
0b20	5c 66 23 2a 5c 32 30 37 22 20 5b 79 65 61 72 20 6d 6f 6e 74 68 20 6d 61 74 63 68 20 72 65 20 64	\f#*\207".[year.month.match.re.d
0b40	61 79 20 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 6d 61 74 20	ay.org-narrow-to-subtree.format.
0b60	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 39	"^\\*+[..]+%d-%02d-\\([0123][0-9
0b80	5d 5c 5c 29 5b 20 09 5c 6e 5d 22 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72	]\\)[..\n]".nil.re-search-forwar
0ba0	64 20 74 20 31 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 6d 61 74 63 68 2d 73 74 72	d.t.1.string-to-number.match-str
0bc0	69 6e 67 20 6e 65 77 6c 69 6e 65 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 69 6e 73 65 72 74 2d	ing.newline.org-datetree-insert-
0be0	6c 69 6e 65 20 70 6f 69 6e 74 2d 61 74 2d 62 6f 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c	line.point-at-bol.beginning-of-l
0c00	69 6e 65 5d 20 34 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 64 61 74 65 74 72 65 65	ine].4]).(defalias.'org-datetree
0c20	2d 69 6e 73 65 72 74 2d 6c 69 6e 65 20 23 5b 28 79 65 61 72 20 26 6f 70 74 69 6f 6e 61 6c 20 6d	-insert-line.#[(year.&optional.m
0c40	6f 6e 74 68 20 64 61 79 29 20 22 60 18 5c 33 30 35 5c 33 30 36 78 5c 32 31 30 60 08 7c 5c 32 31	onth.day)."`.\305\306x\210`.|\21
0c60	30 5c 33 30 37 5c 33 31 30 09 5c 33 31 31 5c 22 5c 33 31 32 5c 32 36 31 03 5c 32 31 30 5c 33 31	0\307\310.\311\"\312\261.\210\31
0c80	33 75 5c 32 31 30 5c 6e 5c 32 30 33 1d 00 5c 33 31 34 20 5c 32 31 30 0b 5c 32 30 33 24 00 5c 33	3u\210\n\203..\314.\210.\203$.\3
0ca0	31 34 20 5c 32 31 30 5c 33 31 35 5c 33 31 36 5c 66 5c 22 63 5c 32 31 30 5c 6e 5c 32 30 33 5e 00	14.\210\315\316\f\"c\210\n\203^.
0cc0	5c 33 31 35 5c 33 31 37 5c 6e 5c 22 63 5c 32 31 30 0b 5c 32 30 33 4d 00 5c 33 31 35 5c 33 32 30	\315\317\n\"c\210.\203M.\315\320
0ce0	0b 5c 33 32 31 5c 33 32 32 5c 33 32 33 5c 33 32 34 5c 32 31 31 5c 32 31 31 0b 5c 6e 5c 66 26 06	.\321\322\323\324\211\211.\n\f&.
0d00	5c 22 23 63 5c 32 31 30 5c 32 30 32 5e 00 5c 33 31 35 5c 33 32 35 5c 33 32 31 5c 33 32 36 5c 33	\"#c\210\202^.\315\325\321\326\3
0d20	32 33 5c 33 32 34 5c 32 31 31 5c 32 31 31 5c 33 32 37 5c 6e 5c 66 26 06 5c 22 5c 22 63 5c 32 31	23\324\211\211\327\n\f&.\"\"c\21
0d40	30 5c 33 33 30 5c 33 32 37 21 29 5c 32 30 37 22 20 5b 70 6f 73 20 6f 72 67 2d 64 61 74 65 74 72	0\330\327!)\207".[pos.org-datetr
0d60	65 65 2d 62 61 73 65 2d 6c 65 76 65 6c 20 6d 6f 6e 74 68 20 64 61 79 20 79 65 61 72 20 22 20 09	ee-base-level.month.day.year."..
0d80	5c 6e 22 20 6e 69 6c 20 22 5c 6e 22 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 34 32 20 22 20 5c 6e	\n".nil."\n".make-string.42.".\n
0da0	22 20 2d 31 20 6f 72 67 2d 64 6f 2d 64 65 6d 6f 74 65 20 66 6f 72 6d 61 74 20 22 25 64 22 20 22	".-1.org-do-demote.format."%d"."
0dc0	2d 25 30 32 64 22 20 22 2d 25 30 32 64 20 25 73 22 20 66 6f 72 6d 61 74 2d 74 69 6d 65 2d 73 74	-%02d"."-%02d.%s".format-time-st
0de0	72 69 6e 67 20 22 25 41 22 20 65 6e 63 6f 64 65 2d 74 69 6d 65 20 30 20 22 20 25 73 22 20 22 25	ring."%A".encode-time.0.".%s"."%
0e00	42 22 20 31 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 31 32 5d 29 0a 23 40 35	B".1.beginning-of-line].12]).#@5
0e20	30 20 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	0.Insert.a.node.TXT.into.the.dat
0e40	65 20 74 72 65 65 20 75 6e 64 65 72 20 44 41 54 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f	e.tree.under.DATE...(defalias.'o
0e60	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 23 5b 28	rg-datetree-file-entry-under.#[(
0e80	74 78 74 20 64 61 74 65 29 20 22 5c 33 30 34 08 21 5c 32 31 30 5c 33 30 35 09 20 5c 33 30 36 5c	txt.date)."\304.!\210\305..\306\
0ea0	22 1a 5c 33 30 37 5c 33 31 30 5c 32 31 31 5c 22 5c 32 31 30 5c 33 31 31 20 5c 32 31 30 5c 33 31	".\307\310\211\"\210\311.\210\31
0ec0	32 5c 6e 0b 5c 22 29 5c 32 30 37 22 20 5b 64 61 74 65 20 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c	2\n.\")\207".[date.outline-level
0ee0	20 6c 65 76 65 6c 20 74 78 74 20 6f 72 67 2d 64 61 74 65 74 72 65 65 2d 66 69 6e 64 2d 64 61 74	.level.txt.org-datetree-find-dat
0f00	65 2d 63 72 65 61 74 65 20 6f 72 67 2d 67 65 74 2d 76 61 6c 69 64 2d 6c 65 76 65 6c 20 31 20 6f	e-create.org-get-valid-level.1.o
0f20	72 67 2d 65 6e 64 2d 6f 66 2d 73 75 62 74 72 65 65 20 74 20 6f 72 67 2d 62 61 63 6b 2d 6f 76 65	rg-end-of-subtree.t.org-back-ove
0f40	72 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 20 6f 72 67 2d 70 61 73 74 65 2d 73 75 62 74 72 65 65 5d	r-empty-lines.org-paste-subtree]
0f60	20 33 20 28 23 24 20 2e 20 33 36 31 38 29 5d 29 0a 23 40 32 30 39 20 4d 61 6b 65 20 73 75 72 65	.3.(#$...3618)]).#@209.Make.sure
0f80	20 61 6c 6c 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 65 65	.all.entries.in.the.current.tree
0fa0	20 61 72 65 20 75 6e 64 65 72 20 74 68 65 20 63 6f 72 72 65 63 74 20 64 61 74 65 2e 0a 49 74 20	.are.under.the.correct.date..It.
0fc0	6d 61 79 20 62 65 20 75 73 65 66 75 6c 20 74 6f 20 72 65 73 74 72 69 63 74 20 74 68 65 20 62 75	may.be.useful.to.restrict.the.bu
0fe0	66 66 65 72 20 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 62 6c 65 20 70 6f 72 74 69 6f 6e 0a 62	ffer.to.the.applicable.portion.b
1000	65 66 6f 72 65 20 72 75 6e 6e 69 6e 67 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 2c 20 65 76 65 6e	efore.running.this.command,.even
1020	20 74 68 6f 75 67 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 72 69 65 73 20 74 6f 20 62 65 20	.though.the.command.tries.to.be.
1040	73 6d 61 72 74 2e 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	smart...(defalias.'org-datetree-
1060	63 6c 65 61 6e 75 70 20 23 5b 6e 69 6c 20 22 65 62 5c 32 31 30 5c 33 30 36 08 5c 33 30 37 51 5c	cleanup.#[nil."eb\210\306.\307Q\
1080	33 30 36 09 5c 33 30 37 51 5c 33 31 30 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31	306.\307Q\310\211\211\211\211\21
10a0	31 5c 32 31 31 5c 32 31 31 5c 32 31 31 1a 1b 1c 1d 1e 0d 1e 0e 1e 0f 1e 10 1e 11 1e 12 1e 13 5c	1\211\211\211..................\
10c0	33 31 31 0e 14 5c 33 31 30 5c 33 31 32 23 5c 32 30 35 36 00 5c 33 31 33 5c 33 31 34 5c 32 31 35	311..\310\312#\2056.\313\314\215
10e0	5c 32 31 30 5c 32 30 32 26 00 2e 0b 5c 32 30 37 22 20 5b 6f 72 67 2d 64 65 61 64 6c 69 6e 65 2d	\210\202&...\207".[org-deadline-
1100	73 74 72 69 6e 67 20 6f 72 67 2d 73 63 68 65 64 75 6c 65 64 2d 73 74 72 69 6e 67 20 68 64 6c 2d	string.org-scheduled-string.hdl-
1120	70 6f 73 20 70 6f 73 20 64 61 79 20 6d 6f 6e 74 68 20 22 5c 5c 3c 22 20 22 5c 5c 3e 5b 20 09 5d	pos.pos.day.month."\\<"."\\>[..]
1140	2a 5c 5c 27 22 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 6e 65	*\\'".nil.re-search-forward.t.ne
1160	78 74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 36 5c 33 30 37 21 10 5c 33 31 30 20 5c 33	xt.(byte-code."\306\307!.\310.\3
1180	30 37 5c 32 32 34 09 5a 5d 5c 33 30 37 5c 32 32 34 7b 12 5c 33 31 31 5c 33 31 32 5c 6e 5c 22 5c	07\224.Z]\307\224{.\311\312\n\"\
11a0	32 30 34 24 00 5c 33 31 31 0b 5c 6e 5c 22 5c 32 30 34 24 00 5c 33 31 31 5c 66 5c 6e 5c 22 5c 32	204$.\311.\n\"\204$.\311\f\n\"\2
11c0	30 33 29 00 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33 31 36 5c 33 31 37 5c 33	03).\313\314\315\"\210\316\317\3
11e0	30 36 5c 33 30 37 21 21 21 15 5c 33 32 30 0d 38 5c 33 32 31 0d 38 5c 33 32 32 0d 38 45 16 1e 5c	06\307!!!.\320.8\321.8\322.8E..\
1200	33 32 33 0e 1e 38 16 1f 0e 1e 40 16 20 0e 1e 41 40 16 21 60 16 5c 22 5c 33 32 34 5c 33 32 35 21	323..8....@....A@.!`.\"\324\325!
1220	5c 32 31 30 60 16 23 5c 33 32 36 20 5c 32 30 34 66 00 0e 5c 22 62 5c 32 31 30 5c 33 31 33 5c 33	\210`.#\326.\204f..\"b\210\313\3
1240	31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33 32 37 5c 33 33 30 21 5c 32 30 34 75 00 0e 5c 22 62 5c	14\315\"\210\327\330!\204u..\"b\
1260	32 31 30 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 22 5c 32 31 30 5c 33 32 37 5c 33 33 31 5c 33 33	210\313\314\315\"\210\327\331\33
1280	32 0e 1f 0e 20 0e 21 24 21 5c 32 30 33 5c 32 31 34 00 0e 5c 22 62 5c 32 31 30 5c 33 31 33 5c 33	2.....!$!\203\214..\"b\210\313\3
12a0	31 34 5c 33 31 35 5c 22 5c 32 31 30 0e 23 62 5c 32 31 30 5c 33 33 33 20 5c 32 31 30 5c 32 31 32	14\315\"\210.#b\210\333.\210\212
12c0	5c 32 31 34 5c 33 33 34 5c 33 33 35 5c 33 30 37 21 0e 1e 5c 22 5c 32 31 30 2a 5c 33 31 35 5c 32	\214\334\335\307!..\"\210*\315\2
12e0	30 37 22 20 5b 74 73 20 6f 72 67 2d 64 73 2d 6b 65 79 77 6f 72 64 2d 6c 65 6e 67 74 68 20 74 6d	07".[ts.org-ds-keyword-length.tm
1300	70 20 64 72 65 20 73 72 65 20 64 63 74 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 30 20 70 6f 69	p.dre.sre.dct.match-string.0.poi
1320	6e 74 2d 61 74 2d 62 6f 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 2d 5c 5c 27 22 20 74 68	nt-at-bol.string-match."-\\'".th
1340	72 6f 77 20 6e 65 78 74 20 6e 69 6c 20 64 65 63 6f 64 65 2d 74 69 6d 65 20 6f 72 67 2d 74 69 6d	row.next.nil.decode-time.org-tim
1360	65 2d 73 74 72 69 6e 67 2d 74 6f 2d 74 69 6d 65 20 34 20 33 20 35 20 32 20 6f 72 67 2d 62 61 63	e-string-to-time.4.3.5.2.org-bac
1380	6b 2d 74 6f 2d 68 65 61 64 69 6e 67 20 74 20 6f 72 67 2d 75 70 2d 68 65 61 64 69 6e 67 2d 73 61	k-to-heading.t.org-up-heading-sa
13a0	66 65 20 6c 6f 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	fe.looking-at."\\*+[..]+[0-9]+-[
13c0	30 2d 31 5d 5b 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	0-1][0-9]-[0-3][0-9]".format."\\
13e0	2a 2b 5b 20 09 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	*+[..]+%d-%02d-%02d".org-cut-sub
1400	74 72 65 65 20 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	tree.org-datetree-file-entry-und
1420	65 72 20 63 75 72 72 65 6e 74 2d 6b 69 6c 6c 20 64 61 74 65 20 79 65 61 72 20 6d 6f 6e 74 68 20	er.current-kill.date.year.month.
1440	64 61 79 20 70 6f 73 20 68 64 6c 2d 70 6f 73 5d 20 36 29 20 79 65 61 72 20 64 61 74 65 20 74 6d	day.pos.hdl-pos].6).year.date.tm
1460	70 20 74 73 20 64 63 74 20 73 72 65 20 64 72 65 20 6f 72 67 2d 74 73 2d 72 65 67 65 78 70 5d 20	p.ts.dct.sre.dre.org-ts-regexp].
1480	31 31 20 28 23 24 20 2e 20 33 39 35 39 29 20 6e 69 6c 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f	11.(#$...3959).nil]).(provide.'o
14a0	72 67 2d 64 61 74 65 74 72 65 65 29 0a	rg-datetree).