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

⟦23c246390⟧

    Length: 1364 (0x554)
    Names: »lpr.elc«

Derivation

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

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 6c 70 72 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20   ┆ (defun lpr-buffer nil "\ Print ┆
0x020…040 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d   ┆buffer contents as with Unix com┆
0x040…060 6d 61 6e 64 20 60 6c 70 72 27 2e 0a 60 6c 70 72 2d 73 77 69 74 63 68 65 73 27 20 69 73 20 61 20   ┆mand `lpr'. `lpr-switches' is a ┆
0x060…080 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 73 29   ┆list of extra switches (strings)┆
0x080…0a0 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20   ┆ to pass to lpr." (interactive) ┆
0x0a0…0c0 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 65 64 08 23 87 22 20 5b 6c 70 72 2d 73 77 69 74 63   ┆(byte-code "   ed # " [lpr-switc┆
0x0c0…0e0 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 5d 20 34 29 29 0a 0a 28 64 65   ┆hes nil print-region-1] 4))  (de┆
0x0e0…100 66 75 6e 20 70 72 69 6e 74 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 62 75   ┆fun print-buffer nil "\ Print bu┆
0x100…120 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61   ┆ffer contents as with Unix comma┆
0x120…140 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60 6c 70 72 2d 73 77 69 74 63 68 65 73 27 20 69 73 20 61   ┆nd `lpr -p'. `lpr-switches' is a┆
0x140…160 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 73   ┆ list of extra switches (strings┆
0x160…180 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29   ┆) to pass to lpr." (interactive)┆
0x180…1a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 65 64 c3 08 42 23 87 22 20 5b 6c 70 72 2d 73 77   ┆ (byte-code "   ed  B# " [lpr-sw┆
0x1a0…1c0 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 20 22 2d 70 22 5d 20   ┆itches nil print-region-1 "-p"] ┆
0x1c0…1e0 35 29 29 0a 0a 28 64 65 66 75 6e 20 6c 70 72 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e   ┆5))  (defun lpr-region (start en┆
0x1e0…200 64 29 20 22 5c 0a 50 72 69 6e 74 20 72 65 67 69 6f 6e 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 77   ┆d) "\ Print region contents as w┆
0x200…220 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 27 2e 0a 60 6c 70 72 2d 73 77 69   ┆ith Unix command `lpr'. `lpr-swi┆
0x220…240 74 63 68 65 73 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77 69 74 63 68   ┆tches' is a list of extra switch┆
0x240…260 65 73 20 28 73 74 72 69 6e 67 73 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e 22 20 28 69   ┆es (strings) to pass to lpr." (i┆
0x260…280 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08   ┆nteractive "r") (byte-code "    ┆
0x280…2a0 09 0a 23 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69   ┆  # " [start end lpr-switches ni┆
0x2a0…2c0 6c 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 72   ┆l print-region-1] 4))  (defun pr┆
0x2c0…2e0 69 6e 74 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 50 72 69 6e 74 20   ┆int-region (start end) "\ Print ┆
0x2e0…300 72 65 67 69 6f 6e 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d   ┆region contents as with Unix com┆
0x300…320 6d 61 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60 6c 70 72 2d 73 77 69 74 63 68 65 73 27 20 69 73   ┆mand `lpr -p'. `lpr-switches' is┆
0x320…340 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e   ┆ a list of extra switches (strin┆
0x340…360 67 73 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76   ┆gs) to pass to lpr." (interactiv┆
0x360…380 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 c5 0a 42 23 87 22 20 5b   ┆e "r") (byte-code "       B# " [┆
0x380…3a0 73 74 61 72 74 20 65 6e 64 20 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74   ┆start end lpr-switches nil print┆
0x3a0…3c0 2d 72 65 67 69 6f 6e 2d 31 20 22 2d 70 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e   ┆-region-1 "-p"] 5))  (defun prin┆
0x3c0…3e0 74 2d 72 65 67 69 6f 6e 2d 31 20 28 73 74 61 72 74 20 65 6e 64 20 73 77 69 74 63 68 65 73 29 20   ┆t-region-1 (start end switches) ┆
0x3e0…400 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c7 c8 21 88 c9 08 ca 5c 22 83 2e 00 70 19 cb cc 21 71 88   ┆(byte-code "   !    \" . p   !q ┆
0x400…420 cd 20 88 ce 20 88 cf 09 21 88 d0 0a 0b d1 c4 c4 c5 d2 d3 08 5c 22 26 07 29 82 2f 00 c5 88 d4 d0   ┆        !           \"& ) /     ┆
0x420…440 d5 d6 0a 0b d7 c5 c5 c5 d8 d9 20 da 50 db d9 20 da 50 26 0a 0e 06 5c 22 5c 22 88 c7 dc 21 29 87   ┆            P    P&   \"\"   !) ┆
0x440…460 22 20 5b 74 61 62 2d 77 69 64 74 68 20 6f 6c 64 62 75 66 20 73 74 61 72 74 20 65 6e 64 20 74 20   ┆" [tab-width oldbuf start end t ┆
0x460…480 6e 69 6c 20 73 77 69 74 63 68 65 73 20 6d 65 73 73 61 67 65 20 22 53 70 6f 6f 6c 69 6e 67 2e 2e   ┆nil switches message "Spooling..┆
0x480…4a0 2e 22 20 2f 3d 20 38 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 2a 73 70 6f   ┆." /= 8 get-buffer-create " *spo┆
0x4a0…4c0 6f 6c 20 74 65 6d 70 2a 22 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73   ┆ol temp*" widen erase-buffer ins┆
0x4c0…4e0 65 72 74 2d 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 63 61 6c 6c 2d 70 72 6f 63 65 73   ┆ert-buffer-substring call-proces┆
0x4e0…500 73 2d 72 65 67 69 6f 6e 20 22 65 78 70 61 6e 64 22 20 66 6f 72 6d 61 74 20 22 2d 25 64 22 20 61   ┆s-region "expand" format "-%d" a┆
0x500…520 70 70 6c 79 20 6e 63 6f 6e 63 20 6c 69 73 74 20 22 6c 70 72 22 20 22 2d 4a 22 20 62 75 66 66 65   ┆pply nconc list "lpr" "-J" buffe┆
0x520…540 72 2d 6e 61 6d 65 20 22 20 45 6d 61 63 73 20 62 75 66 66 65 72 22 20 22 2d 54 22 20 22 53 70 6f   ┆r-name " Emacs buffer" "-T" "Spo┆
0x540…554 6f 6c 69 6e 67 2e 2e 2e 64 6f 6e 65 22 5d 20 32 35 29 29 0a   ┆oling...done"] 25)) ┆