blob: 5e26869c2474d35b3f5489f62cfcaa17b9e648ca (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 6d 61 69 6c 2d 66 69 6c 65 20	.(defvar.display-time-mail-file.
0020	6e 69 6c 20 22 5c 0a 2a 46 69 6c 65 20 6e 61 6d 65 20 6f 66 20 6d 61 69 6c 20 69 6e 62 6f 78 20	nil."\.*File.name.of.mail.inbox.
0040	66 69 6c 65 2c 20 66 6f 72 20 69 6e 64 69 63 61 74 69 6e 67 20 65 78 69 73 74 65 6e 63 65 20 6f	file,.for.indicating.existence.o
0060	66 20 6e 65 77 20 6d 61 69 6c 2e 0a 44 65 66 61 75 6c 74 20 69 73 20 73 79 73 74 65 6d 2d 64 65	f.new.mail..Default.is.system-de
0080	70 65 6e 64 65 6e 74 2c 20 61 6e 64 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 75 73 65 64	pendent,.and.is.the.same.as.used
00a0	20 62 79 20 52 6d 61 69 6c 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69	.by.Rmail.")..(defvar.display-ti
00c0	6d 65 2d 70 72 6f 63 65 73 73 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79	me-process.nil)..(defvar.display
00e0	2d 74 69 6d 65 2d 69 6e 74 65 72 76 61 6c 20 36 30 20 22 5c 0a 2a 53 65 63 6f 6e 64 73 20 62 65	-time-interval.60."\.*Seconds.be
0100	74 77 65 65 6e 20 75 70 64 61 74 65 73 20 6f 66 20 74 69 6d 65 20 69 6e 20 74 68 65 20 6d 6f 64	tween.updates.of.time.in.the.mod
0120	65 20 6c 69 6e 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d	e.line.")..(defvar.display-time-
0140	73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 70 6c 61 79 2d 74 69 6d 65	string.nil)..(defun.display-time
0160	20 6e 69 6c 20 22 5c 0a 44 69 73 70 6c 61 79 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61 6e 64	.nil."\.Display.current.time.and
0180	20 6c 6f 61 64 20 6c 65 76 65 6c 20 69 6e 20 6d 6f 64 65 20 6c 69 6e 65 20 6f 66 20 65 61 63 68	.load.level.in.mode.line.of.each
01a0	20 62 75 66 66 65 72 2e 0a 55 70 64 61 74 65 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 65	.buffer..Updates.automatically.e
01c0	76 65 72 79 20 6d 69 6e 75 74 65 2e 0a 49 66 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 64 61 79	very.minute..If.display-time-day
01e0	2d 61 6e 64 2d 64 61 74 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 75 72 72 65 6e	-and-date.is.non-nil,.the.curren
0200	74 20 64 61 79 20 61 6e 64 20 64 61 74 65 0a 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 61 73 20	t.day.and.date.are.displayed.as.
0220	77 65 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20	well.".(interactive).(byte-code.
0240	22 c5 88 09 85 0b 00 c8 09 21 c9 3d 18 08 3f 85 51 00 09 85 18 00 ca 09 21 88 0a 86 20 00 cb 89	"........!.=..?.Q.......!.......
0260	12 88 c3 0a 3e 86 2d 00 cc 0a cd 5c 22 89 12 88 ce 89 13 88 c5 1c cf d0 c5 0e 06 d1 50 d2 0e 07	....>.-....\"...............P...
0280	21 24 89 11 29 88 d3 09 21 88 d4 09 d5 5c 22 88 d6 09 d7 5c 22 29 87 22 20 5b 6c 69 76 65 20 64	!$..)...!....\"....\").".[live.d
02a0	69 73 70 6c 61 79 2d 74 69 6d 65 2d 70 72 6f 63 65 73 73 20 67 6c 6f 62 61 6c 2d 6d 6f 64 65 2d	isplay-time-process.global-mode-
02c0	73 74 72 69 6e 67 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 70 72 6f 63 65	string.display-time-string.proce
02e0	73 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 20 65 78 65 63 2d 64 69 72 65	ss-connection-type.nil.exec-dire
0300	63 74 6f 72 79 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 69 6e 74 65 72 76 61 6c 20 70 72 6f 63	ctory.display-time-interval.proc
0320	65 73 73 2d 73 74 61 74 75 73 20 72 75 6e 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 28 22	ess-status.run.delete-process.("
0340	22 29 20 61 70 70 65 6e 64 20 28 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72 69 6e 67 29 20	").append.(display-time-string).
0360	22 22 20 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 64 69 73 70 6c 61 79 2d 74 69 6d 65 22 20	"".start-process."display-time".
0380	22 77 61 6b 65 75 70 22 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 70 72 6f 63 65 73 73 2d 6b	"wakeup".int-to-string.process-k
03a0	69 6c 6c 2d 77 69 74 68 6f 75 74 2d 71 75 65 72 79 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65	ill-without-query.set-process-se
03c0	6e 74 69 6e 65 6c 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 65 6e 74 69 6e 65 6c 20 73 65 74	ntinel.display-time-sentinel.set
03e0	2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 66 69 6c	-process-filter.display-time-fil
0400	74 65 72 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73	ter].10))..(defun.display-time-s
0420	65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 20 72 65 61 73 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 65	entinel.(proc.reason).(byte-code
0440	20 22 c2 08 21 c3 3d 86 0b 00 c4 89 11 88 8a c5 20 71 29 88 c6 c7 20 21 88 c8 c9 21 87 22 20 5b	."..!.=..........q)....!...!.".[
0460	70 72 6f 63 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 70 72 6f 63 65 73 73	proc.display-time-string.process
0480	2d 73 74 61 74 75 73 20 72 75 6e 20 22 22 20 6f 74 68 65 72 2d 62 75 66 66 65 72 20 73 65 74 2d	-status.run."".other-buffer.set-
04a0	62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65	buffer-modified-p.buffer-modifie
04c0	64 2d 70 20 73 69 74 2d 66 6f 72 20 30 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 73 70 6c	d-p.sit-for.0].6))..(defun.displ
04e0	61 79 2d 74 69 6d 65 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 20 73 74 72 69 6e 67 29 20 28 62 79	ay-time-filter.(proc.string).(by
0500	74 65 2d 63 6f 64 65 20 22 c9 20 ca cb cc 8f 0b 86 20 00 cd ce 21 86 20 00 0c cd cf 21 86 1f 00	te-code."............!......!...
0520	cd d0 21 86 1f 00 d1 20 50 ca ca 1e 06 1d 1a 19 18 d2 08 d3 d4 4f 21 89 15 88 0d d5 59 89 16 06	..!.....P............O!.....Y...
0540	88 0d d5 56 83 46 00 0d d5 5a 89 15 82 4f 00 0d d6 55 85 4f 00 d5 89 15 88 d7 d8 d9 0d 5c 22 08	...V.F...Z...O...U.O.........\".
0560	d4 da 4f 0e 06 83 62 00 db 82 63 00 dc dd 09 de 5c 22 83 6e 00 de 82 79 00 df 09 d6 e0 4f e1 09	..O...b...c.....\".n...y.....O..
0580	e0 ca 4f 52 e2 0a 21 85 86 00 e3 e4 0a 21 38 d6 56 83 8d 00 e5 82 8e 00 de 25 89 16 07 88 0e 08	..OR..!......!8.V........%......
05a0	85 a2 00 08 d6 d3 4f 0e 07 50 89 16 07 2d 88 8a e6 20 71 29 88 e7 e8 20 21 88 e9 d6 21 87 22 20	......O..P...-....q)....!...!.".
05c0	5b 74 69 6d 65 20 6c 6f 61 64 20 6d 61 69 6c 2d 73 70 6f 6f 6c 2d 66 69 6c 65 20 64 69 73 70 6c	[time.load.mail-spool-file.displ
05e0	61 79 2d 74 69 6d 65 2d 6d 61 69 6c 2d 66 69 6c 65 20 72 6d 61 69 6c 2d 73 70 6f 6f 6c 2d 64 69	ay-time-mail-file.rmail-spool-di
0600	72 65 63 74 6f 72 79 20 68 6f 75 72 20 70 6d 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72	rectory.hour.pm.display-time-str
0620	69 6e 67 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 64 61 79 2d 61 6e 64 2d 64 61 74 65 20 63 75	ing.display-time-day-and-date.cu
0640	72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65	rrent-time-string.nil.(byte-code
0660	20 22 c0 c1 20 40 21 83 0c 00 c2 82 12 00 c3 c4 c1 20 40 5c 22 87 22 20 5b 7a 65 72 6f 70 20 6c	."...@!...........@\".".[zerop.l
0680	6f 61 64 2d 61 76 65 72 61 67 65 20 22 22 20 66 6f 72 6d 61 74 20 22 25 30 33 64 22 5d 20 36 29	oad-average."".format."%03d"].6)
06a0	20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 c2 8f 87 22 20 5b 6e 69 6c	.((error.(byte-code.".....".[nil
06c0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 8e 8a c2 c3 21 71 88 c4 c5 c0 70 23 88 65 62 88 c6 c7	.(byte-code.".....!q....p#.eb...
06e0	21 88 c8 60 c9 ca 21 88 60 5c 22 c8 60 54 c9 ca 21 88 60 5c 22 50 29 29 87 22 20 5b 6e 69 6c 20	!..`..!.`\".`T..!.`\"P)).".[nil.
0700	28 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 6b 69 6c 6c 2d 62 75 66 66 65 72 20	((byte-code."..!.".[kill-buffer.
0720	22 20 2a 75 70 74 69 6d 65 2a 22 5d 20 32 29 29 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61	".*uptime*"].2)).get-buffer-crea
0740	74 65 20 22 20 2a 75 70 74 69 6d 65 2a 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 2f 75 73	te.".*uptime*".call-process."/us
0760	72 2f 75 63 62 2f 75 70 74 69 6d 65 22 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 61 76	r/ucb/uptime".search-forward."av
0780	65 72 61 67 65 3a 20 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 6f 72 77 61 72	erage:.".buffer-substring.forwar
07a0	64 2d 77 6f 72 64 20 31 5d 20 31 30 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65	d-word.1].10).((error.(byte-code
07c0	20 22 c0 87 22 20 5b 22 22 5d 20 31 29 29 29 5d 20 33 29 29 29 20 67 65 74 65 6e 76 20 22 4d 41	."..".[""].1)))].3))).getenv."MA
07e0	49 4c 22 20 22 4c 4f 47 4e 41 4d 45 22 20 22 55 53 45 52 22 20 75 73 65 72 2d 6c 6f 67 69 6e 2d	IL"."LOGNAME"."USER".user-login-
0800	6e 61 6d 65 20 72 65 61 64 20 31 31 20 31 33 20 31 32 20 30 20 63 6f 6e 63 61 74 20 66 6f 72 6d	name.read.11.13.12.0.concat.form
0820	61 74 20 22 25 64 22 20 31 36 20 22 70 6d 22 20 22 61 6d 22 20 73 74 72 69 6e 67 3d 20 22 22 20	at."%d".16."pm"."am".string=."".
0840	22 20 22 20 2d 32 20 22 2e 22 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 37 20 66 69 6c 65 2d	".".-2.".".file-exists-p.7.file-
0860	61 74 74 72 69 62 75 74 65 73 20 22 20 4d 61 69 6c 22 20 6f 74 68 65 72 2d 62 75 66 66 65 72 20	attributes.".Mail".other-buffer.
0880	73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64	set-buffer-modified-p.buffer-mod
08a0	69 66 69 65 64 2d 70 20 73 69 74 2d 66 6f 72 5d 20 31 38 29 29 0a	ified-p.sit-for].18)).