|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ m ┃
Length: 1822 (0x71e)
Names: »man.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/man.elc«
0x000…020 0a 28 64 65 66 75 6e 20 6d 61 6e 75 61 6c 2d 65 6e 74 72 79 20 28 74 6f 70 69 63 20 26 6f 70 74 ┆ (defun manual-entry (topic &opt┆
0x020…040 69 6f 6e 61 6c 20 73 65 63 74 69 6f 6e 29 20 22 5c 0a 44 69 73 70 6c 61 79 20 74 68 65 20 55 6e ┆ional section) "\ Display the Un┆
0x040…060 69 78 20 6d 61 6e 75 61 6c 20 65 6e 74 72 79 20 66 6f 72 20 54 4f 50 49 43 2e 22 20 28 69 6e 74 ┆ix manual entry for TOPIC." (int┆
0x060…080 65 72 61 63 74 69 76 65 20 22 73 4d 61 6e 75 61 6c 20 65 6e 74 72 79 20 28 74 6f 70 69 63 29 3a ┆eractive "sManual entry (topic):┆
0x080…0a0 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 08 3f 85 0b 00 d1 d2 09 5c 22 85 21 00 09 ┆ ") (byte-code " ? \" ! ┆
0x0a0…0c0 d3 d4 21 d5 d4 21 4f 10 09 d3 d6 21 d5 d6 21 4f 89 11 88 d7 90 d8 0a 21 88 8a 0a 71 88 d9 da 09 ┆ ! !O ! !O ! q ┆
0x0c0…0e0 08 83 3a 00 db 08 dc 51 82 3b 00 dd 23 88 0c c6 c6 1e 07 1d 1b 08 85 5a 00 de df 0e 08 08 e0 d6 ┆ : Q ; # Z ┆
0x0e0…100 4f e1 09 e2 08 26 06 89 16 07 21 83 64 00 e3 0e 07 21 82 a0 00 0b 85 a0 00 0b 40 1e 09 df 0e 09 ┆O & ! d ! @ ┆
0x100…120 e1 09 e2 08 86 7b 00 0e 09 e4 c6 4f 25 1e 0a c6 1e 0b de 0e 0a 21 83 8f 00 e3 0e 0a 21 82 93 00 ┆ { O% ! ! ┆
0x120…140 c6 e5 e6 8f 88 64 62 2b 88 0b 41 89 13 88 82 64 00 2b 88 e7 20 e0 55 85 e6 00 d9 e8 08 83 b5 00 ┆ db+ A d + U ┆
0x140…160 08 e9 50 82 b6 00 dd 09 23 88 08 83 ca 00 ea 0e 0c c6 cd c6 08 09 26 06 82 d2 00 ea 0e 0c c6 cd ┆ P # & ┆
0x160…180 c6 09 25 88 e7 20 eb 57 85 e6 00 65 62 88 ec 20 88 ed ee d6 60 5c 22 21 88 d9 ef 09 5c 22 88 65 ┆ % W eb `\"! \" e┆
0x180…1a0 62 88 f0 f1 c6 cd 23 85 2d 01 60 d4 5a 66 1e 0e 67 1e 0f 0e 0e 0e 0f 55 83 0e 01 f2 f3 21 82 28 ┆b # - ` Zf g U ! (┆
0x1a0…1c0 01 0e 0e f4 55 83 1b 01 f2 f3 21 82 28 01 0e 0f f4 55 85 28 01 f5 60 53 60 54 5c 22 2a 88 82 ef ┆ U ! ( U ( `S`T\"* ┆
0x1c0…1e0 00 88 65 62 88 f6 f7 c6 cd 23 85 40 01 f8 dd 21 88 82 31 01 88 65 62 88 f6 0e 10 f9 3d 83 50 01 ┆ eb # @ ! 1 eb = P ┆
0x1e0…200 fa 82 5c 5c 01 0e 10 fb 3d 83 5b 01 fc 82 5c 5c 01 fd c6 cd 23 85 69 01 f8 dd 21 88 82 44 01 88 ┆ \\ = [ \\ # i ! D ┆
0x200…220 65 62 88 f6 fe c6 cd 23 85 7c 01 f8 ff 21 88 82 6d 01 88 65 62 88 81 40 00 81 41 00 21 88 f5 65 ┆eb # | ! m eb @ A ! e┆
0x220…240 60 5c 22 88 81 42 00 c6 21 88 d9 dd 21 29 91 87 22 20 5b 73 65 63 74 69 6f 6e 20 74 6f 70 69 63 ┆`\" B ! !) " [section topic┆
0x240…260 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 64 69 72 6c 69 73 74 20 6d 61 6e 75 61 6c 2d ┆ standard-output dirlist manual-┆
0x260…280 66 6f 72 6d 61 74 74 65 64 2d 64 69 72 6c 69 73 74 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 ┆formatted-dirlist case-fold-sear┆
0x280…2a0 63 68 20 6e 69 6c 20 6e 61 6d 65 20 6d 61 6e 75 61 6c 2d 66 6f 72 6d 61 74 74 65 64 2d 64 69 72 ┆ch nil name manual-formatted-dir┆
0x2a0…2c0 2d 70 72 65 66 69 78 20 64 69 72 20 6e 61 6d 65 31 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 6d 61 ┆-prefix dir name1 completions ma┆
0x2c0…2e0 6e 75 61 6c 2d 70 72 6f 67 72 61 6d 20 74 20 70 72 65 63 65 64 69 6e 67 20 66 6f 6c 6c 6f 77 69 ┆nual-program t preceding followi┆
0x2e0…300 6e 67 20 73 79 73 74 65 6d 2d 74 79 70 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 ┆ng system-type string-match "\\`┆
0x300…320 5b 20 09 5d 2a 5c 5c 28 5b 5e 28 20 09 5d 2b 5c 5c 29 5b 20 09 5d 2a 28 5c 5c 28 2e 2b 5c 5c 29 ┆[ ]*\\([^( ]+\\)[ ]*(\\(.+\\)┆
0x320…340 29 5b 20 09 5d 2a 5c 5c 27 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 32 20 6d 61 74 ┆)[ ]*\\'" match-beginning 2 mat┆
0x340…360 63 68 2d 65 6e 64 20 31 20 22 2a 4d 61 6e 75 61 6c 20 45 6e 74 72 79 2a 22 20 62 75 66 66 65 72 ┆ch-end 1 "*Manual Entry*" buffer┆
0x360…380 2d 66 6c 75 73 68 2d 75 6e 64 6f 20 6d 65 73 73 61 67 65 20 22 4c 6f 6f 6b 69 6e 67 20 66 6f 72 ┆-flush-undo message "Looking for┆
0x380…3a0 20 66 6f 72 6d 61 74 74 65 64 20 65 6e 74 72 79 20 66 6f 72 20 25 73 25 73 2e 2e 2e 22 20 22 28 ┆ formatted entry for %s%s..." "(┆
0x3a0…3c0 22 20 22 29 22 20 22 22 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 6f 6e 63 61 74 20 30 20 ┆" ")" "" file-exists-p concat 0 ┆
0x3c0…3e0 22 2f 22 20 22 2e 22 20 69 6e 73 65 72 74 2d 6d 61 6e 2d 66 69 6c 65 20 2d 31 20 28 62 79 74 65 ┆"/" "." insert-man-file -1 (byte┆
0x3e0…400 2d 63 6f 64 65 20 22 c4 09 c5 0a 86 08 00 c6 51 0b 5c 22 89 10 88 08 85 5c 22 00 c7 0b c8 08 40 ┆-code " Q \" \" @┆
0x400…420 51 21 88 08 41 89 10 88 82 0e 00 87 22 20 5b 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 74 6f 70 69 63 ┆Q! A " [completions topic┆
0x420…440 20 73 65 63 74 69 6f 6e 20 64 69 72 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 6c 6c 2d 63 6f 6d 70 6c ┆ section dir file-name-all-compl┆
0x440…460 65 74 69 6f 6e 73 20 22 2e 22 20 22 22 20 69 6e 73 65 72 74 2d 6d 61 6e 2d 66 69 6c 65 20 22 2f ┆etions "." "" insert-man-file "/┆
0x460…480 22 5d 20 36 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 ┆"] 6) ((file-error (byte-code " ┆
0x480…4a0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 62 75 66 66 65 72 2d 73 69 7a 65 20 22 4e 6f 20 66 6f ┆ " [nil] 1))) buffer-size "No fo┆
0x4a0…4c0 72 6d 61 74 74 65 64 20 65 6e 74 72 79 2c 20 69 6e 76 6f 6b 69 6e 67 20 6d 61 6e 20 25 73 25 73 ┆rmatted entry, invoking man %s%s┆
0x4c0…4e0 2e 2e 2e 22 20 22 20 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 38 30 20 65 6e 64 2d 6f 66 2d ┆..." " " call-process 80 end-of-┆
0x4e0…500 6c 69 6e 65 20 65 72 72 6f 72 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 22 43 6c 65 ┆line error buffer-substring "Cle┆
0x500…520 61 6e 69 6e 67 20 6d 61 6e 75 61 6c 20 65 6e 74 72 79 20 66 6f 72 20 25 73 2e 2e 2e 22 20 73 65 ┆aning manual entry for %s..." se┆
0x520…540 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 08 22 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 32 20 ┆arch-forward " " delete-char -2 ┆
0x540…560 39 35 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 ┆95 delete-region re-search-forwa┆
0x560…580 72 64 20 22 5e 20 2a 5c 5c 28 5b 41 2d 5a 61 2d 7a 5d 5b 2d 5f 41 2d 5a 61 2d 7a 30 2d 39 5d 2a ┆rd "^ *\\([A-Za-z][-_A-Za-z0-9]*┆
0x580…5a0 28 5b 30 2d 39 41 2d 5a 5d 2b 29 5c 5c 29 2e 2a 5c 5c 31 24 22 20 72 65 70 6c 61 63 65 2d 6d 61 ┆([0-9A-Z]+)\\).*\\1$" replace-ma┆
0x5a0…5c0 74 63 68 20 68 70 75 78 20 22 5e 20 2a 48 65 77 6c 65 74 74 2d 50 61 63 6b 61 72 64 2e 2a 28 70 ┆tch hpux "^ *Hewlett-Packard.*(p┆
0x5c0…5e0 72 69 6e 74 65 64 20 5b 30 2d 39 2f 5d 2a 29 24 22 20 75 73 67 2d 75 6e 69 78 2d 76 20 22 5e 20 ┆rinted [0-9/]*)$" usg-unix-v "^ ┆
0x5e0…600 2a 50 61 67 65 20 5b 30 2d 39 5d 2a 2e 2a 28 70 72 69 6e 74 65 64 20 5b 30 2d 39 2f 5d 2a 29 24 ┆*Page [0-9]*.*(printed [0-9/]*)$┆
0x600…620 22 20 22 5e 5c 5c 28 50 72 69 6e 74 65 64 5c 5c 7c 53 75 6e 20 52 65 6c 65 61 73 65 5c 5c 29 20 ┆" "^\\(Printed\\|Sun Release\\) ┆
0x620…640 5b 30 2d 39 5d 2e 2a 5b 30 2d 39 5d 24 22 20 22 0a 0a 0a 0a 2a 22 20 22 0a 0a 22 20 73 6b 69 70 ┆[0-9].*[0-9]$" " *" " " skip┆
0x640…660 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 0a 22 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f ┆-chars-forward " " set-buffer-mo┆
0x660…680 64 69 66 69 65 64 2d 70 5d 20 33 38 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 6d 61 ┆dified-p] 38)) (defun insert-ma┆
0x680…6a0 6e 2d 66 69 6c 65 20 28 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 c4 c1 4f c5 ┆n-file (name) (byte-code " O ┆
0x6a0…6c0 5c 22 83 14 00 c6 c7 c1 c2 c1 08 25 82 2b 00 c3 08 c4 c1 4f c8 5c 22 83 28 00 c6 c9 c1 c2 c1 08 ┆\" % + O \" ( ┆
0x6c0…6e0 25 82 2b 00 ca 08 21 87 22 20 5b 6e 61 6d 65 20 6e 69 6c 20 74 20 65 71 75 61 6c 20 2d 32 20 22 ┆% + ! " [name nil t equal -2 "┆
0x6e0…700 2e 5a 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 7a 63 61 74 22 20 22 2e 7a 22 20 22 70 63 ┆.Z" call-process "zcat" ".z" "pc┆
0x700…71e 61 74 22 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 5d 20 39 29 29 0a ┆at" insert-file-contents] 9)) ┆