Mercurial > emacs
changeset 6358:250e69a75938
(Man-filter-list): Extend footer pattern for hpux.
(Man-cooked-hook): New variable.
(Man-bgproc-sentinel): Run Man-cooked-hook after cleaning backspaces.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 15 Mar 1994 02:52:55 +0000 |
| parents | fb5923ece02c |
| children | 800c035273e9 |
| files | lisp/man.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))