blob: b51d15fe803181edda4c8e1a7e8bebc2e85e8393 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 63 61 6c 65 6e 64 61 72 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 4c 69	.(defvar.calendar-hook.nil."\.Li
0020	73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 74 68 65	st.of.functions.called.after.the
0040	20 63 61 6c 65 6e 64 61 72 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 70 72 65 70 61 72	.calendar.buffer.has.been.prepar
0060	65 64 20 77 69 74 68 0a 74 68 65 20 63 61 6c 65 6e 64 61 72 20 6f 66 20 74 68 65 20 63 75 72 72	ed.with.the.calendar.of.the.curr
0080	65 6e 74 20 6d 6f 6e 74 68 2e 20 20 54 68 69 73 20 63 61 6e 20 62 65 20 75 73 65 64 2c 20 66 6f	ent.month...This.can.be.used,.fo
00a0	72 20 65 78 61 6d 70 6c 65 2c 20 74 6f 20 68 69 67 68 6c 69 67 68 74 0a 74 6f 64 61 79 27 73 20	r.example,.to.highlight.today's.
00c0	64 61 74 65 20 77 69 74 68 20 61 73 74 65 72 69 73 6b 73 2d 2d 61 20 66 75 6e 63 74 69 6f 6e 20	date.with.asterisks--a.function.
00e0	73 74 61 72 2d 64 61 74 65 20 69 73 20 69 6e 63 6c 75 64 65 64 20 66 6f 72 20 74 68 69 73 20 70	star-date.is.included.for.this.p
0100	75 72 70 6f 73 65 2e 0a 54 68 65 20 76 61 72 69 61 62 6c 65 20 6f 66 66 73 65 74 2d 63 61 6c 65	urpose..The.variable.offset-cale
0120	6e 64 61 72 2d 68 6f 6f 6b 20 69 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f	ndar-hook.is.the.list.of.functio
0140	6e 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 74 68 65 0a 63 61 6c 65 6e 64 61 72 20 66 75 6e 63	ns.called.when.the.calendar.func
0160	74 69 6f 6e 20 77 61 73 20 63 61 6c 6c 65 64 20 66 6f 72 20 61 20 70 61 73 74 20 6f 72 20 66 75	tion.was.called.for.a.past.or.fu
0180	74 75 72 65 20 6d 6f 6e 74 68 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 66 66 73 65 74 2d 63 61	ture.month.")..(defvar.offset-ca
01a0	6c 65 6e 64 61 72 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20 66 75 6e 63 74	lendar-hook.nil."\.List.of.funct
01c0	69 6f 6e 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 74 68 65 20 63 61 6c 65 6e 64 61 72 20 62	ions.called.after.the.calendar.b
01e0	75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 70 72 65 70 61 72 65 64 20 77 69 74 68 0a 74 68 65	uffer.has.been.prepared.with.the
0200	20 63 61 6c 65 6e 64 61 72 20 6f 66 20 61 20 70 61 73 74 20 6f 72 20 66 75 74 75 72 65 20 6d 6f	.calendar.of.a.past.or.future.mo
0220	6e 74 68 2e 20 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 63 61 6c 65 6e 64 61 72 2d 68 6f 6f 6b	nth...The.variable.calendar-hook
0240	20 69 73 20 74 68 65 0a 6c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 65 64	.is.the.list.of.functions.called
0260	20 77 68 65 6e 20 74 68 65 20 63 61 6c 65 6e 64 61 72 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 20	.when.the.calendar.function.was.
0280	63 61 6c 6c 65 64 20 66 6f 72 20 74 68 65 0a 63 75 72 72 65 6e 74 20 6d 6f 6e 74 68 2e 22 29 0a	called.for.the.current.month.").
02a0	0a 28 64 65 66 75 6e 20 63 61 6c 65 6e 64 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f 6e 74	.(defun.calendar.(&optional.mont
02c0	68 2d 6f 66 66 73 65 74 29 20 22 5c 0a 44 69 73 70 6c 61 79 20 74 68 72 65 65 2d 6d 6f 6e 74 68	h-offset)."\.Display.three-month
02e0	20 63 61 6c 65 6e 64 61 72 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 0a 54 68 65	.calendar.in.another.window..The
0300	20 74 68 72 65 65 20 6d 6f 6e 74 68 73 20 61 70 70 65 61 72 20 73 69 64 65 20 62 79 20 73 69 64	.three.months.appear.side.by.sid
0320	65 2c 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 6e 74 68 20 69 6e 20 74 68 65	e,.with.the.current.month.in.the
0340	20 6d 69 64 64 6c 65 0a 73 75 72 72 6f 75 6e 64 65 64 20 62 79 20 74 68 65 20 70 72 65 76 69 6f	.middle.surrounded.by.the.previo
0360	75 73 20 61 6e 64 20 6e 65 78 74 20 6d 6f 6e 74 68 73 2e 20 20 54 68 65 20 63 75 72 73 6f 72 20	us.and.next.months...The.cursor.
0380	69 73 20 70 75 74 20 6f 6e 20 74 6f 64 61 79 27 73 20 64 61 74 65 2e 0a 0a 41 6e 20 6f 70 74 69	is.put.on.today's.date...An.opti
03a0	6f 6e 61 6c 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 41 52 47 20 63 61 75 73 65 73 20	onal.prefix.argument.ARG.causes.
03c0	74 68 65 20 63 61 6c 65 6e 64 61 72 20 64 69 73 70 6c 61 79 65 64 20 74 6f 20 62 65 0a 41 52 47	the.calendar.displayed.to.be.ARG
03e0	20 6d 6f 6e 74 68 73 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 20 69 66 20 41 52 47 20 69 73 20	.months.in.the.future.if.ARG.is.
0400	70 6f 73 69 74 69 76 65 20 6f 72 20 69 6e 20 74 68 65 20 70 61 73 74 20 69 66 20 41 52 47 20 69	positive.or.in.the.past.if.ARG.i
0420	73 0a 6e 65 67 61 74 69 76 65 3b 20 69 6e 20 74 68 69 73 20 63 61 73 65 20 74 68 65 20 63 75 72	s.negative;.in.this.case.the.cur
0440	73 6f 72 20 67 6f 65 73 20 6f 6e 20 74 68 65 20 66 69 72 73 74 20 64 61 79 20 6f 66 20 74 68 65	sor.goes.on.the.first.day.of.the
0460	20 6d 6f 6e 74 68 2e 0a 0a 54 68 65 20 47 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64 61 72 20	.month...The.Gregorian.calendar.
0480	69 73 20 61 73 73 75 6d 65 64 2e 0a 0a 41 66 74 65 72 20 70 72 65 70 61 72 69 6e 67 20 74 68 65	is.assumed...After.preparing.the
04a0	20 63 61 6c 65 6e 64 61 72 20 77 69 6e 64 6f 77 2c 20 74 68 65 20 68 6f 6f 6b 73 20 63 61 6c 65	.calendar.window,.the.hooks.cale
04c0	6e 64 61 72 2d 68 6f 6f 6b 20 61 72 65 20 72 75 6e 0a 77 68 65 6e 20 74 68 65 20 63 61 6c 65 6e	ndar-hook.are.run.when.the.calen
04e0	64 61 72 20 69 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 6f 6e 74 68 2d 2d 74 68	dar.is.for.the.current.month--th
0500	61 74 20 69 73 2c 20 74 68 65 20 77 61 73 20 6e 6f 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e	at.is,.the.was.no.prefix.argumen
0520	74 2e 20 20 49 66 20 74 68 65 20 63 61 6c 65 6e 64 61 72 20 69 73 20 66 6f 72 20 61 20 66 75 74	t...If.the.calendar.is.for.a.fut
0540	75 72 65 20 6f 72 20 70 61 73 74 20 6d 6f 6e 74 68 2d 2d 74 68 61 74 20 69 73 2c 20 74 68 65 72	ure.or.past.month--that.is,.ther
0560	65 0a 77 61 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2d 2d 74 68 65 20 68 6f 6f	e.was.a.prefix.argument--the.hoo
0580	6b 73 20 6f 66 66 73 65 74 2d 63 61 6c 65 6e 64 61 72 2d 68 6f 6f 6b 20 61 72 65 20 72 75 6e 2e	ks.offset-calendar-hook.are.run.
05a0	20 20 54 68 75 73 2c 20 66 6f 72 0a 65 78 61 6d 70 6c 65 2c 20 73 65 74 74 69 6e 67 20 63 61 6c	..Thus,.for.example,.setting.cal
05c0	65 6e 64 61 72 2d 68 6f 6f 6b 73 20 74 6f 20 27 73 74 61 72 2d 64 61 74 65 20 77 69 6c 6c 20 63	endar-hooks.to.'star-date.will.c
05e0	61 75 73 65 20 74 6f 64 61 79 27 73 20 64 61 74 65 20 74 6f 20 62 65 0a 72 65 70 6c 61 63 65 64	ause.today's.date.to.be.replaced
0600	20 62 79 20 61 73 74 65 72 69 73 6b 73 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 69 74 20 69 6e	.by.asterisks.to.highlight.it.in
0620	20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20	.the.window.".(interactive."P").
0640	28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 08 85 0b 00 cd 08 21 89 10 88 ce 20 19 8a cf d0 21 71	(byte-code."........!.........!q
0660	88 c3 89 12 88 c4 1a d1 20 1d d2 d3 0d 5c 22 1e 06 08 85 29 00 d4 86 36 00 d5 0d d6 d7 21 d8 d7	.............\"....)...6.....!..
0680	21 4f 21 1e 07 d9 0d d6 d4 21 d8 d4 21 4f da 5c 22 41 1e 08 d5 0d d6 db 21 d8 db 21 4f 21 1e 09	!O!......!..!O.\"A......!..!O!..
06a0	dc 20 88 08 85 7b 00 dd 0e 09 de 5c 22 0e 08 d4 5a 5c 5c 08 5c 5c 1e 0a df 0e 0a de 5c 22 d4 5c	.....{.....\"...Z\\.\\......\".\
06c0	5c 89 16 08 88 e0 0e 0a de 5c 22 89 16 09 29 88 e1 0e 08 d4 55 83 88 00 de 82 8b 00 0e 08 53 0e	\........\"...).....U.........S.
06e0	08 d4 55 83 98 00 0e 09 53 82 9a 00 0e 09 e2 23 88 65 62 88 e3 09 e1 0e 08 0e 09 e4 0e 07 24 5c	..U.....S......#.eb...........$\
0700	22 88 65 62 88 e1 0e 08 de 55 83 bc 00 d4 82 bf 00 0e 08 54 0e 08 de 55 83 cc 00 0e 09 54 82 ce	".eb.....U.........T...U.....T..
0720	00 0e 09 e5 23 2e 06 29 88 e6 d0 21 88 e7 09 21 62 88 e3 09 c4 5c 22 29 88 e8 20 53 e9 65 64 5c	....#..)...!...!b....\")...S.ed\
0740	22 1e 0c 1e 0b e8 ea 20 21 e8 eb 20 21 5c 5c ec 20 55 86 0c 01 0e 0b 0e 0c 58 86 0c 01 ed 0e 0b	".......!...!\\..U.......X......
0760	0e 0c 5a 21 2a 88 08 83 18 01 ee ef 21 82 1b 01 ee f0 21 87 22 20 5b 6d 6f 6e 74 68 2d 6f 66 66	..Z!*.......!.....!.".[month-off
0780	73 65 74 20 74 6f 64 61 79 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 20 6e 69 6c	set.today.buffer-read-only.t.nil
07a0	20 64 61 74 65 20 67 61 72 62 61 67 65 20 64 61 79 20 6d 6f 6e 74 68 20 79 65 61 72 20 79 65 61	.date.garbage.day.month.year.yea
07c0	72 2d 6d 6f 6e 74 68 20 68 20 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65	r-month.h.l.prefix-numeric-value
07e0	20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22	.make-marker.get-buffer-create."
0800	2a 43 61 6c 65 6e 64 61 72 2a 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20	*Calendar*".current-time-string.
0820	73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 20 5c 5c 28 5b 41 2d 5a 5d 5b 61 2d 7a 5d 5b 61 2d 7a	string-match.".\\([A-Z][a-z][a-z
0840	5d 5c 5c 29 20 2a 5c 5c 28 5b 30 2d 39 5d 2a 5c 5c 29 20 2e 2a 20 5c 5c 28 5b 30 2d 39 5d 2a 5c	]\\).*\\([0-9]*\\)..*.\\([0-9]*\
0860	5c 29 24 22 20 31 20 73 74 72 69 6e 67 2d 74 6f 2d 69 6e 74 20 6d 61 74 63 68 2d 62 65 67 69 6e	\)$".1.string-to-int.match-begin
0880	6e 69 6e 67 20 32 20 6d 61 74 63 68 2d 65 6e 64 20 61 73 73 6f 63 20 28 28 22 4a 61 6e 22 20 2e	ning.2.match-end.assoc.(("Jan"..
08a0	20 31 29 20 28 22 46 65 62 22 20 2e 20 32 29 20 28 22 4d 61 72 22 20 2e 20 33 29 20 28 22 41 70	.1).("Feb"...2).("Mar"...3).("Ap
08c0	72 22 20 2e 20 34 29 20 28 22 4d 61 79 22 20 2e 20 35 29 20 28 22 4a 75 6e 22 20 2e 20 36 29 20	r"...4).("May"...5).("Jun"...6).
08e0	28 22 4a 75 6c 22 20 2e 20 37 29 20 28 22 41 75 67 22 20 2e 20 38 29 20 28 22 53 65 70 22 20 2e	("Jul"...7).("Aug"...8).("Sep"..
0900	20 39 29 20 28 22 4f 63 74 22 20 2e 20 31 30 29 20 28 22 4e 6f 76 22 20 2e 20 31 31 29 20 28 22	.9).("Oct"...10).("Nov"...11).("
0920	44 65 63 22 20 2e 20 31 32 29 29 20 33 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 2a 20 31 32 20	Dec"...12)).3.erase-buffer.*.12.
0940	25 20 2f 20 67 65 6e 65 72 61 74 65 2d 6d 6f 6e 74 68 20 30 20 73 65 74 2d 6d 61 72 6b 65 72 20	%./.generate-month.0.set-marker.
0960	32 34 20 34 38 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 72 6b 65 72 2d 70 6f 73 69 74	24.48.pop-to-buffer.marker-posit
0980	69 6f 6e 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 73 65	ion.window-height.count-lines.se
09a0	6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20	lected-window.minibuffer-window.
09c0	73 63 72 65 65 6e 2d 68 65 69 67 68 74 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 72 75 6e 2d	screen-height.shrink-window.run-
09e0	68 6f 6f 6b 73 20 6f 66 66 73 65 74 2d 63 61 6c 65 6e 64 61 72 2d 68 6f 6f 6b 20 63 61 6c 65 6e	hooks.offset-calendar-hook.calen
0a00	64 61 72 2d 68 6f 6f 6b 5d 20 33 36 29 29 0a 0a 28 64 65 66 75 6e 20 6c 65 61 70 2d 79 65 61 72	dar-hook].36))..(defun.leap-year
0a20	2d 70 20 28 79 65 61 72 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 72 75 65 20 69 66 20 59 45 41	-p.(year)."\.Returns.true.if.YEA
0a40	52 20 69 73 20 61 20 47 72 65 67 6f 72 69 61 6e 20 6c 65 61 70 20 79 65 61 72 2c 20 61 6e 64 20	R.is.a.Gregorian.leap.year,.and.
0a60	66 61 6c 73 65 20 69 66 20 6e 6f 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 5c 22	false.if.not.".(byte-code."...\"
0a80	c3 55 85 10 00 c4 c1 08 c5 5c 22 c3 5c 22 86 19 00 c1 08 c6 5c 22 c3 55 87 22 20 5b 79 65 61 72	.U.......\".\"......\".U.".[year
0aa0	20 25 20 34 20 30 20 2f 3d 20 31 30 30 20 34 30 30 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64	.%.4.0./=.100.400].6))..(defun.d
0ac0	61 79 2d 6e 75 6d 62 65 72 20 28 6d 6f 6e 74 68 20 64 61 79 20 79 65 61 72 29 20 22 5c 0a 52 65	ay-number.(month.day.year)."\.Re
0ae0	74 75 72 6e 20 64 61 79 2d 6e 75 6d 62 65 72 20 77 69 74 68 69 6e 20 79 65 61 72 20 28 6f 72 69	turn.day-number.within.year.(ori
0b00	67 69 6e 2d 31 29 20 6f 66 20 74 68 65 20 64 61 74 65 20 4d 4f 4e 54 48 20 44 41 59 20 59 45 41	gin-1).of.the.date.MONTH.DAY.YEA
0b20	52 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 28 64 61 79 2d 6e 75 6d 62 65 72 20 31 20 31 20	R..For.example,.(day-number.1.1.
0b40	31 39 38 37 29 20 72 65 74 75 72 6e 73 20 74 68 65 20 76 61 6c 75 65 20 31 2c 0a 77 68 69 6c 65	1987).returns.the.value.1,.while
0b60	20 28 64 61 79 2d 6e 75 6d 62 65 72 20 31 32 20 33 31 20 31 39 38 30 29 20 72 65 74 75 72 6e 73	.(day-number.12.31.1980).returns
0b80	20 33 36 36 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c4 c5 0a 53 5c 22 5c 5c 18 0a c6 56	.366.".(byte-code."....S\"\\...V
0ba0	85 26 00 08 c7 c8 c4 c9 0a 5c 22 5c 5c ca 5c 22 5a 89 10 88 cb 0b 21 85 26 00 08 54 89 10 88 08	.&.......\"\\.\"Z.....!.&..T....
0bc0	29 87 22 20 5b 64 61 79 2d 6f 66 2d 79 65 61 72 20 64 61 79 20 6d 6f 6e 74 68 20 79 65 61 72 20	).".[day-of-year.day.month.year.
0be0	2a 20 33 31 20 32 20 2f 20 32 33 20 34 20 31 30 20 6c 65 61 70 2d 79 65 61 72 2d 70 5d 20 37 29	*.31.2./.23.4.10.leap-year-p].7)
0c00	29 0a 0a 28 64 65 66 75 6e 20 64 61 79 2d 6f 66 2d 77 65 65 6b 20 28 6d 6f 6e 74 68 20 64 61 79	)..(defun.day-of-week.(month.day
0c20	20 79 65 61 72 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 64 61 79 2d 6f 66 2d 74 68 65	.year)."\.Returns.the.day-of-the
0c40	2d 77 65 65 6b 20 69 6e 64 65 78 20 6f 66 20 4d 4f 4e 54 48 20 44 41 59 2c 20 59 45 41 52 2e 0a	-week.index.of.MONTH.DAY,.YEAR..
0c60	56 61 6c 75 65 20 69 73 20 30 20 66 6f 72 20 53 75 6e 64 61 79 2c 20 31 20 66 6f 72 20 4d 6f 6e	Value.is.0.for.Sunday,.1.for.Mon
0c80	64 61 79 2c 20 65 74 63 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 c6 08 09 0a 23 c7 c8	day,.etc.".(byte-code."......#..
0ca0	0a 53 5c 22 c9 0a 53 ca 5c 22 23 c7 c9 0a 53 cb 5c 22 cc 5c 22 1b c4 0b ca 5c 22 cd 55 83 2b 00	.S\"..S.\"#...S.\".\"....\".U.+.
0cc0	c9 0b ca 5c 22 82 30 00 c9 0b ca 5c 22 54 29 5a ce 5c 22 87 22 20 5b 6d 6f 6e 74 68 20 64 61 79	...\".0....\"T)Z.\".".[month.day
0ce0	20 79 65 61 72 20 63 6f 72 72 65 63 74 69 6f 6e 20 25 20 2b 20 64 61 79 2d 6e 75 6d 62 65 72 20	.year.correction.%.+.day-number.
0d00	2a 20 33 36 35 20 2f 20 34 20 31 30 30 20 33 20 30 20 37 5d 20 31 33 29 29 0a 0a 28 64 65 66 75	*.365./.4.100.3.0.7].13))..(defu
0d20	6e 20 67 65 6e 65 72 61 74 65 2d 6d 6f 6e 74 68 20 28 6d 6f 6e 74 68 20 79 65 61 72 20 69 6e 64	n.generate-month.(month.year.ind
0d40	65 6e 74 20 26 6f 70 74 69 6f 6e 61 6c 20 64 61 79 29 20 22 5c 0a 50 72 6f 64 75 63 65 20 61 20	ent.&optional.day)."\.Produce.a.
0d60	63 61 6c 65 6e 64 61 72 20 66 6f 72 20 4d 4f 4e 54 48 2c 20 59 45 41 52 20 6f 6e 20 74 68 65 20	calendar.for.MONTH,.YEAR.on.the.
0d80	47 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64 61 72 2c 20 69 6e 73 65 72 74 65 64 0a 69 6e 20	Gregorian.calendar,.inserted.in.
0da0	74 68 65 20 62 75 66 66 65 72 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 6c 69 6e 65 20	the.buffer.starting.at.the.line.
0dc0	6f 6e 20 77 68 69 63 68 20 70 6f 69 6e 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 6c 6f 63 61	on.which.point.is.currently.loca
0de0	74 65 64 2c 20 62 75 74 0a 69 6e 64 65 6e 74 65 64 20 49 4e 44 45 4e 54 20 73 70 61 63 65 73 2e	ted,.but.indented.INDENT.spaces.
0e00	20 20 54 68 65 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 6f 66 20	..The.position.in.the.buffer.of.
0e20	74 68 65 20 6f 70 74 69 6f 6e 61 6c 0a 70 61 72 61 6d 65 74 65 72 20 44 41 59 20 69 73 20 72 65	the.optional.parameter.DAY.is.re
0e40	74 75 72 6e 65 64 2e 20 20 54 68 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 69 73 20 64 6f 6e 65	turned...The.indentation.is.done
0e60	20 66 72 6f 6d 20 74 68 65 20 66 69 72 73 74 0a 63 68 61 72 61 63 74 65 72 20 6f 6e 20 74 68 65	.from.the.first.character.on.the
0e80	20 6c 69 6e 65 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 64 69 73 74 75 72 62 20 74 68 65 20 66	.line.and.does.not.disturb.the.f
0ea0	69 72 73 74 20 49 4e 44 45 4e 54 20 63 68 61 72 61 63 74 65 72 73 20 6f 6e 0a 74 68 65 20 6c 69	irst.INDENT.characters.on.the.li
0ec0	6e 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cc 09 cd 0a 23 18 ce 08 5a 1b cf 0a 21 85 13	ne.".(byte-code."....#...Z...!..
0ee0	00 09 d0 55 83 1a 00 d1 82 1e 00 d2 09 53 48 1c d3 09 53 48 1d d4 d5 d6 0d 0a 23 0e 06 c7 23 88	...U.........SH...SH......#...#.
0f00	d4 d7 0e 06 c7 23 88 d4 d8 0e 06 5c 22 88 d9 1e 08 0e 08 54 89 16 08 08 58 85 50 00 da 63 88 82	.....#.....\"......T....X.P..c..
0f20	3f 00 29 88 d9 ca 1e 09 1e 08 0e 08 54 89 16 08 0c 58 85 a4 00 d5 db 0e 08 5c 22 63 88 0e 0b 85	?.).........T....X.......\"c....
0f40	7d 00 0e 08 0e 0b 55 85 7d 00 60 d0 5a 89 16 09 88 dc 0e 08 ce 5c 22 dc 0b ce 5c 22 55 85 a0 00	}.....U.}.`.Z........\"...\"U...
0f60	dd 0e 08 0c 5c 22 85 a0 00 d4 d8 d9 c7 23 85 a0 00 d4 d8 0e 06 5c 22 88 82 58 00 88 0e 09 2a 2c	....\".......#.......\"..X....*,
0f80	87 22 20 5b 66 69 72 73 74 2d 64 61 79 2d 6f 66 2d 6d 6f 6e 74 68 20 6d 6f 6e 74 68 20 79 65 61	.".[first-day-of-month.month.yea
0fa0	72 20 66 69 72 73 74 2d 73 61 74 75 72 64 61 79 20 6c 61 73 74 2d 6f 66 2d 6d 6f 6e 74 68 20 6d	r.first-saturday.last-of-month.m
0fc0	6f 6e 74 68 2d 6e 61 6d 65 20 69 6e 64 65 6e 74 20 74 20 69 20 64 61 79 2d 6d 61 72 6b 65 72 20	onth-name.indent.t.i.day-marker.
0fe0	6e 69 6c 20 64 61 79 20 64 61 79 2d 6f 66 2d 77 65 65 6b 20 31 20 37 20 6c 65 61 70 2d 79 65 61	nil.day.day-of-week.1.7.leap-yea
1000	72 2d 70 20 32 20 32 39 20 5b 33 31 20 32 38 20 33 31 20 33 30 20 33 31 20 33 30 20 33 31 20 33	r-p.2.29.[31.28.31.30.31.30.31.3
1020	31 20 33 30 20 33 31 20 33 30 20 33 31 5d 20 5b 22 4a 61 6e 75 61 72 79 22 20 22 46 65 62 72 75	1.30.31.30.31].["January"."Febru
1040	61 72 79 22 20 22 4d 61 72 63 68 22 20 22 41 70 72 69 6c 22 20 22 4d 61 79 22 20 22 4a 75 6e 65	ary"."March"."April"."May"."June
1060	22 20 22 4a 75 6c 79 22 20 22 41 75 67 75 73 74 22 20 22 53 65 70 74 65 6d 62 65 72 22 20 22 4f	"."July"."August"."September"."O
1080	63 74 6f 62 65 72 22 20 22 4e 6f 76 65 6d 62 65 72 22 20 22 44 65 63 65 6d 62 65 72 22 5d 20 69	ctober"."November"."December"].i
10a0	6e 73 65 72 74 2d 69 6e 64 65 6e 74 65 64 20 66 6f 72 6d 61 74 20 22 20 20 20 25 73 20 25 64 22	nsert-indented.format."...%s.%d"
10c0	20 22 20 53 20 20 4d 20 54 75 20 20 57 20 54 68 20 20 46 20 20 53 22 20 22 22 20 30 20 22 20 20	.".S..M.Tu..W.Th..F..S"."".0."..
10e0	20 22 20 22 25 32 64 20 22 20 25 20 2f 3d 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73	."."%2d.".%./=].15))..(defun.ins
1100	65 72 74 2d 69 6e 64 65 6e 74 65 64 20 28 73 74 72 69 6e 67 20 69 6e 64 65 6e 74 20 26 6f 70 74	ert-indented.(string.indent.&opt
1120	69 6f 6e 61 6c 20 6e 65 77 6c 69 6e 65 29 20 22 5c 0a 49 6e 73 65 72 74 20 53 54 52 49 4e 47 20	ional.newline)."\.Insert.STRING.
1140	61 74 20 63 6f 6c 75 6d 6e 20 49 4e 44 45 4e 54 2e 0a 49 66 20 74 68 65 20 6f 70 74 69 6f 6e 61	at.column.INDENT..If.the.optiona
1160	6c 20 70 61 72 61 6d 65 74 65 72 20 4e 45 57 4c 49 4e 45 20 69 73 20 74 72 75 65 2c 20 6c 65 61	l.parameter.NEWLINE.is.true,.lea
1180	76 65 20 70 6f 69 6e 74 20 61 74 20 73 74 61 72 74 20 6f 66 20 6e 65 78 74 0a 6c 69 6e 65 2c 20	ve.point.at.start.of.next.line,.
11a0	69 6e 73 65 72 74 69 6e 67 20 61 20 6e 65 77 6c 69 6e 65 20 69 66 20 74 68 65 72 65 20 77 61 73	inserting.a.newline.if.there.was
11c0	20 6e 6f 20 6e 65 78 74 20 6c 69 6e 65 3b 20 6f 74 68 65 72 77 69 73 65 2c 20 6c 65 61 76 65 20	.no.next.line;.otherwise,.leave.
11e0	70 6f 69 6e 74 0a 61 66 74 65 72 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 74 65 78 74 2e 20 20	point.after.the.inserted.text...
1200	56 61 6c 75 65 20 69 73 20 61 6c 77 61 79 73 20 60 74 27 2e 22 20 28 62 79 74 65 2d 63 6f 64 65	Value.is.always.`t'.".(byte-code
1220	20 22 c4 08 21 88 69 08 57 85 0c 00 08 6a 88 09 63 88 0a 85 23 00 c5 20 88 6d 83 20 00 c2 20 82	."..!.i.W....j..c...#....m......
1240	23 00 c6 c7 21 88 c3 87 22 20 5b 69 6e 64 65 6e 74 20 73 74 72 69 6e 67 20 6e 65 77 6c 69 6e 65	#...!...".[indent.string.newline
1260	20 74 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 66 6f	.t.move-to-column.end-of-line.fo
1280	72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 74 61 72 2d 64	rward-line.1].5))..(defun.star-d
12a0	61 74 65 20 6e 69 6c 20 22 5c 0a 52 65 70 6c 61 63 65 20 74 6f 64 61 79 27 73 20 64 61 74 65 20	ate.nil."\.Replace.today's.date.
12c0	77 69 74 68 20 61 73 74 65 72 69 73 6b 73 20 69 6e 20 74 68 65 20 63 61 6c 65 6e 64 61 72 20 77	with.asterisks.in.the.calendar.w
12e0	69 6e 64 6f 77 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 75 73 65 64	indow..This.function.can.be.used
1300	20 77 69 74 68 20 74 68 65 20 63 61 6c 65 6e 64 61 72 2d 68 6f 6f 6b 20 72 75 6e 20 61 66 74 65	.with.the.calendar-hook.run.afte
1320	72 20 74 68 65 0a 63 61 6c 65 6e 64 61 72 20 77 69 6e 64 6f 77 20 68 61 73 20 62 65 65 6e 20 70	r.the.calendar.window.has.been.p
1340	72 65 70 61 72 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 18 c2 c3 21 88 c4 c5 21 88	repared.".(byte-code."....!...!.
1360	c6 63 88 c7 c3 21 29 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20	.c...!).".[buffer-read-only.nil.
1380	66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 64 65 6c 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63	forward-char.1.delete-backward-c
13a0	68 61 72 20 32 20 22 2a 2a 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 5d 20 34 29 29 0a	har.2."**".backward-char].4)).