(Man-filter-list): Extend footer pattern for hpux.

(Man-cooked-hook): New variable.
(Man-bgproc-sentinel): Run Man-cooked-hook after cleaning backspaces.

diff --git a/lisp/man.el b/lisp/man.el
index 9ed474f77b607920447ee5194282ea8ac7f49b65..7b401a9032df1073c6783060fc5df2cd0f29dbe6 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -144,7 +144,7 @@ the associated section number.")
       "-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 @@ the manpage buffer.")
 (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 @@ See the variable `Man-notify' for the different notification behaviors."
          (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))