|
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: 4886 (0x1316)
Names: »man.el«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/man.el«
0x0000…0020 3b 3b 20 52 65 61 64 20 69 6e 20 61 6e 64 20 64 69 73 70 6c 61 79 20 70 61 72 74 73 20 6f 66 20 ┆;; Read in and display parts of ┆
0x0020…0040 55 6e 69 78 20 6d 61 6e 75 61 6c 2e 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39 ┆Unix manual. ;; Copyright (C) 19┆
0x0040…0060 38 35 2c 20 31 39 38 36 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f ┆85, 1986 Free Software Foundatio┆
0x0060…0080 6e 2c 20 49 6e 63 2e 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 72 74 20 6f 66 ┆n, Inc. ;; This file is part of┆
0x0080…00a0 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 20 69 73 20 64 69 73 ┆ GNU Emacs. ;; GNU Emacs is dis┆
0x00a0…00c0 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c ┆tributed in the hope that it wil┆
0x00c0…00e0 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 ┆l be useful, ;; but WITHOUT ANY ┆
0x00e0…0100 57 41 52 52 41 4e 54 59 2e 20 20 4e 6f 20 61 75 74 68 6f 72 20 6f 72 20 64 69 73 74 72 69 62 75 ┆WARRANTY. No author or distribu┆
0x0100…0120 74 6f 72 0a 3b 3b 20 61 63 63 65 70 74 73 20 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 79 20 74 6f ┆tor ;; accepts responsibility to┆
0x0120…0140 20 61 6e 79 6f 6e 65 20 66 6f 72 20 74 68 65 20 63 6f 6e 73 65 71 75 65 6e 63 65 73 20 6f 66 20 ┆ anyone for the consequences of ┆
0x0140…0160 75 73 69 6e 67 20 69 74 0a 3b 3b 20 6f 72 20 66 6f 72 20 77 68 65 74 68 65 72 20 69 74 20 73 65 ┆using it ;; or for whether it se┆
0x0160…0180 72 76 65 73 20 61 6e 79 20 70 61 72 74 69 63 75 6c 61 72 20 70 75 72 70 6f 73 65 20 6f 72 20 77 ┆rves any particular purpose or w┆
0x0180…01a0 6f 72 6b 73 20 61 74 20 61 6c 6c 2c 0a 3b 3b 20 75 6e 6c 65 73 73 20 68 65 20 73 61 79 73 20 73 ┆orks at all, ;; unless he says s┆
0x01a0…01c0 6f 20 69 6e 20 77 72 69 74 69 6e 67 2e 20 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 47 4e 55 20 ┆o in writing. Refer to the GNU ┆
0x01c0…01e0 45 6d 61 63 73 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 0a 3b 3b 20 4c 69 63 65 6e 73 65 20 ┆Emacs General Public ;; License ┆
0x01e0…0200 66 6f 72 20 66 75 6c 6c 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 45 76 65 72 79 6f 6e 65 20 69 ┆for full details. ;; Everyone i┆
0x0200…0220 73 20 67 72 61 6e 74 65 64 20 70 65 72 6d 69 73 73 69 6f 6e 20 74 6f 20 63 6f 70 79 2c 20 6d 6f ┆s granted permission to copy, mo┆
0x0220…0240 64 69 66 79 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 65 0a 3b 3b 20 47 4e 55 20 45 6d 61 ┆dify and redistribute ;; GNU Ema┆
0x0240…0260 63 73 2c 20 62 75 74 20 6f 6e 6c 79 20 75 6e 64 65 72 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e ┆cs, but only under the condition┆
0x0260…0280 73 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 0a 3b 3b 20 47 4e 55 20 45 6d 61 63 73 20 ┆s described in the ;; GNU Emacs ┆
0x0280…02a0 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 2e 20 20 20 41 20 63 6f 70 79 ┆General Public License. A copy┆
0x02a0…02c0 20 6f 66 20 74 68 69 73 20 6c 69 63 65 6e 73 65 20 69 73 0a 3b 3b 20 73 75 70 70 6f 73 65 64 20 ┆ of this license is ;; supposed ┆
0x02c0…02e0 74 6f 20 68 61 76 65 20 62 65 65 6e 20 67 69 76 65 6e 20 74 6f 20 79 6f 75 20 61 6c 6f 6e 67 20 ┆to have been given to you along ┆
0x02e0…0300 77 69 74 68 20 47 4e 55 20 45 6d 61 63 73 20 73 6f 20 79 6f 75 0a 3b 3b 20 63 61 6e 20 6b 6e 6f ┆with GNU Emacs so you ;; can kno┆
0x0300…0320 77 20 79 6f 75 72 20 72 69 67 68 74 73 20 61 6e 64 20 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 69 ┆w your rights and responsibiliti┆
0x0320…0340 65 73 2e 20 20 49 74 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 20 61 0a 3b 3b 20 66 69 6c 65 20 6e ┆es. It should be in a ;; file n┆
0x0340…0360 61 6d 65 64 20 43 4f 50 59 49 4e 47 2e 20 20 41 6d 6f 6e 67 20 6f 74 68 65 72 20 74 68 69 6e 67 ┆amed COPYING. Among other thing┆
0x0360…0380 73 2c 20 74 68 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 0a 3b 3b 20 61 6e 64 20 74 ┆s, the copyright notice ;; and t┆
0x0380…03a0 68 69 73 20 6e 6f 74 69 63 65 20 6d 75 73 74 20 62 65 20 70 72 65 73 65 72 76 65 64 20 6f 6e 20 ┆his notice must be preserved on ┆
0x03a0…03c0 61 6c 6c 20 63 6f 70 69 65 73 2e 0a 0a 28 64 65 66 75 6e 20 6d 61 6e 75 61 6c 2d 65 6e 74 72 79 ┆all copies. (defun manual-entry┆
0x03c0…03e0 20 28 74 6f 70 69 63 20 26 6f 70 74 69 6f 6e 61 6c 20 73 65 63 74 69 6f 6e 29 0a 20 20 22 44 69 ┆ (topic &optional section) "Di┆
0x03e0…0400 73 70 6c 61 79 20 74 68 65 20 55 6e 69 78 20 6d 61 6e 75 61 6c 20 65 6e 74 72 79 20 66 6f 72 20 ┆splay the Unix manual entry for ┆
0x0400…0420 54 4f 50 49 43 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 4d 61 6e 75 61 6c 20 ┆TOPIC." (interactive "sManual ┆
0x0420…0440 65 6e 74 72 79 20 28 74 6f 70 69 63 29 3a 20 22 29 0a 20 20 28 69 66 20 28 61 6e 64 20 28 6e 75 ┆entry (topic): ") (if (and (nu┆
0x0440…0460 6c 6c 20 73 65 63 74 69 6f 6e 29 0a 09 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c ┆ll section) (string-match "\┆
0x0460…0480 5c 60 5b 20 5c 74 5d 2a 5c 5c 28 5b 5e 28 20 5c 74 5d 2b 5c 5c 29 5b 20 5c 74 5d 2a 28 5c 5c 28 ┆\`[ \t]*\\([^( \t]+\\)[ \t]*(\\(┆
0x0480…04a0 2e 2b 5c 5c 29 29 5b 20 5c 74 5d 2a 5c 5c 27 22 20 74 6f 70 69 63 29 29 0a 20 20 20 20 20 20 28 ┆.+\\))[ \t]*\\'" topic)) (┆
0x04a0…04c0 73 65 74 71 20 73 65 63 74 69 6f 6e 20 28 73 75 62 73 74 72 69 6e 67 20 74 6f 70 69 63 20 28 6d ┆setq section (substring topic (m┆
0x04c0…04e0 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 32 29 0a 09 09 09 09 20 20 20 20 20 28 6d 61 74 63 ┆atch-beginning 2) (matc┆
0x04e0…0500 68 2d 65 6e 64 20 32 29 29 0a 09 20 20 20 20 74 6f 70 69 63 20 28 73 75 62 73 74 72 69 6e 67 20 ┆h-end 2)) topic (substring ┆
0x0500…0520 74 6f 70 69 63 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 0a 09 09 09 09 20 20 ┆topic (match-beginning 1) ┆
0x0520…0540 20 28 6d 61 74 63 68 2d 65 6e 64 20 31 29 29 29 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 ┆ (match-end 1)))) (with-output┆
0x0540…0560 2d 74 6f 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 22 2a 4d 61 6e 75 61 6c 20 45 6e 74 72 79 2a 22 ┆-to-temp-buffer "*Manual Entry*"┆
0x0560…0580 0a 20 20 20 20 28 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f 20 73 74 61 6e 64 61 72 64 ┆ (buffer-flush-undo standard┆
0x0580…05a0 2d 6f 75 74 70 75 74 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 ┆-output) (save-excursion ┆
0x05a0…05c0 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 29 0a ┆ (set-buffer standard-output) ┆
0x05c0…05e0 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4c 6f 6f 6b 69 6e 67 20 66 6f 72 20 66 6f 72 6d ┆ (message "Looking for form┆
0x05e0…0600 61 74 74 65 64 20 65 6e 74 72 79 20 66 6f 72 20 25 73 25 73 2e 2e 2e 22 0a 09 20 20 20 20 20 20 ┆atted entry for %s%s..." ┆
0x0600…0620 20 74 6f 70 69 63 20 28 69 66 20 73 65 63 74 69 6f 6e 20 28 63 6f 6e 63 61 74 20 22 28 22 20 73 ┆ topic (if section (concat "(" s┆
0x0620…0640 65 63 74 69 6f 6e 20 22 29 22 29 20 22 22 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 ┆ection ")") "")) (let ((di┆
0x0640…0660 72 6c 69 73 74 20 6d 61 6e 75 61 6c 2d 66 6f 72 6d 61 74 74 65 64 2d 64 69 72 6c 69 73 74 29 0a ┆rlist manual-formatted-dirlist) ┆
0x0660…0680 09 20 20 20 20 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 29 0a 09 20 20 20 ┆ (case-fold-search nil) ┆
0x0680…06a0 20 6e 61 6d 65 29 0a 09 28 69 66 20 28 61 6e 64 20 73 65 63 74 69 6f 6e 20 28 66 69 6c 65 2d 65 ┆ name) (if (and section (file-e┆
0x06a0…06c0 78 69 73 74 73 2d 70 0a 09 09 09 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 63 6f 6e 63 61 74 ┆xists-p (setq name (concat┆
0x06c0…06e0 20 6d 61 6e 75 61 6c 2d 66 6f 72 6d 61 74 74 65 64 2d 64 69 72 2d 70 72 65 66 69 78 0a 09 09 09 ┆ manual-formatted-dir-prefix ┆
0x06e0…0700 09 09 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 65 63 74 69 6f 6e 20 30 20 31 29 0a ┆ (substring section 0 1) ┆
0x0700…0720 09 09 09 09 09 20 20 20 20 20 20 22 2f 22 0a 09 09 09 09 09 20 20 20 20 20 20 74 6f 70 69 63 20 ┆ "/" topic ┆
0x0720…0740 22 2e 22 20 73 65 63 74 69 6f 6e 29 29 29 29 0a 09 20 20 20 20 28 69 6e 73 65 72 74 2d 6d 61 6e ┆"." section)))) (insert-man┆
0x0740…0760 2d 66 69 6c 65 20 6e 61 6d 65 29 0a 09 20 20 28 77 68 69 6c 65 20 64 69 72 6c 69 73 74 0a 09 20 ┆-file name) (while dirlist ┆
0x0760…0780 20 20 20 28 6c 65 74 2a 20 28 28 64 69 72 20 28 63 61 72 20 64 69 72 6c 69 73 74 29 29 0a 09 09 ┆ (let* ((dir (car dirlist)) ┆
0x0780…07a0 20 20 20 28 6e 61 6d 65 31 20 28 63 6f 6e 63 61 74 20 64 69 72 20 22 2f 22 0a 09 09 09 09 20 20 ┆ (name1 (concat dir "/" ┆
0x07a0…07c0 74 6f 70 69 63 20 22 2e 22 20 28 6f 72 20 73 65 63 74 69 6f 6e 20 28 73 75 62 73 74 72 69 6e 67 ┆topic "." (or section (substring┆
0x07c0…07e0 20 64 69 72 20 2d 31 29 29 29 29 0a 09 09 20 20 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 09 20 ┆ dir -1)))) completions) ┆
0x07e0…0800 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 6e 61 6d 65 31 29 0a 09 ┆ (if (file-exists-p name1) ┆
0x0800…0820 09 20 20 28 69 6e 73 65 72 74 2d 6d 61 6e 2d 66 69 6c 65 20 6e 61 6d 65 31 29 0a 09 09 28 63 6f ┆ (insert-man-file name1) (co┆
0x0820…0840 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 28 29 0a 09 09 20 20 20 20 28 70 72 6f 67 6e 0a 09 09 20 ┆ndition-case () (progn ┆
0x0840…0860 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 66 69 6c 65 2d 6e 61 6d ┆ (setq completions (file-nam┆
0x0860…0880 65 2d 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 0a 09 09 09 09 09 20 28 63 6f 6e 63 61 74 20 ┆e-all-completions (concat ┆
0x0880…08a0 74 6f 70 69 63 20 22 2e 22 20 28 6f 72 20 73 65 63 74 69 6f 6e 20 22 22 29 29 0a 09 09 09 09 09 ┆topic "." (or section "")) ┆
0x08a0…08c0 20 64 69 72 29 29 0a 09 09 20 20 20 20 20 20 28 77 68 69 6c 65 20 63 6f 6d 70 6c 65 74 69 6f 6e ┆ dir)) (while completion┆
0x08c0…08e0 73 0a 09 09 09 28 69 6e 73 65 72 74 2d 6d 61 6e 2d 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 64 69 ┆s (insert-man-file (concat di┆
0x08e0…0900 72 20 22 2f 22 20 28 63 61 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 29 29 0a 09 09 09 28 73 65 ┆r "/" (car completions))) (se┆
0x0900…0920 74 71 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 28 63 64 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 ┆tq completions (cdr completions)┆
0x0920…0940 29 29 29 0a 09 09 20 20 28 66 69 6c 65 2d 65 72 72 6f 72 20 6e 69 6c 29 29 29 0a 09 20 20 20 20 ┆))) (file-error nil))) ┆
0x0940…0960 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 09 20 20 20 20 ┆ (goto-char (point-max))) ┆
0x0960…0980 28 73 65 74 71 20 64 69 72 6c 69 73 74 20 28 63 64 72 20 64 69 72 6c 69 73 74 29 29 29 29 29 0a ┆(setq dirlist (cdr dirlist))))) ┆
0x0980…09a0 0a 20 20 20 20 20 20 28 69 66 20 28 3d 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 30 29 0a 09 ┆ (if (= (buffer-size) 0) ┆
0x09a0…09c0 20 20 28 70 72 6f 67 6e 0a 09 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 66 6f 72 6d 61 ┆ (progn (message "No forma┆
0x09c0…09e0 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 2e 2e 2e ┆tted entry, invoking man %s%s...┆
0x09e0…0a00 22 0a 09 09 20 20 20 20 20 28 69 66 20 73 65 63 74 69 6f 6e 20 28 63 6f 6e 63 61 74 20 73 65 63 ┆" (if section (concat sec┆
0x0a00…0a20 74 69 6f 6e 20 22 20 22 29 20 22 22 29 20 74 6f 70 69 63 29 0a 09 20 20 20 20 28 69 66 20 73 65 ┆tion " ") "") topic) (if se┆
0x0a20…0a40 63 74 69 6f 6e 0a 09 09 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 6d 61 6e 75 61 6c 2d 70 72 6f ┆ction (call-process manual-pro┆
0x0a40…0a60 67 72 61 6d 20 6e 69 6c 20 74 20 6e 69 6c 20 73 65 63 74 69 6f 6e 20 74 6f 70 69 63 29 0a 09 20 ┆gram nil t nil section topic) ┆
0x0a60…0a80 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 6d 61 6e 75 61 6c 2d 70 72 6f 67 ┆ (call-process manual-prog┆
0x0a80…0aa0 72 61 6d 20 6e 69 6c 20 74 20 6e 69 6c 20 74 6f 70 69 63 29 29 0a 09 20 20 20 20 28 69 66 20 28 ┆ram nil t nil topic)) (if (┆
0x0aa0…0ac0 3c 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 20 38 30 29 0a 09 09 28 70 72 6f 67 6e 0a 09 09 20 ┆< (buffer-size) 80) (progn ┆
0x0ac0…0ae0 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 09 09 20 20 28 65 6e ┆ (goto-char (point-min)) (en┆
0x0ae0…0b00 64 2d 6f 66 2d 6c 69 6e 65 29 0a 09 09 20 20 28 65 72 72 6f 72 20 28 62 75 66 66 65 72 2d 73 75 ┆d-of-line) (error (buffer-su┆
0x0b00…0b20 62 73 74 72 69 6e 67 20 31 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 28 ┆bstring 1 (point))))))) (┆
0x0b20…0b40 6d 65 73 73 61 67 65 20 22 43 6c 65 61 6e 69 6e 67 20 6d 61 6e 75 61 6c 20 65 6e 74 72 79 20 66 ┆message "Cleaning manual entry f┆
0x0b40…0b60 6f 72 20 25 73 2e 2e 2e 22 20 74 6f 70 69 63 29 0a 0a 20 20 20 20 20 20 3b 3b 20 4e 75 6b 65 20 ┆or %s..." topic) ;; Nuke ┆
0x0b60…0b80 75 6e 64 65 72 6c 69 6e 69 6e 67 20 61 6e 64 20 6f 76 65 72 73 74 72 69 6b 69 6e 67 20 28 6f 6e ┆underlining and overstriking (on┆
0x0b80…0ba0 6c 79 20 62 79 20 74 68 65 20 73 61 6d 65 20 6c 65 74 74 65 72 29 0a 20 20 20 20 20 20 28 67 6f ┆ly by the same letter) (go┆
0x0ba0…0bc0 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c ┆to-char (point-min)) (whil┆
0x0bc0…0be0 65 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 62 22 20 6e 69 6c 20 74 29 0a 09 28 ┆e (search-forward "\b" nil t) (┆
0x0be0…0c00 6c 65 74 2a 20 28 28 70 72 65 63 65 64 69 6e 67 20 28 63 68 61 72 2d 61 66 74 65 72 20 28 2d 20 ┆let* ((preceding (char-after (- ┆
0x0c00…0c20 28 70 6f 69 6e 74 29 20 32 29 29 29 0a 09 20 20 20 20 20 20 20 28 66 6f 6c 6c 6f 77 69 6e 67 20 ┆(point) 2))) (following ┆
0x0c20…0c40 28 66 6f 6c 6c 6f 77 69 6e 67 2d 63 68 61 72 29 29 29 0a 09 20 20 28 63 6f 6e 64 20 28 28 3d 20 ┆(following-char))) (cond ((= ┆
0x0c40…0c60 70 72 65 63 65 64 69 6e 67 20 66 6f 6c 6c 6f 77 69 6e 67 29 0a 09 09 20 3b 3b 20 78 5c 62 78 0a ┆preceding following) ;; x\bx ┆
0x0c60…0c80 09 09 20 28 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 32 29 29 0a 09 09 28 28 3d 20 70 72 65 63 65 ┆ (delete-char -2)) ((= prece┆
0x0c80…0ca0 64 69 6e 67 20 3f 5c 5f 29 0a 09 09 20 3b 3b 20 5f 5c 62 0a 09 09 20 28 64 65 6c 65 74 65 2d 63 ┆ding ?\_) ;; _\b (delete-c┆
0x0ca0…0cc0 68 61 72 20 2d 32 29 29 0a 09 09 28 28 3d 20 66 6f 6c 6c 6f 77 69 6e 67 20 3f 5c 5f 29 0a 09 09 ┆har -2)) ((= following ?\_) ┆
0x0cc0…0ce0 20 3b 3b 20 5c 62 5f 0a 09 09 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 31 2d 20 28 70 ┆ ;; \b_ (delete-region (1- (p┆
0x0ce0…0d00 6f 69 6e 74 29 29 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 ┆oint)) (1+ (point))))))) ┆
0x0d00…0d20 3b 3b 20 4e 75 6b 65 20 68 65 61 64 65 72 73 3a 20 22 4d 4f 52 45 28 31 29 20 55 4e 49 58 20 50 ┆;; Nuke headers: "MORE(1) UNIX P┆
0x0d20…0d40 72 6f 67 72 61 6d 6d 65 72 27 73 20 4d 61 6e 75 61 6c 20 4d 4f 52 45 28 31 29 22 0a 20 20 20 20 ┆rogrammer's Manual MORE(1)" ┆
0x0d40…0d60 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 ┆ (goto-char (point-min)) ┆
0x0d60…0d80 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 20 2a 5c 5c ┆(while (re-search-forward "^ *\\┆
0x0d80…0da0 28 5b 41 2d 5a 61 2d 7a 5d 5b 2d 5f 41 2d 5a 61 2d 7a 30 2d 39 5d 2a 28 5b 30 2d 39 41 2d 5a 5d ┆([A-Za-z][-_A-Za-z0-9]*([0-9A-Z]┆
0x0da0…0dc0 2b 29 5c 5c 29 2e 2a 5c 5c 31 24 22 20 6e 69 6c 20 74 29 0a 09 28 72 65 70 6c 61 63 65 2d 6d 61 ┆+)\\).*\\1$" nil t) (replace-ma┆
0x0dc0…0de0 74 63 68 20 22 22 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 4e 75 6b 65 20 66 6f 6f 74 65 72 73 3a ┆tch "")) ;; Nuke footers:┆
0x0de0…0e00 20 22 50 72 69 6e 74 65 64 20 31 32 2f 33 2f 38 35 09 32 37 20 41 70 72 69 6c 20 31 39 38 31 09 ┆ "Printed 12/3/85 27 April 1981 ┆
0x0e00…0e20 31 22 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 53 75 6e 20 61 70 70 65 61 72 20 74 6f 20 62 65 20 ┆1" ;; Sun appear to be ┆
0x0e20…0e40 6f 6e 20 64 72 75 67 7a 3a 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 20 22 53 75 6e 20 52 65 6c 65 ┆on drugz: ;; "Sun Rele┆
0x0e40…0e60 61 73 65 20 33 2e 30 0e 42 0f 20 20 4c 61 73 74 20 63 68 61 6e 67 65 3a 20 31 20 46 65 62 72 75 ┆ase 3.0 B Last change: 1 Febru┆
0x0e60…0e80 61 72 79 20 31 39 38 35 20 20 20 20 20 31 22 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 48 50 20 61 ┆ary 1985 1" ;; HP a┆
0x0e80…0ea0 72 65 20 65 76 65 6e 20 77 6f 72 73 65 21 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 20 22 20 20 20 ┆re even worse! ;; " ┆
0x0ea0…0ec0 20 20 48 65 77 6c 65 74 74 2d 50 61 63 6b 61 72 64 20 20 20 2d 31 2d 20 28 70 72 69 6e 74 65 64 ┆ Hewlett-Packard -1- (printed┆
0x0ec0…0ee0 20 31 32 2f 33 31 2f 39 39 29 22 20 20 46 4d 48 57 41 31 32 49 44 21 21 0a 20 20 20 20 20 20 3b ┆ 12/31/99)" FMHWA12ID!! ;┆
0x0ee0…0f00 3b 20 20 20 20 53 79 73 74 65 6d 20 56 20 28 77 65 6c 6c 20 57 49 43 41 54 73 20 61 6e 79 77 61 ┆; System V (well WICATs anywa┆
0x0f00…0f20 79 29 3a 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 20 22 50 61 67 65 20 31 09 09 09 20 20 28 70 72 ┆y): ;; "Page 1 (pr┆
0x0f20…0f40 69 6e 74 65 64 20 37 2f 32 34 2f 38 35 29 22 0a 20 20 20 20 20 20 3b 3b 20 20 20 20 57 68 6f 20 ┆inted 7/24/85)" ;; Who ┆
0x0f40…0f60 69 73 20 61 64 6d 69 6e 69 73 74 65 72 69 6e 67 20 50 43 50 20 74 6f 20 74 68 65 73 65 20 63 6f ┆is administering PCP to these co┆
0x0f60…0f80 72 70 6f 72 61 74 65 20 62 6f 7a 6f 73 3f 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 ┆rporate bozos? (goto-char ┆
0x0f80…0fa0 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 ┆(point-min)) (while (re-se┆
0x0fa0…0fc0 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 09 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 73 79 73 ┆arch-forward (if (eq sys┆
0x0fc0…0fe0 74 65 6d 2d 74 79 70 65 20 27 68 70 75 78 29 0a 09 09 20 20 20 22 5e 20 2a 48 65 77 6c 65 74 74 ┆tem-type 'hpux) "^ *Hewlett┆
0x0fe0…1000 2d 50 61 63 6b 61 72 64 2e 2a 28 70 72 69 6e 74 65 64 20 5b 30 2d 39 2f 5d 2a 29 24 22 0a 09 09 ┆-Packard.*(printed [0-9/]*)$" ┆
0x1000…1020 20 28 69 66 20 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 75 73 67 2d 75 6e 69 78 2d 76 ┆ (if (eq system-type 'usg-unix-v┆
0x1020…1040 29 0a 09 09 20 20 20 20 20 22 5e 20 2a 50 61 67 65 20 5b 30 2d 39 5d 2a 2e 2a 28 70 72 69 6e 74 ┆) "^ *Page [0-9]*.*(print┆
0x1040…1060 65 64 20 5b 30 2d 39 2f 5d 2a 29 24 22 0a 09 09 20 20 20 22 5e 5c 5c 28 50 72 69 6e 74 65 64 5c ┆ed [0-9/]*)$" "^\\(Printed\┆
0x1060…1080 5c 7c 53 75 6e 20 52 65 6c 65 61 73 65 5c 5c 29 20 5b 30 2d 39 5d 2e 2a 5b 30 2d 39 5d 24 22 29 ┆\|Sun Release\\) [0-9].*[0-9]$")┆
0x1080…10a0 29 0a 09 20 20 20 20 20 20 20 6e 69 6c 20 74 29 0a 09 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 ┆) nil t) (replace-match┆
0x10a0…10c0 20 22 22 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 43 72 75 6e 63 68 20 62 6c 61 6e 6b 20 6c 69 6e ┆ "")) ;; Crunch blank lin┆
0x10c0…10e0 65 73 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 ┆es (goto-char (point-min))┆
0x10e0…1100 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 ┆ (while (re-search-forward┆
0x1100…1120 20 22 5c 6e 5c 6e 5c 6e 5c 6e 2a 22 20 6e 69 6c 20 74 29 0a 09 28 72 65 70 6c 61 63 65 2d 6d 61 ┆ "\n\n\n\n*" nil t) (replace-ma┆
0x1120…1140 74 63 68 20 22 5c 6e 5c 6e 22 29 29 0a 0a 20 20 20 20 20 20 3b 3b 20 4e 75 6b 65 20 62 6c 61 6e ┆tch "\n\n")) ;; Nuke blan┆
0x1140…1160 6b 73 20 6c 69 6e 65 73 20 61 74 20 73 74 61 72 74 2e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 ┆ks lines at start. (goto-c┆
0x1160…1180 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 ┆har (point-min)) (skip-cha┆
0x1180…11a0 72 73 2d 66 6f 72 77 61 72 64 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 ┆rs-forward "\n") (delete-r┆
0x11a0…11c0 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 29 0a 0a 20 20 20 20 ┆egion (point-min) (point)) ┆
0x11c0…11e0 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 0a 0a 20 ┆ (set-buffer-modified-p nil) ┆
0x11e0…1200 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 ┆ (message "")))) (defun ins┆
0x1200…1220 65 72 74 2d 6d 61 6e 2d 66 69 6c 65 20 28 6e 61 6d 65 29 0a 20 20 3b 3b 20 49 6e 73 65 72 74 20 ┆ert-man-file (name) ;; Insert ┆
0x1220…1240 6d 61 6e 75 61 6c 20 66 69 6c 65 20 28 75 6e 70 61 63 6b 65 64 20 61 73 20 6e 65 63 65 73 73 61 ┆manual file (unpacked as necessa┆
0x1240…1260 72 79 29 20 69 6e 74 6f 20 62 75 66 66 65 72 0a 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 73 75 ┆ry) into buffer (if (equal (su┆
0x1260…1280 62 73 74 72 69 6e 67 20 6e 61 6d 65 20 2d 32 29 20 22 2e 5a 22 29 0a 20 20 20 20 20 20 28 63 61 ┆bstring name -2) ".Z") (ca┆
0x1280…12a0 6c 6c 2d 70 72 6f 63 65 73 73 20 22 7a 63 61 74 22 20 6e 69 6c 20 74 20 6e 69 6c 20 6e 61 6d 65 ┆ll-process "zcat" nil t nil name┆
0x12a0…12c0 29 0a 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 73 75 62 73 74 72 69 6e 67 20 6e 61 6d 65 ┆) (if (equal (substring name┆
0x12c0…12e0 20 2d 32 29 20 22 2e 7a 22 29 0a 09 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 70 63 61 74 22 ┆ -2) ".z") (call-process "pcat"┆
0x12e0…1300 20 6e 69 6c 20 74 20 6e 69 6c 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 ┆ nil t nil name) (insert-f┆
0x1300…1316 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 6e 61 6d 65 29 29 29 29 0a ┆ile-contents name)))) ┆