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

⟦2622ca96e⟧

    Length: 1233 (0x4d1)
    Names: »yow.elc«

Derivation

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

Hex Dump

0x000…020 0a 28 72 61 6e 64 6f 6d 20 74 29 0a 0a 28 64 65 66 75 6e 20 79 6f 77 20 28 26 6f 70 74 69 6f 6e   ┆ (random t)  (defun yow (&option┆
0x020…040 61 6c 20 6e 20 69 6e 74 65 72 61 63 74 69 76 65 29 20 22 5c 0a 52 65 74 75 72 6e 20 6f 72 20 64   ┆al n interactive) "\ Return or d┆
0x040…060 69 73 70 6c 61 79 20 61 20 5a 69 70 70 79 20 71 75 6f 74 61 74 69 6f 6e 22 20 28 69 6e 74 65 72   ┆isplay a Zippy quotation" (inter┆
0x060…080 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0c 00 c3 08 21 c1 44 82 0f 00 c2   ┆active (byte-code "      ! D    ┆
0x080…0a0 c1 44 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6e 69 6c 20 70   ┆ D " [current-prefix-arg t nil p┆
0x0a0…0c0 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 5d 20 33 29 29 20 28 62 79 74 65 2d 63   ┆refix-numeric-value] 3)) (byte-c┆
0x0c0…0e0 6f 64 65 20 22 c2 88 0b 3f 85 0b 00 c7 20 89 13 88 0c 86 21 00 c8 c9 20 0b 47 5c 22 89 14 ca 59   ┆ode "   ?          !     G\"   Y┆
0x0e0…100 86 21 00 0c 5b 89 14 88 0b 0c 48 1d 0e 06 3f 83 30 00 0d 82 4e 00 cb cc 0d 5c 22 3f 83 44 00 cd   ┆ !  [     H   ? 0   N    \"? D  ┆
0x100…120 ce cf 21 21 88 d0 0d 21 82 4e 00 d0 d1 21 88 cf 90 d2 0d 21 91 29 87 22 20 5b 63 75 72 72 65 6e   ┆  !!   ! N   !     ! ) " [curren┆
0x120…140 74 2d 70 72 65 66 69 78 2d 61 72 67 20 74 20 6e 69 6c 20 79 6f 77 2d 76 65 63 74 6f 72 20 6e 20   ┆t-prefix-arg t nil yow-vector n ┆
0x140…160 79 6f 77 20 69 6e 74 65 72 61 63 74 69 76 65 20 73 6e 61 72 66 2d 79 6f 77 73 20 25 20 72 61 6e   ┆yow interactive snarf-yows % ran┆
0x160…180 64 6f 6d 20 30 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 0a 22 20 64 65 6c 65 74 65 2d 77 69   ┆dom 0 string-match " " delete-wi┆
0x180…1a0 6e 64 6f 77 73 2d 6f 6e 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 48 65 6c   ┆ndows-on get-buffer-create "*Hel┆
0x1a0…1c0 70 2a 22 20 6d 65 73 73 61 67 65 20 22 59 6f 77 21 22 20 70 72 69 6e 63 5d 20 31 31 29 29 0a 0a   ┆p*" message "Yow!" princ] 11))  ┆
0x1c0…1e0 28 64 65 66 76 61 72 20 79 6f 77 2d 76 65 63 74 6f 72 20 6e 69 6c 20 22 5c 0a 50 65 72 74 69 6e   ┆(defvar yow-vector nil "\ Pertin┆
0x1e0…200 65 6e 74 20 70 69 6e 68 65 61 64 20 73 74 61 74 65 6d 65 6e 74 73 22 29 0a 0a 28 64 65 66 75 6e   ┆ent pinhead statements")  (defun┆
0x200…220 20 73 6e 61 72 66 2d 79 6f 77 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 29 20 28 62 79   ┆ snarf-yows (&optional file) (by┆
0x220…240 74 65 2d 63 6f 64 65 20 22 8a c7 c8 21 c9 c3 1a 19 18 ca cb 21 88 08 71 88 cc 0c 86 19 00 cd ce   ┆te-code "   !       !  q        ┆
0x240…260 0d 5c 22 21 88 cf d0 21 88 d1 d2 21 88 6d 3f 85 3e 00 60 1e 06 cf d0 21 88 d3 0e 06 60 53 5c 22   ┆ \"!   !   ! m? > `    !    `S\"┆
0x260…280 09 42 89 11 29 88 82 1f 00 88 d4 08 21 88 ca d5 09 47 5c 22 88 d6 d7 d8 09 21 5c 22 2b 29 87 22   ┆ B  )       !    G\"     !\"+) "┆
0x280…2a0 20 5b 62 75 66 20 72 65 73 75 6c 74 20 63 75 72 73 6f 72 2d 69 6e 2d 65 63 68 6f 2d 61 72 65 61   ┆ [buf result cursor-in-echo-area┆
0x2a0…2c0 20 74 20 66 69 6c 65 20 65 78 65 63 2d 64 69 72 65 63 74 6f 72 79 20 62 65 67 20 67 65 6e 65 72   ┆ t file exec-directory beg gener┆
0x2c0…2e0 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 79 6f 77 22 20 6e 69 6c 20 6d 65 73 73 61 67   ┆ate-new-buffer " yow" nil messag┆
0x2e0…300 65 20 22 41 6d 20 49 20 43 4f 4e 53 49 4e 47 20 79 65 74 3f 2e 2e 2e 22 20 69 6e 73 65 72 74 2d   ┆e "Am I CONSING yet?..." insert-┆
0x300…320 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22   ┆file-contents expand-file-name "┆
0x320…340 79 6f 77 2e 6c 69 6e 65 73 22 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 00 22 20 73 6b   ┆yow.lines" search-forward " " sk┆
0x340…360 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 0a 0d 0c 22 20 62 75 66 66 65 72 2d   ┆ip-chars-forward "     " buffer-┆
0x360…380 73 75 62 73 74 72 69 6e 67 20 6b 69 6c 6c 2d 62 75 66 66 65 72 20 22 49 20 68 61 76 65 20 53 45   ┆substring kill-buffer "I have SE┆
0x380…3a0 45 4e 20 74 68 65 20 43 4f 4e 53 49 4e 47 21 21 22 20 61 70 70 6c 79 20 76 65 63 74 6f 72 20 6e   ┆EN the CONSING!!" apply vector n┆
0x3a0…3c0 72 65 76 65 72 73 65 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 73 79 63 68 6f 61 6e 61 6c   ┆reverse] 14))  (defun psychoanal┆
0x3c0…3e0 79 7a 65 2d 70 69 6e 68 65 61 64 20 6e 69 6c 20 22 5c 0a 5a 69 70 70 79 20 67 6f 65 73 20 74 6f   ┆yze-pinhead nil "\ Zippy goes to┆
0x3e0…400 20 74 68 65 20 61 6e 61 6c 79 73 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79   ┆ the analyst." (interactive) (by┆
0x400…420 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 08 3f 85 0e 00 c3 20 89 10 88 c4 c5 21 88 c6 c7 21 88   ┆te-code "      ?          !   ! ┆
0x420…440 c8 c9 21 88 ca 20 3f 85 35 00 cb cc 20 21 88 c8 c9 21 88 cd ce 21 88 cd ce 21 88 82 1b 00 87 22   ┆  !   ? 5    !   !   !   !     "┆
0x440…460 20 5b 79 6f 77 2d 76 65 63 74 6f 72 20 6e 69 6c 20 64 6f 63 74 6f 72 20 73 6e 61 72 66 2d 79 6f   ┆ [yow-vector nil doctor snarf-yo┆
0x460…480 77 73 20 6d 65 73 73 61 67 65 20 22 22 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22   ┆ws message "" switch-to-buffer "┆
0x480…4a0 2a 64 6f 63 74 6f 72 2a 22 20 73 69 74 2d 66 6f 72 20 30 20 69 6e 70 75 74 2d 70 65 6e 64 69 6e   ┆*doctor*" sit-for 0 input-pendin┆
0x4a0…4c0 67 2d 70 20 69 6e 73 65 72 74 2d 73 74 72 69 6e 67 20 79 6f 77 20 64 6f 63 74 6f 72 2d 72 65 74   ┆g-p insert-string yow doctor-ret┆
0x4c0…4d1 2d 6f 72 2d 72 65 61 64 20 31 5d 20 31 33 29 29 0a   ┆-or-read 1] 13)) ┆