🚀 go-pugleaf

Hi,

In case anyone else out there has trouble with man not
cleaning entries, here are the changes I made to man.el so
that it would work on our IRIS system (IRIS is Silicon
Graphics' SysV Unix).   

------------------------------------------------------------------------
In function MANUAL-ENTRY, add argument "-T " as below:
 
	;; use "man -T<space> topic" to tell man to ignore the
	;; current terminal type so it won't try to insert boldface.
	(call-process manual-program nil t nil "-T " section topic)
        (call-process manual-program nil t nil "-T " topic))

Note:  This is not portable.  man -T means something else
on Sun systems.  It is not clear what the best way to
conditionalize this code is; perhaps something like a #+SysV
or #-BSD is more appropriate.

At the least, this might be mentioned in the PROBLEMS file.
------------------------------------------------------------------------
In function NUKE-NROFF-BS, add \. to search string so it will find
strings like A.OUT as well:

  ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
  (goto-char (point-min))
  (while (re-search-forward "^ *\\([A-Za-z][-_\.A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t)
    (replace-match ""))
  
  ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
  (goto-char (point-min))
  (while (re-search-forward "^ *\\([A-Za-z][-_\.A-Za-z0-9]*([0-9A-Z]+)\\).*\\1$" nil t)
    (replace-match ""))
  
------------------------------------------------------------------------
In NUKE-NROFF-BS, add code to take care of IRIS footers:

  ;; Nuke footers: "Printed 12/3/85	27 April 1981	1"
  ;;    Sun appear to be on drugz:
  ;;     "Sun Release 3.0B  Last change: 1 February 1985     1"
  ;;    HP are even worse!
  ;;     "     Hewlett-Packard   -1- (printed 12/31/99)"  FMHWA12ID!!
  ;;    System V (well WICATs anyway):
  ;;     "Page 1			  (printed 7/24/85)"
  ;;    IRIS (silicon grahics unix, another system V):
  ;;     "Page 1                          (last mod. 7/24/85)"
  ;;    Who is administering PCP to these corporate bozos?
  (goto-char (point-min))
  (while (re-search-forward
	   (cond ((eq system-type 'hpux)
		  "^[ \t]*Hewlett-Packard\\(\\| Company\\)[ \t]*- [0-9]* -.*$")
		 ((eq system-type 'berkeley-unix) ;; ?? 
		  "^\\(Printed\\|Sun Release\\) [0-9].*[0-9]$")
                 ;; these two can be combined as below
                 ;; ((eq system-type 'usg-unix-v)
                 ;;  "^ *Page [0-9]*.*(printed [0-9/]*)$")
                 ;; ((eq system-type 'silicon-graphics-unix)
                 ;;  "^ *Page [0-9]*.*(last mod. [0-9/]*)$") 
		 (t "^ *Page [0-9]*.*(.* [0-9/]*)$"))
	   nil t)
    (replace-match ""))

------------------------------------------------------------------------

Cheers,

CarlManning@ai.mit.edu