DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦983b4ca6e⟧

    Length: 1412 (0x584)
    Names: »time.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/time.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 70 72 6f 63 65 73 73 20 6e 69   ┆ (defvar display-time-process ni┆
0x020…040 6c 29 0a 0a 28 64 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 69 6e 74 65 72 76 61   ┆l)  (defvar display-time-interva┆
0x040…060 6c 20 36 30 20 22 5c 0a 2a 53 65 63 6f 6e 64 73 20 62 65 74 77 65 65 6e 20 75 70 64 61 74 65 73   ┆l 60 "\ *Seconds between updates┆
0x060…080 20 6f 66 20 74 69 6d 65 20 69 6e 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 2e 22 29 0a 0a 28 64   ┆ of time in the mode line.")  (d┆
0x080…0a0 65 66 76 61 72 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a   ┆efvar display-time-string nil)  ┆
0x0a0…0c0 28 64 65 66 75 6e 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 20 6e 69 6c 20 22 5c 0a 44 69 73 70 6c   ┆(defun display-time nil "\ Displ┆
0x0c0…0e0 61 79 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61 6e 64 20 6c 6f 61 64 20 6c 65 76 65 6c 20 69   ┆ay current time and load level i┆
0x0e0…100 6e 20 6d 6f 64 65 20 6c 69 6e 65 20 6f 66 20 65 61 63 68 20 62 75 66 66 65 72 2e 0a 55 70 64 61   ┆n mode line of each buffer. Upda┆
0x100…120 74 65 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 65 76 65 72 79 20 6d 69 6e 75 74 65 2e 0a   ┆tes automatically every minute. ┆
0x120…140 49 66 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 69 73 20   ┆If display-time-day-and-date is ┆
0x140…160 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 61 79 20 61 6e 64 20 64 61 74   ┆non-nil, the current day and dat┆
0x160…180 65 0a 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 61 73 20 77 65 6c 6c 2e 22 20 28 69 6e 74 65 72   ┆e are displayed as well." (inter┆
0x180…1a0 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 09 85 0b 00 c6 09 21 c7 3d 18   ┆active) (byte-code "        ! = ┆
0x1a0…1c0 08 3f 85 4d 00 8a 09 85 19 00 c8 09 21 88 0a 86 21 00 c9 89 12 88 c3 0a 3e 86 2e 00 ca 0a cb 5c   ┆ ? M        !   !       > .    \┆
0x1c0…1e0 22 89 12 88 cc 89 13 88 cd ce c4 cf d0 d1 0d 21 25 89 11 88 d2 09 21 88 d3 09 d4 5c 22 88 d5 09   ┆"              !%     !    \"   ┆
0x1e0…200 d6 5c 22 29 29 87 22 20 5b 6c 69 76 65 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 70 72 6f 63 65   ┆ \")) " [live display-time-proce┆
0x200…220 73 73 20 67 6c 6f 62 61 6c 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 20 64 69 73 70 6c 61 79 2d 74 69   ┆ss global-mode-string display-ti┆
0x220…240 6d 65 2d 73 74 72 69 6e 67 20 6e 69 6c 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 69 6e 74 65 72   ┆me-string nil display-time-inter┆
0x240…260 76 61 6c 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 72 75 6e 20 64 65 6c 65 74 65 2d 70 72   ┆val process-status run delete-pr┆
0x260…280 6f 63 65 73 73 20 28 22 22 29 20 61 70 70 65 6e 64 20 28 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d   ┆ocess ("") append (display-time-┆
0x280…2a0 73 74 72 69 6e 67 29 20 22 74 69 6d 65 20 61 6e 64 20 6c 6f 61 64 22 20 73 74 61 72 74 2d 70 72   ┆string) "time and load" start-pr┆
0x2a0…2c0 6f 63 65 73 73 20 22 64 69 73 70 6c 61 79 2d 74 69 6d 65 22 20 22 6c 6f 61 64 73 74 22 20 22 2d   ┆ocess "display-time" "loadst" "-┆
0x2c0…2e0 6e 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 69 6c 6c 2d 77 69   ┆n" int-to-string process-kill-wi┆
0x2e0…300 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 6e 74 69 6e 65 6c   ┆thout-query set-process-sentinel┆
0x300…320 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 2d 70 72 6f 63 65   ┆ display-time-sentinel set-proce┆
0x320…340 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 74 65 72 5d 20 31   ┆ss-filter display-time-filter] 1┆
0x340…360 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 65 6e 74 69 6e 65   ┆0))  (defun display-time-sentine┆
0x360…380 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 20 22 c2 08 21 c3   ┆l (proc reason) (byte-code "  ! ┆
0x380…3a0 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 70 72 6f 63 20 64   ┆=          q)    !   ! " [proc d┆
0x3a0…3c0 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 2d 73 74 61 74 75   ┆isplay-time-string process-statu┆
0x3c0…3e0 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 62 75 66 66 65 72   ┆s run "" other-buffer set-buffer┆
0x3e0…400 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 64 2d 70 20 73 69   ┆-modified-p buffer-modified-p si┆
0x400…420 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 61 79 2d 74 69 6d   ┆t-for 0] 6))  (defun display-tim┆
0x420…440 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 74 65 2d 63 6f 64   ┆e-filter (proc string) (byte-cod┆
0x440…460 65 20 22 08 47 c3 56 85 0d 00 08 c4 c5 4f 89 10 88 08 47 c6 56 85 1a 00 c7 c8 08 c6 23 85 29 00   ┆e " G V      O    G V       # ) ┆
0x460…480 08 c9 ca 21 c5 4f 89 10 88 82 0e 00 88 c7 cb 08 5c 22 85 3a 00 08 ca c9 ca 21 54 4f 89 10 88 09   ┆   ! O          \" :     !TO    ┆
0x480…4a0 85 48 00 cc 20 ca cd 4f 08 50 89 10 88 08 89 12 88 8a ce 20 71 29 88 cf d0 20 21 88 d1 ca 21 87   ┆ H     O P          q)    !   ! ┆
0x4a0…4c0 22 20 5b 73 74 72 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   ┆" [string display-time-day-and-d┆
0x4c0…4e0 61 74 65 20 64 69 73 70 6c 61 79 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 33 30 20 2d 33 30 20 6e   ┆ate display-time-string 30 -30 n┆
0x4e0…500 69 6c 20 34 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 30 2d 39 5d 2b 3a 5b 30 2d 39 5d 5b   ┆il 4 string-match "[0-9]+:[0-9][┆
0x500…520 30 2d 39 5d 2e 2e 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 22 5b 5e 30 2d 39   ┆0-9].." match-beginning 0 "[^0-9┆
0x520…540 5d 5b 30 2d 39 5d 2b 3a 22 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 31 31   ┆][0-9]+:" current-time-string 11┆
0x540…560 20 6f 74 68 65 72 2d 62 75 66 66 65 72 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65   ┆ other-buffer set-buffer-modifie┆
0x560…580 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 69 74 2d 66 6f 72 5d 20 31   ┆d-p buffer-modified-p sit-for] 1┆
0x580…584 30 29 29 0a   ┆0)) ┆