blob: e270d9c4e6c127fc4f364a3481f5b7e908f4c438 (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 36 3a 35 38 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	:56:58.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 62	luke/.emacs.d/org-7.4/lisp/org-b
0080	62 64 62 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 32 33 2e 31	bdb.el.;;;.in.Emacs.version.23.1
00a0	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 73 2e 0a 0a	.1.;;;.with.all.optimizations...
00c0	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 6f 63 73 74	;;;.This.file.uses.dynamic.docst
00e0	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 31 39 2e 32	rings,.first.added.in.Emacs.19.2
0100	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 65 72 73 69	9..(if.(and.(boundp.'emacs-versi
0120	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 20 28 31 2d	on)...(<.(aref.emacs-version.(1-
0140	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 29 0a 09 20	.(length.emacs-version))).?A)...
0160	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 73 69 6f 6e	(or.(and.(boundp.'epoch::version
0180	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 69 6e 67 2d	).epoch::version).......(string-
01a0	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 29 29 0a 20	lessp.emacs-version."19.29")))..
01c0	20 20 20 28 65 72 72 6f 72 20 22 60 6f 72 67 2d 62 62 64 62 2e 65 6c 27 20 77 61 73 20 63 6f 6d	...(error."`org-bbdb.el'.was.com
01e0	70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29	piled.for.Emacs.19.29.or.later")
0200	29 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 3b 3b 3b 3b 3b 3b	)..;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32	;;;;;;...(byte-code."\300\301!\2
0260	31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 25 5c 32 30 37 22	10\302\303\304\305\306\307%\207"
0280	20 5b 72 65 71 75 69 72 65 20 6f 72 67 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72 6f	.[require.org.custom-declare-gro
02a0	75 70 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 6e 69 6c 20 22 43	up.org-bbdb-anniversaries.nil."C
02c0	75 73 74 6f 6d 69 7a 61 74 69 6f 6e 73 20 66 6f 72 20 69 6e 63 6c 75 64 69 6e 67 20 61 6e 6e 69	ustomizations.for.including.anni
02e0	76 65 72 73 61 72 69 65 73 20 66 72 6f 6d 20 42 42 44 42 20 69 6e 74 6f 20 41 67 65 6e 64 61 2e	versaries.from.BBDB.into.Agenda.
0300	22 20 3a 67 72 6f 75 70 20 6f 72 67 2d 62 62 64 62 5d 20 36 29 0a 23 40 32 38 20 44 65 66 61 75	".:group.org-bbdb].6).#@28.Defau
0320	6c 74 20 61 6e 6e 69 76 65 72 73 61 72 79 20 63 6c 61 73 73 2e 1f 0a 28 63 75 73 74 6f 6d 2d 64	lt.anniversary.class...(custom-d
0340	65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 72 67 2d 62 62 64 62 2d 64 65 66 61 75 6c	eclare-variable.'org-bbdb-defaul
0360	74 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74 20 27 22 62 69 72 74 68 64 61 79 22	t-anniversary-format.'"birthday"
0380	20 27 28 23 24 20 2e 20 37 39 35 29 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 20 3a 67 72 6f 75	.'(#$...795).:type.'string.:grou
03a0	70 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 3a 72 65 71 75 69	p.'org-bbdb-anniversaries.:requi
03c0	72 65 20 27 62 62 64 62 29 0a 23 40 36 33 35 20 48 6f 77 20 64 69 66 66 65 72 65 6e 74 20 74 79	re.'bbdb).#@635.How.different.ty
03e0	70 65 73 20 6f 66 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 73 68 6f 75 6c 64 20 62 65 20 66	pes.of.anniversaries.should.be.f
0400	6f 72 6d 61 74 74 65 64 2e 0a 41 6e 20 61 6c 69 73 74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 28	ormatted..An.alist.of.elements.(
0420	53 54 52 49 4e 47 20 2e 20 46 4f 52 4d 41 54 29 20 77 68 65 72 65 20 53 54 52 49 4e 47 20 69 73	STRING...FORMAT).where.STRING.is
0440	20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 6e 0a 61 6e 6e 69 76 65 72 73 61 72 79 20 63 6c 61 73	.the.name.of.an.anniversary.clas
0460	73 20 61 6e 64 20 66 6f 72 6d 61 74 20 69 73 20 65 69 74 68 65 72 3a 0a 31 29 20 41 20 66 6f 72	s.and.format.is.either:.1).A.for
0480	6d 61 74 20 73 74 72 69 6e 67 20 77 69 74 68 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 75	mat.string.with.the.following.su
04a0	62 73 74 69 74 75 74 69 6f 6e 73 20 28 69 6e 20 6f 72 64 65 72 29 3a 0a 20 20 20 20 2a 20 74 68	bstitutions.(in.order):.....*.th
04c0	65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 20 63 6f 6e 74 61 69 6e 69 6e 67 20	e.name.of.the.record.containing.
04e0	74 68 69 73 20 61 6e 6e 69 76 65 72 73 61 72 79 0a 20 20 20 20 2a 20 74 68 65 20 6e 75 6d 62 65	this.anniversary.....*.the.numbe
0500	72 20 6f 66 20 79 65 61 72 73 0a 20 20 20 20 2a 20 61 6e 20 6f 72 64 69 6e 61 6c 20 73 75 66 66	r.of.years.....*.an.ordinal.suff
0520	69 78 20 28 73 74 2c 20 6e 64 2c 20 72 64 2c 20 74 68 29 20 66 6f 72 20 74 68 65 20 79 65 61 72	ix.(st,.nd,.rd,.th).for.the.year
0540	0a 0a 32 29 20 41 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74	..2).A.function.to.be.called.wit
0560	68 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 3a 20 4e 41 4d 45 20 59 45 41 52 53 20 53 55	h.three.arguments:.NAME.YEARS.SU
0580	46 46 49 58 0a 20 20 20 28 73 74 72 69 6e 67 20 69 6e 74 20 73 74 72 69 6e 67 29 20 72 65 74 75	FFIX....(string.int.string).retu
05a0	72 6e 69 6e 67 20 61 20 73 74 72 69 6e 67 20 66 6f 72 20 74 68 65 20 64 69 61 72 79 20 6f 72 20	rning.a.string.for.the.diary.or.
05c0	6e 69 6c 2e 0a 0a 33 29 20 41 6e 20 45 6d 61 63 73 20 4c 69 73 70 20 66 6f 72 6d 20 74 68 61 74	nil...3).An.Emacs.Lisp.form.that
05e0	20 73 68 6f 75 6c 64 20 65 76 61 6c 75 61 74 65 20 74 6f 20 61 20 73 74 72 69 6e 67 20 28 6f 72	.should.evaluate.to.a.string.(or
0600	20 6e 69 6c 29 20 69 6e 20 74 68 65 0a 20 20 20 73 63 6f 70 65 20 6f 66 20 76 61 72 69 61 62 6c	.nil).in.the....scope.of.variabl
0620	65 73 20 4e 41 4d 45 2c 20 59 45 41 52 53 20 61 6e 64 20 53 55 46 46 49 58 20 28 61 6d 6f 6e 67	es.NAME,.YEARS.and.SUFFIX.(among
0640	20 6f 74 68 65 72 73 29 2e 1f 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61	.others)...(custom-declare-varia
0660	62 6c 65 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74	ble.'org-bbdb-anniversary-format
0680	2d 61 6c 69 73 74 20 27 27 28 28 22 62 69 72 74 68 64 61 79 22 20 6c 61 6d 62 64 61 20 28 6e 61	-alist.''(("birthday".lambda.(na
06a0	6d 65 20 79 65 61 72 73 20 73 75 66 66 69 78 29 20 28 63 6f 6e 63 61 74 20 22 42 69 72 74 68 64	me.years.suffix).(concat."Birthd
06c0	61 79 3a 20 5b 5b 62 62 64 62 3a 22 20 6e 61 6d 65 20 22 5d 5b 22 20 6e 61 6d 65 20 22 20 28 22	ay:.[[bbdb:".name."][".name.".("
06e0	20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 79 65 61 72 73 29 20 73 75 66 66 69 78	.(number-to-string.years).suffix
0700	20 22 29 5d 5d 22 29 29 20 28 22 77 65 64 64 69 6e 67 22 20 6c 61 6d 62 64 61 20 28 6e 61 6d 65	.")]]")).("wedding".lambda.(name
0720	20 79 65 61 72 73 20 73 75 66 66 69 78 29 20 28 63 6f 6e 63 61 74 20 22 5b 5b 62 62 64 62 3a 22	.years.suffix).(concat."[[bbdb:"
0740	20 6e 61 6d 65 20 22 5d 5b 22 20 6e 61 6d 65 20 22 27 73 20 22 20 28 6e 75 6d 62 65 72 2d 74 6f	.name."][".name."'s.".(number-to
0760	2d 73 74 72 69 6e 67 20 79 65 61 72 73 29 20 73 75 66 66 69 78 20 22 20 77 65 64 64 69 6e 67 20	-string.years).suffix.".wedding.
0780	61 6e 6e 69 76 65 72 73 61 72 79 5d 5d 22 29 29 29 20 27 28 23 24 20 2e 20 39 37 36 29 20 3a 74	anniversary]]"))).'(#$...976).:t
07a0	79 70 65 20 27 73 65 78 70 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76	ype.'sexp.:group.'org-bbdb-anniv
07c0	65 72 73 61 72 69 65 73 20 3a 72 65 71 75 69 72 65 20 27 62 62 64 62 29 0a 23 40 34 34 36 20 54	ersaries.:require.'bbdb).#@446.T
07e0	68 65 20 42 42 44 42 20 66 69 65 6c 64 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 61 6e 6e	he.BBDB.field.which.contains.ann
0800	69 76 65 72 73 61 72 69 65 73 2e 0a 54 68 65 20 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 61 72	iversaries..The.anniversaries.ar
0820	65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 61 74	e.stored.in.the.following.format
0840	0a 0a 59 59 59 59 2d 4d 4d 2d 44 44 20 43 6c 61 73 73 2d 6f 72 2d 46 6f 72 6d 61 74 2d 53 74 72	..YYYY-MM-DD.Class-or-Format-Str
0860	69 6e 67 0a 0a 77 68 65 72 65 20 63 6c 61 73 73 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20 63	ing..where.class.is.one.of.the.c
0880	75 73 74 6f 6d 69 7a 65 64 20 63 6c 61 73 73 65 73 20 66 6f 72 20 61 6e 6e 69 76 65 72 73 61 72	ustomized.classes.for.anniversar
08a0	69 65 73 3b 0a 62 69 72 74 68 64 61 79 20 61 6e 64 20 77 65 64 64 69 6e 67 20 61 72 65 20 70 72	ies;.birthday.and.wedding.are.pr
08c0	65 64 65 66 69 6e 65 64 2e 20 20 46 6f 72 6d 61 74 2d 53 74 72 69 6e 67 20 63 61 6e 20 74 61 6b	edefined...Format-String.can.tak
08e0	65 20 74 68 72 65 65 0a 73 75 62 73 74 69 74 75 74 69 6f 6e 73 20 31 29 20 74 68 65 20 6e 61 6d	e.three.substitutions.1).the.nam
0900	65 20 6f 66 20 74 68 65 20 72 65 63 6f 72 64 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 69 73 0a	e.of.the.record.containing.this.
0920	61 6e 6e 69 76 65 72 73 61 72 79 2c 20 32 29 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 79 65	anniversary,.2).the.number.of.ye
0940	61 72 73 2c 20 61 6e 64 20 33 29 20 61 6e 20 6f 72 64 69 6e 61 6c 20 73 75 66 66 69 78 20 66 6f	ars,.and.3).an.ordinal.suffix.fo
0960	72 0a 74 68 65 20 79 65 61 72 2e 0a 0a 4d 75 6c 74 69 70 6c 65 20 61 6e 6e 69 76 65 72 73 61 72	r.the.year...Multiple.anniversar
0980	69 65 73 20 63 61 6e 20 62 65 20 73 65 70 61 72 61 74 65 64 20 62 79 20 5c 6e 2e 1f 0a 28 63 75	ies.can.be.separated.by.\n...(cu
09a0	73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 72 67 2d 62 62 64 62 2d	stom-declare-variable.'org-bbdb-
09c0	61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65 6c 64 20 27 27 61 6e 6e 69 76 65 72 73 61 72 79 20	anniversary-field.''anniversary.
09e0	27 28 23 24 20 2e 20 32 30 31 35 29 20 3a 74 79 70 65 20 27 73 79 6d 62 6f 6c 20 3a 67 72 6f 75	'(#$...2015).:type.'symbol.:grou
0a00	70 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 3a 72 65 71 75 69	p.'org-bbdb-anniversaries.:requi
0a20	72 65 20 27 62 62 64 62 29 0a 23 40 32 30 31 20 48 6f 77 20 74 6f 20 72 65 74 72 69 65 76 65 20	re.'bbdb).#@201.How.to.retrieve.
0a40	60 6d 6f 6e 74 68 20 64 61 74 65 20 79 65 61 72 27 20 66 72 6f 6d 20 74 68 65 20 61 6e 6e 69 76	`month.date.year'.from.the.anniv
0a60	65 72 73 61 72 79 20 66 69 65 6c 64 2e 0a 0a 43 75 73 74 6f 6d 69 7a 65 20 69 66 20 79 6f 75 20	ersary.field...Customize.if.you.
0a80	68 61 76 65 20 61 6c 72 65 61 64 79 20 66 69 6c 6c 65 64 20 79 6f 75 72 20 42 42 44 42 20 77 69	have.already.filled.your.BBDB.wi
0aa0	74 68 20 64 61 74 65 73 0a 64 69 66 66 65 72 65 6e 74 20 66 72 6f 6d 20 59 59 59 59 2d 4d 4d 2d	th.dates.different.from.YYYY-MM-
0ac0	44 44 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 72 65 74 75 72 6e 20 61 20	DD...The.function.must.return.a.
0ae0	6c 69 73 74 20 28 6d 6f 6e 74 68 0a 64 61 74 65 20 79 65 61 72 29 2e 1f 0a 28 63 75 73 74 6f 6d	list.(month.date.year)...(custom
0b00	2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 72 67 2d 62 62 64 62 2d 65 78 74 72	-declare-variable.'org-bbdb-extr
0b20	61 63 74 2d 64 61 74 65 2d 66 75 6e 20 27 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 65 78	act-date-fun.''org-bbdb-anniv-ex
0b40	74 72 61 63 74 2d 64 61 74 65 20 27 28 23 24 20 2e 20 32 36 30 38 29 20 3a 74 79 70 65 20 27 66	tract-date.'(#$...2608).:type.'f
0b60	75 6e 63 74 69 6f 6e 20 3a 67 72 6f 75 70 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72	unction.:group.'org-bbdb-anniver
0b80	73 61 72 69 65 73 20 3a 72 65 71 75 69 72 65 20 27 62 62 64 62 29 0a 28 62 79 74 65 2d 63 6f 64	saries.:require.'bbdb).(byte-cod
0ba0	65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35	e."\300\301\302\303#\210\304\305
0bc0	5c 33 30 36 5c 22 5c 32 30 37 22 20 5b 6f 72 67 2d 61 64 64 2d 6c 69 6e 6b 2d 74 79 70 65 20 22	\306\"\207".[org-add-link-type."
0be0	62 62 64 62 22 20 6f 72 67 2d 62 62 64 62 2d 6f 70 65 6e 20 6f 72 67 2d 62 62 64 62 2d 65 78 70	bbdb".org-bbdb-open.org-bbdb-exp
0c00	6f 72 74 20 61 64 64 2d 68 6f 6f 6b 20 6f 72 67 2d 73 74 6f 72 65 2d 6c 69 6e 6b 2d 66 75 6e 63	ort.add-hook.org-store-link-func
0c20	74 69 6f 6e 73 20 6f 72 67 2d 62 62 64 62 2d 73 74 6f 72 65 2d 6c 69 6e 6b 5d 20 34 29 0a 23 40	tions.org-bbdb-store-link].4).#@
0c40	34 30 20 53 74 6f 72 65 20 61 20 6c 69 6e 6b 20 74 6f 20 61 20 42 42 44 42 20 64 61 74 61 62 61	40.Store.a.link.to.a.BBDB.databa
0c60	73 65 20 65 6e 74 72 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 73	se.entry...(defalias.'org-bbdb-s
0c80	74 6f 72 65 2d 6c 69 6e 6b 20 23 5b 6e 69 6c 20 22 08 5c 33 30 34 3d 5c 32 30 35 26 00 5c 33 30	tore-link.#[nil.".\304=\205&.\30
0ca0	35 5c 33 30 36 20 21 19 5c 33 30 37 5c 33 30 36 20 5c 33 30 32 5c 22 1a 5c 33 31 30 5c 33 31 31	5\306.!.\307\306.\302\".\310\311
0cc0	09 5c 22 1b 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 09 5c 33 31 36 5c 6e 5c 33 31 37 0b	.\".\312\313\314\315.\316\n\317.
0ce0	5c 33 32 30 09 26 5c 6e 5c 32 31 30 0b 2b 5c 32 30 37 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20	\320.&\n\210.+\207".[major-mode.
0d00	6e 61 6d 65 20 63 6f 6d 70 61 6e 79 20 6c 69 6e 6b 20 62 62 64 62 2d 6d 6f 64 65 20 62 62 64 62	name.company.link.bbdb-mode.bbdb
0d20	2d 72 65 63 6f 72 64 2d 6e 61 6d 65 20 62 62 64 62 2d 63 75 72 72 65 6e 74 2d 72 65 63 6f 72 64	-record-name.bbdb-current-record
0d40	20 62 62 64 62 2d 72 65 63 6f 72 64 2d 67 65 74 70 72 6f 70 20 6f 72 67 2d 6d 61 6b 65 2d 6c 69	.bbdb-record-getprop.org-make-li
0d60	6e 6b 20 22 62 62 64 62 3a 22 20 6f 72 67 2d 73 74 6f 72 65 2d 6c 69 6e 6b 2d 70 72 6f 70 73 20	nk."bbdb:".org-store-link-props.
0d80	3a 74 79 70 65 20 22 62 62 64 62 22 20 3a 6e 61 6d 65 20 3a 63 6f 6d 70 61 6e 79 20 3a 6c 69 6e	:type."bbdb".:name.:company.:lin
0da0	6b 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 31 31 20 28 23 24 20 2e 20 33 31 33 39 29 5d 29	k.:description].11.(#$...3139)])
0dc0	0a 23 40 31 38 33 20 43 72 65 61 74 65 20 74 68 65 20 65 78 70 6f 72 74 20 76 65 72 73 69 6f 6e	.#@183.Create.the.export.version
0de0	20 6f 66 20 61 20 42 42 44 42 20 6c 69 6e 6b 20 73 70 65 63 69 66 69 65 64 20 62 79 20 50 41 54	.of.a.BBDB.link.specified.by.PAT
0e00	48 20 6f 72 20 44 45 53 43 2e 0a 49 66 20 65 78 70 6f 72 74 69 6e 67 20 74 6f 20 65 69 74 68 65	H.or.DESC..If.exporting.to.eithe
0e20	72 20 48 54 4d 4c 20 6f 72 20 4c 61 54 65 58 20 46 4f 52 4d 41 54 20 74 68 65 20 6c 69 6e 6b 20	r.HTML.or.LaTeX.FORMAT.the.link.
0e40	77 69 6c 6c 20 62 65 0a 69 74 61 6c 69 63 69 7a 65 64 2c 20 69 6e 20 61 6c 6c 20 6f 74 68 65 72	will.be.italicized,.in.all.other
0e60	20 63 61 73 65 73 20 69 74 20 69 73 20 6c 65 66 74 20 75 6e 63 68 61 6e 67 65 64 2e 1f 0a 28 64	.cases.it.is.left.unchanged...(d
0e80	65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 65 78 70 6f 72 74 20 23 5b 28 70 61 74 68	efalias.'org-bbdb-export.#[(path
0ea0	20 64 65 73 63 20 66 6f 72 6d 61 74 29 20 22 08 5c 33 30 33 3d 5c 32 30 33 0f 00 5c 33 30 30 5c	.desc.format).".\303=\203..\300\
0ec0	33 30 34 09 5c 32 30 36 0d 00 5c 6e 5c 22 5c 32 30 37 08 5c 33 30 35 3d 5c 32 30 33 1e 00 5c 33	304.\206..\n\"\207.\305=\203..\3
0ee0	30 30 5c 33 30 36 09 5c 32 30 36 1c 00 5c 6e 5c 22 5c 32 30 37 09 5c 32 30 36 23 00 5c 6e 5c 32	00\306.\206..\n\"\207.\206#.\n\2
0f00	30 37 22 20 5b 66 6f 72 6d 61 74 20 64 65 73 63 20 70 61 74 68 20 68 74 6d 6c 20 22 3c 69 3e 25	07".[format.desc.path.html."<i>%
0f20	73 3c 2f 69 3e 22 20 6c 61 74 65 78 20 22 5c 5c 74 65 78 74 69 74 7b 25 73 7d 22 5d 20 33 20 28	s</i>".latex."\\textit{%s}"].3.(
0f40	23 24 20 2e 20 33 35 32 37 29 5d 29 0a 23 40 32 39 20 46 6f 6c 6c 6f 77 20 61 20 42 42 44 42 20	#$...3527)]).#@29.Follow.a.BBDB.
0f60	6c 69 6e 6b 20 74 6f 20 4e 41 4d 45 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62	link.to.NAME...(defalias.'org-bb
0f80	64 62 2d 6f 70 65 6e 20 23 5b 28 6e 61 6d 65 29 20 22 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 08	db-open.#[(name)."\303\304!\210.
0fa0	3f 5c 33 30 35 19 1a 5c 33 30 36 5c 33 30 37 5c 32 31 35 2a 5c 32 30 37 22 20 5b 64 65 62 75 67	?\305..\306\307\215*\207".[debug
0fc0	2d 6f 6e 2d 65 72 72 6f 72 20 62 62 64 62 2d 65 6c 65 63 74 72 69 63 2d 70 20 69 6e 68 69 62 69	-on-error.bbdb-electric-p.inhibi
0fe0	74 2d 72 65 64 69 73 70 6c 61 79 20 72 65 71 75 69 72 65 20 62 62 64 62 20 6e 69 6c 20 65 78 69	t-redisplay.require.bbdb.nil.exi
1000	74 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 08 5c 33 30 33 51 5c 33 30 34	t.(byte-code."\301\302.\303Q\304
1020	5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 17 00 5c	\"\210\305\306\307\310!!W\203..\
1040	33 31 31 5c 33 31 32 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 33 5c 33 30 32 08 5c 33 30 33 51 5c	311\312\304\"\210\313\302.\303Q\
1060	33 30 34 5c 22 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33	304\"\210\305\306\307\310!!W\203
1080	2e 00 5c 33 31 31 5c 33 31 32 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 31 08 5c 33 30 34 5c 22 5c	..\311\312\304\"\210\301.\304\"\
10a0	32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 42 00 5c 33 31 31	210\305\306\307\310!!W\203B.\311
10c0	5c 33 31 32 5c 33 30 34 5c 22 5c 32 31 30 5c 33 31 33 08 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30	\312\304\"\210\313.\304\"\210\30
10e0	35 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 21 57 5c 32 30 33 56 00 5c 33 31 31 5c 33 31 32 5c 33	5\306\307\310!!W\203V.\311\312\3
1100	30 34 5c 22 5c 32 31 30 5c 33 31 34 08 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c	04\"\210\314.\304\"\210\306\307\
1120	33 31 30 21 21 5c 33 30 35 55 5c 32 30 35 6e 00 5c 33 31 35 5c 33 31 36 5c 33 31 30 21 21 5c 32	310!!\305U\205n.\315\316\310!!\2
1140	31 30 5c 33 31 37 5c 33 32 30 21 5c 32 30 37 22 20 5b 6e 61 6d 65 20 62 62 64 62 2d 6e 61 6d 65	10\317\320!\207".[name.bbdb-name
1160	20 22 5c 5c 60 22 20 22 5c 5c 27 22 20 6e 69 6c 20 30 20 62 75 66 66 65 72 2d 73 69 7a 65 20 67	."\\`"."\\'".nil.0.buffer-size.g
1180	65 74 2d 62 75 66 66 65 72 20 22 2a 42 42 44 42 2a 22 20 74 68 72 6f 77 20 65 78 69 74 20 62 62	et-buffer."*BBDB*".throw.exit.bb
11a0	64 62 2d 63 6f 6d 70 61 6e 79 20 62 62 64 62 20 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 67 65	db-company.bbdb.delete-window.ge
11c0	74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 65 72 72 6f 72 20 22 4e 6f 20 6d 61 74 63 68 69	t-buffer-window.error."No.matchi
11e0	6e 67 20 42 42 44 42 20 72 65 63 6f 72 64 22 5d 20 34 29 5d 20 32 20 28 23 24 20 2e 20 33 39 32	ng.BBDB.record"].4)].2.(#$...392
1200	32 29 5d 29 0a 23 40 39 34 20 43 6f 6e 76 65 72 74 20 59 59 59 59 2d 4d 4d 2d 44 44 20 74 6f 20	2)]).#@94.Convert.YYYY-MM-DD.to.
1220	28 6d 6f 6e 74 68 20 64 61 74 65 20 79 65 61 72 29 2e 0a 41 72 67 75 6d 65 6e 74 20 54 49 4d 45	(month.date.year)..Argument.TIME
1240	2d 53 54 52 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 72 65 74 72 69 65 76 65 64 20 66 72 6f 6d	-STR.is.the.value.retrieved.from
1260	20 42 42 44 42 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69	.BBDB...(defalias.'org-bbdb-anni
1280	76 2d 65 78 74 72 61 63 74 2d 64 61 74 65 20 23 5b 28 74 69 6d 65 2d 73 74 72 29 20 22 5c 33 30	v-extract-date.#[(time-str)."\30
12a0	35 08 5c 33 30 36 5c 22 5c 32 31 31 19 40 1a 09 41 40 1b 5c 33 30 37 09 38 1c 5c 33 31 30 0b 21	5.\306\"\211.@..A@.\307.8.\310.!
12c0	5c 33 31 30 5c 66 21 5c 33 31 30 5c 6e 21 45 2c 5c 32 30 37 22 20 5b 74 69 6d 65 2d 73 74 72 20	\310\f!\310\n!E,\207".[time-str.
12e0	23 31 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 79 20 6d 20 64 20 62 62 64 62 2d 73 70 6c 69 74	#1=#:--cl-var--.y.m.d.bbdb-split
1300	20 22 2d 22 20 32 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 5d 20 35 20 28 23 24 20 2e	."-".2.string-to-number].5.(#$..
1320	20 34 36 31 38 29 5d 29 0a 23 40 31 30 32 20 53 70 6c 69 74 20 6d 75 6c 74 69 70 6c 65 20 65 6e	.4618)]).#@102.Split.multiple.en
1340	74 72 69 65 73 20 69 6e 20 74 68 65 20 42 42 44 42 20 61 6e 6e 69 76 65 72 73 61 72 79 20 66 69	tries.in.the.BBDB.anniversary.fi
1360	65 6c 64 2e 0a 41 72 67 75 6d 65 6e 74 20 53 54 52 20 69 73 20 74 68 65 20 61 6e 6e 69 76 65 72	eld..Argument.STR.is.the.anniver
1380	73 61 72 79 20 66 69 65 6c 64 20 69 6e 20 42 42 44 42 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	sary.field.in.BBDB...(defalias.'
13a0	6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 73 70 6c 69 74 20 23 5b 28 73 74 72 29 20 22 5c 33	org-bbdb-anniv-split.#[(str)."\3
13c0	30 32 5c 33 30 33 08 5c 22 5c 32 31 31 19 5c 32 30 33 17 00 08 5c 33 30 34 09 4f 5c 33 30 35 08	02\303.\"\211.\203...\304.O\305.
13e0	09 5c 33 30 36 4f 21 44 5c 32 30 32 1a 00 08 5c 33 30 36 44 29 5c 32 30 37 22 20 5b 73 74 72 20	.\306O!D\202...\306D)\207".[str.
1400	70 6f 73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 09 5d 22 20 30 20 62 62 64 62 2d 73	pos.string-match."[..]".0.bbdb-s
1420	74 72 69 6e 67 2d 74 72 69 6d 20 6e 69 6c 5d 20 36 20 28 23 24 20 2e 20 34 39 31 31 29 5d 29 0a	tring-trim.nil].6.(#$...4911)]).
1440	23 40 39 31 20 41 20 68 61 73 68 20 68 6f 6c 64 69 6e 67 20 61 6e 6e 69 76 65 72 73 61 72 69 65	#@91.A.hash.holding.anniversarie
1460	73 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 42 42 44 42 2e 0a 54 68 65 20 68 61 73 68 20	s.extracted.from.BBDB..The.hash.
1480	74 61 62 6c 65 20 69 73 20 63 72 65 61 74 65 64 20 6f 6e 20 66 69 72 73 74 20 75 73 65 2e 1f 0a	table.is.created.on.first.use...
14a0	28 64 65 66 76 61 72 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6e 69 6c 20	(defvar.org-bbdb-anniv-hash.nil.
14c0	28 23 24 20 2e 20 35 31 38 39 29 29 0a 23 40 37 32 20 54 68 69 73 20 69 73 20 6e 6f 6e 2d 6e 69	(#$...5189)).#@72.This.is.non-ni
14e0	6c 20 69 66 20 42 42 44 42 20 68 61 73 20 62 65 65 6e 20 75 70 64 61 74 65 64 20 73 69 6e 63 65	l.if.BBDB.has.been.updated.since
1500	20 77 65 20 6c 61 73 74 20 62 75 69 6c 74 20 74 68 65 20 68 61 73 68 2e 1f 0a 28 64 65 66 76 61	.we.last.built.the.hash...(defva
1520	72 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70 20 74 20 28 23 24 20 2e 20 35 33 33	r.org-bbdb-updated-p.t.(#$...533
1540	30 29 29 0a 23 40 31 34 35 20 43 72 65 61 74 65 20 61 20 68 61 73 68 20 77 69 74 68 20 61 6e 6e	0)).#@145.Create.a.hash.with.ann
1560	69 76 65 72 73 61 72 69 65 73 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 42 42 44 42 2c 20	iversaries.extracted.from.BBDB,.
1580	66 6f 72 20 66 61 73 74 20 61 63 63 65 73 73 2e 0a 54 68 65 20 61 6e 6e 69 76 65 72 73 61 72 69	for.fast.access..The.anniversari
15a0	65 73 20 61 72 65 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 73 74 6f 72 65 64 20 60 6f 72 67	es.are.assumed.to.be.stored.`org
15c0	2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65 6c 64 27 2e 1f 0a 28 64 65 66 61	-bbdb-anniversary-field'...(defa
15e0	6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68 61 73 68 20 23	lias.'org-bbdb-make-anniv-hash.#
1600	5b 6e 69 6c 20 22 5c 33 30 36 5c 32 31 31 5c 32 31 31 18 19 1a 5c 33 30 37 0b 21 5c 32 31 30 5c	[nil."\306\211\211...\307.!\210\
1620	33 31 30 20 5c 33 30 36 1c 5c 32 31 31 1d 5c 32 30 33 74 00 0d 40 14 5c 33 31 31 5c 66 0e 11 5c	310.\306.\211.\203t..@.\311\f..\
1640	22 5c 32 31 31 10 5c 32 30 33 6d 00 5c 33 31 32 08 5c 33 31 33 5c 22 10 08 5c 32 30 33 6d 00 5c	"\211.\203m.\312.\313\"..\203m.\
1660	33 31 34 08 5c 32 31 31 41 10 40 21 12 0e 12 5c 6e 40 21 5c 32 31 31 1e 13 40 1e 14 0e 13 41 40	314.\211A.@!...\n@!\211..@....A@
1680	1e 15 5c 33 31 35 0e 13 38 1e 16 5c 33 31 36 0e 14 0e 15 44 0b 5c 22 11 5c 33 31 37 0e 14 0e 15	..\315..8..\316....D.\".\317....
16a0	44 0e 16 5c 33 32 30 5c 66 21 5c 6e 5c 32 31 31 1e 17 41 40 29 45 09 42 0b 23 5c 32 31 30 2c 5c	D..\320\f!\n\211..A@)E.B.#\210,\
16c0	32 30 32 25 00 0d 41 5c 32 31 31 15 5c 32 30 34 13 00 2d 5c 33 30 36 5c 32 31 31 16 18 5c 32 30	202%..A\211.\204..-\306\211..\20
16e0	37 22 20 5b 61 6e 6e 69 76 73 20 74 6d 70 20 73 70 6c 69 74 20 6f 72 67 2d 62 62 64 62 2d 61 6e	7".[annivs.tmp.split.org-bbdb-an
1700	6e 69 76 2d 68 61 73 68 20 72 65 63 20 23 31 3d 23 3a 2d 2d 63 6c 2d 64 6f 6c 69 73 74 2d 74 65	niv-hash.rec.#1=#:--cl-dolist-te
1720	6d 70 2d 2d 20 6e 69 6c 20 63 6c 72 68 61 73 68 20 62 62 64 62 2d 72 65 63 6f 72 64 73 20 62 62	mp--.nil.clrhash.bbdb-records.bb
1740	64 62 2d 72 65 63 6f 72 64 2d 67 65 74 70 72 6f 70 20 62 62 64 62 2d 73 70 6c 69 74 20 22 5c 6e	db-record-getprop.bbdb-split."\n
1760	22 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 73 70 6c 69 74 20 32 20 67 65 74 68 61 73 68	".org-bbdb-anniv-split.2.gethash
1780	20 70 75 74 68 61 73 68 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 6e 61 6d 65 20 6f 72 67 2d 62 62	.puthash.bbdb-record-name.org-bb
17a0	64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 69 65 6c 64 20 6f 72 67 2d 62 62 64 62 2d 65 78	db-anniversary-field.org-bbdb-ex
17c0	74 72 61 63 74 2d 64 61 74 65 2d 66 75 6e 20 23 32 3d 23 3a 2d 2d 63 6c 2d 76 61 72 2d 2d 20 6d	tract-date-fun.#2=#:--cl-var--.m
17e0	20 64 20 79 20 78 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70 5d 20 36 20 28 23 24	.d.y.x.org-bbdb-updated-p].6.(#$
1800	20 2e 20 35 34 35 30 29 5d 29 0a 23 40 31 30 36 20 52 65 63 6f 72 64 20 74 68 65 20 66 61 63 74	...5450)]).#@106.Record.the.fact
1820	20 74 68 61 74 20 42 42 44 42 20 68 61 73 20 62 65 65 6e 20 75 70 64 61 74 65 64 2e 0a 54 68 69	.that.BBDB.has.been.updated..Thi
1840	73 20 69 73 20 75 73 65 64 20 62 79 20 4f 72 67 20 74 6f 20 72 65 2d 63 72 65 61 74 65 20 74 68	s.is.used.by.Org.to.re-create.th
1860	65 20 61 6e 6e 69 76 65 72 73 61 72 79 20 68 61 73 68 20 74 61 62 6c 65 2e 1f 0a 28 64 65 66 61	e.anniversary.hash.table...(defa
1880	6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 20 23 5b 28 72 65 63 29 20 22	lias.'org-bbdb-updated.#[(rec)."
18a0	5c 33 30 31 5c 32 31 31 10 5c 32 30 37 22 20 5b 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64	\301\211.\207".[org-bbdb-updated
18c0	2d 70 20 74 5d 20 32 20 28 23 24 20 2e 20 36 31 36 31 29 5d 29 0a 28 61 64 64 2d 68 6f 6f 6b 20	-p.t].2.(#$...6161)]).(add-hook.
18e0	27 62 62 64 62 2d 61 66 74 65 72 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 27 6f 72 67 2d 62 62 64	'bbdb-after-change-hook.'org-bbd
1900	62 2d 75 70 64 61 74 65 64 29 0a 23 40 36 30 20 45 78 74 72 61 63 74 20 61 6e 6e 69 76 65 72 73	b-updated).#@60.Extract.annivers
1920	61 72 69 65 73 20 66 72 6f 6d 20 42 42 44 42 20 66 6f 72 20 64 69 73 70 6c 61 79 20 69 6e 20 74	aries.from.BBDB.for.display.in.t
1940	68 65 20 61 67 65 6e 64 61 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d	he.agenda...(defalias.'org-bbdb-
1960	61 6e 6e 69 76 65 72 73 61 72 69 65 73 20 23 5b 6e 69 6c 20 22 5c 33 30 36 5c 33 30 37 21 5c 32	anniversaries.#[nil."\306\307!\2
1980	31 30 5c 33 30 36 5c 33 31 30 21 5c 32 31 30 5c 33 31 31 08 21 5c 32 30 34 15 00 5c 33 31 32 5c	10\306\310!\210\311.!\204..\312\
19a0	33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 24 10 09 5c 32 30 34 21 00 5c 33 31 37 08 21 5c 33	313\314\315\316$..\204!.\317.!\3
19c0	32 30 55 5c 32 30 33 24 00 5c 33 32 31 20 5c 32 31 30 5c 6e 40 1b 5c 6e 41 40 1c 5c 33 32 32 5c	20U\203$.\321.\210\n@.\nA@.\322\
19e0	6e 38 1d 5c 33 32 33 0b 5c 66 44 08 5c 22 1e 5c 22 5c 33 32 34 5c 32 31 31 1e 23 1e 24 5c 33 32	n8.\323.\fD.\".\"\324\211.#.$\32
1a00	34 1e 25 0b 5c 33 32 35 55 5c 32 30 33 7a 00 5c 66 5c 33 32 36 55 5c 32 30 33 7a 00 5c 33 32 33	4.%.\325U\203z.\f\326U\203z.\323
1a20	5c 33 32 32 5c 33 32 37 44 08 5c 22 5c 32 30 33 7a 00 5c 33 33 30 0d 21 5c 32 30 34 7a 00 5c 33	\322\327D.\"\203z.\330.!\204z.\3
1a40	32 33 5c 33 32 32 5c 33 32 37 44 08 5c 22 16 25 0e 25 5c 32 31 31 41 16 25 40 5c 32 31 31 16 24	23\322\327D.\".%.%\211A.%@\211.$
1a60	5c 32 30 33 7a 00 0e 24 0e 5c 22 42 16 5c 22 5c 32 30 32 63 00 0e 5c 22 5c 32 30 33 0e 01 0e 5c	\203z..$.\"B.\"\202c..\"\203...\
1a80	22 5c 32 31 31 41 16 5c 22 40 5c 32 31 31 16 24 5c 32 30 33 0e 01 0e 24 5c 32 30 33 7f 00 5c 33	"\211A.\"@\211.$\203...$\203..\3
1aa0	32 32 0e 24 38 5c 32 30 36 5c 32 33 32 00 0e 26 1e 27 5c 33 33 31 0e 27 0e 28 5c 33 33 32 23 41	22.$8\206\232..&.'\331.'.(\332#A
1ac0	5c 32 30 36 5c 32 35 31 00 0e 27 1e 29 0e 24 41 40 1e 2a 0d 0e 24 40 5a 1e 2b 5c 33 33 33 0e 2b	\206\251..'.).$A@.*..$@Z.+\333.+
1ae0	21 1e 2c 5c 33 33 34 0e 29 21 5c 32 30 33 5c 33 32 31 00 0e 29 0e 2a 0e 2b 0e 2c 23 5c 32 30 32	!.,\334.)!\203\321..).*.+.,#\202
1b00	5c 33 35 30 00 0e 29 3c 5c 32 30 33 5c 33 33 36 00 5c 33 33 35 0e 29 21 5c 32 30 32 5c 33 35 30	\350..)<\203\336.\335.)!\202\350
1b20	00 5c 33 33 36 0e 29 0e 2a 0e 2b 0e 2c 24 1e 2d 5c 33 33 37 0e 2d 5c 33 32 34 5c 33 34 30 0e 2a	.\336.).*.+.,$.-\337.-\324\340.*
1b40	24 5c 32 31 30 0e 23 5c 32 30 33 04 01 5c 33 34 31 0e 23 0e 2d 43 5c 22 16 23 5c 32 30 32 09 01	$\210.#\203..\341.#.-C\".#\202..
1b60	0e 2d 43 16 23 2e 06 5c 32 30 32 7f 00 0e 23 2e 07 5c 32 30 37 22 20 5b 6f 72 67 2d 62 62 64 62	.-C.#..\202...#..\207".[org-bbdb
1b80	2d 61 6e 6e 69 76 2d 68 61 73 68 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70 20 64	-anniv-hash.org-bbdb-updated-p.d
1ba0	61 74 65 20 6d 20 64 20 79 20 72 65 71 75 69 72 65 20 62 62 64 62 20 64 69 61 72 79 2d 6c 69 62	ate.m.d.y.require.bbdb.diary-lib
1bc0	20 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74	.hash-table-p.make-hash-table.:t
1be0	65 73 74 20 65 71 75 61 6c 20 3a 73 69 7a 65 20 33 36 36 20 68 61 73 68 2d 74 61 62 6c 65 2d 63	est.equal.:size.366.hash-table-c
1c00	6f 75 6e 74 20 30 20 6f 72 67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68 61 73 68 20	ount.0.org-bbdb-make-anniv-hash.
1c20	32 20 67 65 74 68 61 73 68 20 6e 69 6c 20 33 20 31 20 32 39 20 63 61 6c 65 6e 64 61 72 2d 6c 65	2.gethash.nil.3.1.29.calendar-le
1c40	61 70 2d 79 65 61 72 2d 70 20 61 73 73 6f 63 2d 73 74 72 69 6e 67 20 74 20 64 69 61 72 79 2d 6f	ap-year-p.assoc-string.t.diary-o
1c60	72 64 69 6e 61 6c 2d 73 75 66 66 69 78 20 66 75 6e 63 74 69 6f 6e 70 20 65 76 61 6c 20 66 6f 72	rdinal-suffix.functionp.eval.for
1c80	6d 61 74 20 6f 72 67 2d 61 64 64 2d 70 72 6f 70 73 20 6f 72 67 2d 62 62 64 62 2d 6e 61 6d 65 20	mat.org-add-props.org-bbdb-name.
1ca0	61 70 70 65 6e 64 20 61 6e 6e 69 76 73 20 74 65 78 74 20 72 65 63 20 72 65 63 73 20 6f 72 67 2d	append.annivs.text.rec.recs.org-
1cc0	62 62 64 62 2d 64 65 66 61 75 6c 74 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74 20	bbdb-default-anniversary-format.
1ce0	63 6c 61 73 73 20 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61	class.org-bbdb-anniversary-forma
1d00	74 2d 61 6c 69 73 74 20 66 6f 72 6d 20 6e 61 6d 65 20 79 65 61 72 73 20 73 75 66 66 69 78 20 74	t-alist.form.name.years.suffix.t
1d20	6d 70 5d 20 36 20 28 23 24 20 2e 20 36 34 31 36 29 5d 29 0a 23 40 34 30 20 52 65 61 64 20 61 20	mp].6.(#$...6416)]).#@40.Read.a.
1d40	62 62 64 62 20 6c 69 6e 6b 20 77 69 74 68 20 6e 61 6d 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 1f	bbdb.link.with.name.completion..
1d60	0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 63 6f 6d 70 6c 65 74 65 2d 6c 69	.(defalias.'org-bbdb-complete-li
1d80	6e 6b 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c	nk.#[nil."\300\301!\210\302\303\
1da0	33 30 34 5c 33 30 35 21 40 21 50 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 62 62 64 62 2d 63	304\305!@!P\207".[require.bbdb-c
1dc0	6f 6d 20 22 62 62 64 62 3a 22 20 62 62 64 62 2d 72 65 63 6f 72 64 2d 6e 61 6d 65 20 62 62 64 62	om."bbdb:".bbdb-record-name.bbdb
1de0	2d 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 72 65 63 6f 72 64 20 22 4e 61 6d 65 3a 20 22	-completing-read-record."Name:."
1e00	5d 20 34 20 28 23 24 20 2e 20 37 34 38 31 29 5d 29 0a 23 40 37 31 20 45 78 74 72 61 63 74 20 61	].4.(#$...7481)]).#@71.Extract.a
1e20	6e 6e 69 76 65 72 73 61 72 69 65 73 20 66 72 6f 6d 20 42 42 44 42 20 61 6e 64 20 63 6f 6e 76 65	nniversaries.from.BBDB.and.conve
1e40	72 74 20 74 68 65 6d 20 74 6f 20 69 63 61 6c 65 6e 64 61 72 20 66 6f 72 6d 61 74 2e 1f 0a 28 64	rt.them.to.icalendar.format...(d
1e60	65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 61 6e 6e 69 76 2d 65 78 70 6f 72 74 2d 69	efalias.'org-bbdb-anniv-export-i
1e80	63 61 6c 20 23 5b 6e 69 6c 20 22 5c 33 30 32 5c 33 30 33 21 5c 32 31 30 5c 33 30 32 5c 33 30 34	cal.#[nil."\302\303!\210\302\304
1ea0	21 5c 32 31 30 5c 33 30 35 08 21 5c 32 30 34 15 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31	!\210\305.!\204..\306\307\310\31
1ec0	31 5c 33 31 32 24 10 09 5c 32 30 34 21 00 5c 33 31 33 08 21 5c 33 31 34 55 5c 32 30 33 24 00 5c	1\312$..\204!.\313.!\314U\203$.\
1ee0	33 31 35 20 5c 32 31 30 5c 33 31 36 5c 33 31 37 08 5c 22 5c 32 30 37 22 20 5b 6f 72 67 2d 62 62	315.\210\316\317.\"\207".[org-bb
1f00	64 62 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6f 72 67 2d 62 62 64 62 2d 75 70 64 61 74 65 64 2d 70	db-anniv-hash.org-bbdb-updated-p
1f20	20 72 65 71 75 69 72 65 20 62 62 64 62 20 64 69 61 72 79 2d 6c 69 62 20 68 61 73 68 2d 74 61 62	.require.bbdb.diary-lib.hash-tab
1f40	6c 65 2d 70 20 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 65 71 75 61 6c	le-p.make-hash-table.:test.equal
1f60	20 3a 73 69 7a 65 20 33 36 36 20 68 61 73 68 2d 74 61 62 6c 65 2d 63 6f 75 6e 74 20 30 20 6f 72	.:size.366.hash-table-count.0.or
1f80	67 2d 62 62 64 62 2d 6d 61 6b 65 2d 61 6e 6e 69 76 2d 68 61 73 68 20 6d 61 70 68 61 73 68 20 6f	g-bbdb-make-anniv-hash.maphash.o
1fa0	72 67 2d 62 62 64 62 2d 66 6f 72 6d 61 74 2d 76 65 76 65 6e 74 5d 20 35 20 28 23 24 20 2e 20 37	rg-bbdb-format-vevent].5.(#$...7
1fc0	37 30 33 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 62 64 62 2d 66 6f 72 6d 61	703)]).(defalias.'org-bbdb-forma
1fe0	74 2d 76 65 76 65 6e 74 20 23 5b 28 6b 65 79 20 72 65 63 73 29 20 22 5c 33 30 35 5c 32 31 31 18	t-vevent.#[(key.recs)."\305\211.
2000	19 5c 6e 5c 32 31 31 41 12 40 5c 32 31 31 11 5c 32 30 35 44 00 5c 33 30 36 09 38 5c 32 30 36 15	.\n\211A.@\211.\205D.\306.8\206.
2020	00 0b 10 5c 33 30 37 5c 33 31 30 5c 33 31 31 09 40 5c 66 40 5c 66 41 40 5c 33 31 32 5c 33 31 33	...\307\310\311.@\f@\fA@\312\313
2040	5c 33 31 34 09 41 40 5c 33 31 35 5c 22 5c 33 31 36 23 09 40 5c 66 40 5c 66 41 40 09 41 40 5c 33	\314.A@\315\"\316#.@\f@\fA@.A@\3
2060	31 37 08 21 5c 33 32 30 09 41 40 51 08 26 0b 21 5c 32 31 30 5c 32 30 32 04 00 2a 5c 32 30 37 22	17.!\320.A@Q.&.!\210\202..*\207"
2080	20 5b 63 61 74 65 67 20 72 65 63 20 72 65 63 73 20 6f 72 67 2d 62 62 64 62 2d 64 65 66 61 75 6c	.[categ.rec.recs.org-bbdb-defaul
20a0	74 2d 61 6e 6e 69 76 65 72 73 61 72 79 2d 66 6f 72 6d 61 74 20 6b 65 79 20 6e 69 6c 20 32 20 70	t-anniversary-format.key.nil.2.p
20c0	72 69 6e 63 20 66 6f 72 6d 61 74 20 22 42 45 47 49 4e 3a 56 45 56 45 4e 54 5c 6e 55 49 44 3a 20	rinc.format."BEGIN:VEVENT\nUID:.
20e0	41 4e 4e 49 56 2d 25 34 69 25 30 32 69 25 30 32 69 2d 25 73 5c 6e 44 54 53 54 41 52 54 3a 25 34	ANNIV-%4i%02i%02i-%s\nDTSTART:%4
2100	69 25 30 32 69 25 30 32 69 5c 6e 53 55 4d 4d 41 52 59 3a 25 73 5c 6e 44 45 53 43 52 49 50 54 49	i%02i%02i\nSUMMARY:%s\nDESCRIPTI
2120	4f 4e 3a 25 73 5c 6e 43 41 54 45 47 4f 52 49 45 53 3a 25 73 5c 6e 52 52 55 4c 45 3a 46 52 45 51	ON:%s\nCATEGORIES:%s\nRRULE:FREQ
2140	3d 59 45 41 52 4c 59 5c 6e 45 4e 44 3a 56 45 56 45 4e 54 5c 6e 22 20 6d 61 70 63 6f 6e 63 61 74	=YEARLY\nEND:VEVENT\n".mapconcat
2160	20 69 64 65 6e 74 69 74 79 20 6f 72 67 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5b 5e 61 2d	.identity.org-split-string."[^a-
2180	7a 41 2d 5a 30 2d 39 30 5d 2b 22 20 22 2d 22 20 63 61 70 69 74 61 6c 69 7a 65 20 22 20 22 5d 20	zA-Z0-90]+"."-".capitalize."."].
21a0	31 34 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 72 67 2d 62 62 64 62 29 0a	14]).(provide.'org-bbdb).