# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763699975 0
# Node ID 250e69a75938a2cb11b06fd5a05dc9f3ce2af23f
# Parent  fb5923ece02c191f379376f75b4367ee6cb45132
(Man-filter-list): Extend footer pattern for hpux.
(Man-cooked-hook): New variable.
(Man-bgproc-sentinel): Run Man-cooked-hook after cleaning backspaces.

diff -r fb5923ece02c -r 250e69a75938 lisp/man.el
--- a/lisp/man.el	Tue Mar 15 01:25:56 1994 +0000
+++ b/lisp/man.el	Tue Mar 15 02:52:55 1994 +0000
@@ -144,7 +144,7 @@
       "-e '/[Nn]o such file or directory/d'"
       "-e '/Reformatting page.  Wait/d'"
       "-e '/Reformatting entry.  Wait/d'"
-      "-e '/^\\([A-Z][A-Z.]*([0-9A-Za-z][-0-9A-Za-z+]*)\\).*\\1$/d'"
+      "-e '/^ *\\([A-Za-z][A-Za-z.]*([0-9A-Za-z][-0-9A-Za-z+]*)\\).*\\1$/d'"
       "-e '/^[ \\t]*Hewlett-Packard Company[ \\t]*- [0-9]* -.*$/d'"
       "-e '/^[ \\t]*Hewlett-Packard[ \\t]*- [0-9]* -.*$/d'"
       "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'"
@@ -189,6 +189,10 @@
 (defvar Man-mode-hook nil
   "*Normal hook run when Man mode is enabled.")
 
+(defvar Man-cooked-hook nil
+  "*Hooks run after removing backspace characters from man page
+but before Man-mode.")
+
 (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]"
   "*Regular expression describing a manpage section within parentheses.")
 
@@ -530,6 +534,7 @@
 	  (save-excursion
 	    (set-buffer Man-buffer)
 	    (Man-set-fonts)
+	    (run-hooks 'Man-cooked-hook)
 	    (Man-mode)
 	    (set-buffer-modified-p nil)))
 	(Man-notify-when-ready Man-buffer))