DataMuseum.dk

top - metrics - download

    Length: 1517 (0x5ed)
    Names: »lpr.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/lpr.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 76 61 72 20 6c 70 72 2d 63 6f 6d 6d 61 6e 64 20 28 69 66 20 28 65 71 20 73 79 73   ┆ (defvar lpr-command (if (eq sys┆
0x020…040 74 65 6d 2d 74 79 70 65 20 28 71 75 6f 74 65 20 75 73 67 2d 75 6e 69 78 2d 76 29 29 20 22 6c 70   ┆tem-type (quote usg-unix-v)) "lp┆
0x040…060 22 20 22 6c 70 72 22 29 20 22 5c 0a 53 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 70 72   ┆" "lpr") "\ Shell command for pr┆
0x060…080 69 6e 74 69 6e 67 20 61 20 66 69 6c 65 22 29 0a 0a 28 64 65 66 75 6e 20 6c 70 72 2d 62 75 66 66   ┆inting a file")  (defun lpr-buff┆
0x080…0a0 65 72 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20   ┆er nil "\ Print buffer contents ┆
0x0a0…0c0 61 73 20 77 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   ┆as with Unix command `lpr'. `lpr┆
0x0c0…0e0 2d 73 77 69 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   ┆-switches' is a list of extra sw┆
0x0e0…100 69 74 63 68 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   ┆itches (strings) to pass to lpr.┆
0x100…120 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 22 c1 88 c2 65   ┆" (interactive) (byte-code "   e┆
0x120…140 64 08 23 87 22 20 5b 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65   ┆d # " [lpr-switches nil print-re┆
0x140…160 67 69 6f 6e 2d 31 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 62 75 66 66 65 72   ┆gion-1] 4))  (defun print-buffer┆
0x160…180 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61 73   ┆ nil "\ Print buffer contents as┆
0x180…1a0 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60 6c 70   ┆ with Unix command `lpr -p'. `lp┆
0x1a0…1c0 72 2d 73 77 69 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   ┆r-switches' is a list of extra s┆
0x1c0…1e0 77 69 74 63 68 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   ┆witches (strings) to pass to lpr┆
0x1e0…200 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 22 c1 88 c2   ┆." (interactive) (byte-code "   ┆
0x200…220 65 64 c3 08 42 23 87 22 20 5b 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74   ┆ed  B# " [lpr-switches nil print┆
0x220…240 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 6c 70 72 2d   ┆-region-1 "-p"] 5))  (defun lpr-┆
0x240…260 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 72 65 67 69   ┆region (start end) "\ Print regi┆
0x260…280 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 6d 61 6e 64   ┆on contents as with Unix command┆
0x280…2a0 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 6c 69 73 74   ┆ `lpr'. `lpr-switches' is a list┆
0x2a0…2c0 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 20 74 6f 20   ┆ of extra switches (strings) to ┆
0x2c0…2e0 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 20 22 72 22 29 20   ┆pass to lpr." (interactive "r") ┆
0x2e0…300 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 87 22 20 5b 73 74 61 72 74 20 65 6e 64   ┆(byte-code "      # " [start end┆
0x300…320 20 6c 70 72 2d 73 77 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   ┆ lpr-switches nil print-region-1┆
0x320…340 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 20 28 73 74 61 72   ┆] 4))  (defun print-region (star┆
0x340…360 74 20 65 6e 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   ┆t end) "\ Print region contents ┆
0x360…380 61 73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60   ┆as with Unix command `lpr -p'. `┆
0x380…3a0 6c 70 72 2d 73 77 69 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   ┆lpr-switches' is a list of extra┆
0x3a0…3c0 20 73 77 69 74 63 68 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   ┆ switches (strings) to pass to l┆
0x3c0…3e0 70 72 2e 22 20 28 69 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   ┆pr." (interactive "r") (byte-cod┆
0x3e0…400 65 20 22 c3 88 c4 08 09 c5 0a 42 23 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6c 70 72 2d 73 77   ┆e "       B# " [start end lpr-sw┆
0x400…420 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"] ┆
0x420…440 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 20 28 73 74 61 72   ┆5))  (defun print-region-1 (star┆
0x440…460 74 20 65 6e 64 20 73 77 69 74 63 68 65 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca 20 cb 50   ┆t end switches) (byte-code "   P┆
0x460…480 0a 19 18 8a cc cd 21 88 ce 0a cf 5c 22 85 35 00 70 1b d0 d1 21 71 88 d2 20 88 d3 20 88 d4 0b 0c   ┆      !    \" 5 p   !q          ┆
0x480…4a0 0d 23 88 09 89 12 88 d5 65 64 5c 22 88 65 14 64 89 15 29 88 d6 d7 d8 d9 0c 0d 0e 06 c7 c7 c7 26   ┆ #      ed\" e d  )            &┆
0x4a0…4c0 06 d8 0e 08 da 3d 85 50 00 db 08 dc 08 46 0e 09 5c 22 5c 22 5c 22 88 cc dd 21 29 2a 87 22 20 5b   ┆     = P     F  \"\"\"   !)* " [┆
0x4c0…4e0 6e 61 6d 65 20 77 69 64 74 68 20 74 61 62 2d 77 69 64 74 68 20 6f 6c 64 62 75 66 20 73 74 61 72   ┆name width tab-width oldbuf star┆
0x4e0…500 74 20 65 6e 64 20 6c 70 72 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 73 79 73 74 65 6d 2d 74 79 70   ┆t end lpr-command nil system-typ┆
0x500…520 65 20 73 77 69 74 63 68 65 73 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 20 45 6d 61 63 73 20 62   ┆e switches buffer-name " Emacs b┆
0x520…540 75 66 66 65 72 22 20 6d 65 73 73 61 67 65 20 22 53 70 6f 6f 6c 69 6e 67 2e 2e 2e 22 20 2f 3d 20   ┆uffer" message "Spooling..." /= ┆
0x540…560 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 6f 6c 20 74 65 6d   ┆8 get-buffer-create " *spool tem┆
0x560…580 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 65 72 74 2d 62 75   ┆p*" widen erase-buffer insert-bu┆
0x580…5a0 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 75 6e 74 61 62 69 66 79 20 61 70 70 6c 79 20 63 61   ┆ffer-substring untabify apply ca┆
0x5a0…5c0 6c 6c 2d 70 72 6f 63 65 73 73 2d 72 65 67 69 6f 6e 20 6e 63 6f 6e 63 20 6c 69 73 74 20 62 65 72   ┆ll-process-region nconc list ber┆
0x5c0…5e0 6b 65 6c 65 79 2d 75 6e 69 78 20 22 2d 4a 22 20 22 2d 54 22 20 22 53 70 6f 6f 6c 69 6e 67 2e 2e   ┆keley-unix "-J" "-T" "Spooling..┆
0x5e0…5ed 2e 64 6f 6e 65 22 5d 20 31 38 29 29 0a   ┆.done"] 18)) ┆