tml@hemuli.atk.vtt.fi (Tor Lillqvist) (06/25/89)
HP-UX has compressed man pages in for example "/usr/man/cat1.Z/ksh.1".
This patch to man.el takes care of that. Note that zcat now gets the
compressed man page as standard input, otherwise it complains if the
file name argument doesn't end in ".Z".
*** orig/man.el Sun May 8 22:23:13 1988
--- man.el Sat Jun 24 17:17:02 1989
***************
*** 145,152 ****
(defun insert-man-file (name)
;; Insert manual file (unpacked as necessary) into buffer
! (if (equal (substring name -2) ".Z")
! (call-process "zcat" nil t nil name)
(if (equal (substring name -2) ".z")
(call-process "pcat" nil t nil name)
(insert-file-contents name))))
--- 145,153 ----
(defun insert-man-file (name)
;; Insert manual file (unpacked as necessary) into buffer
! (if (or (equal (substring name -2) ".Z")
! (string-match "/cat[0-9][a-z]?\\.Z/" name))
! (call-process "zcat" name t nil)
(if (equal (substring name -2) ".z")
(call-process "pcat" nil t nil name)
(insert-file-contents name))))
--
Tor Lillqvist
Technical Research Centre of Finland, Computing Services (VTT/ATK)
tml@hemuli.atk.vtt.fi [130.188.52.2]