Mercurial > emacs
comparison lisp/man.el @ 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 | f00fc681daa4 |
children | 4cab647064a8 |
comparison
equal
deleted
inserted
replaced
6357:fb5923ece02c | 6358:250e69a75938 |
---|---|
142 '(("sed " | 142 '(("sed " |
143 (;;"-e 's/.\010//g'" | 143 (;;"-e 's/.\010//g'" |
144 "-e '/[Nn]o such file or directory/d'" | 144 "-e '/[Nn]o such file or directory/d'" |
145 "-e '/Reformatting page. Wait/d'" | 145 "-e '/Reformatting page. Wait/d'" |
146 "-e '/Reformatting entry. Wait/d'" | 146 "-e '/Reformatting entry. Wait/d'" |
147 "-e '/^\\([A-Z][A-Z.]*([0-9A-Za-z][-0-9A-Za-z+]*)\\).*\\1$/d'" | 147 "-e '/^ *\\([A-Za-z][A-Za-z.]*([0-9A-Za-z][-0-9A-Za-z+]*)\\).*\\1$/d'" |
148 "-e '/^[ \\t]*Hewlett-Packard Company[ \\t]*- [0-9]* -.*$/d'" | 148 "-e '/^[ \\t]*Hewlett-Packard Company[ \\t]*- [0-9]* -.*$/d'" |
149 "-e '/^[ \\t]*Hewlett-Packard[ \\t]*- [0-9]* -.*$/d'" | 149 "-e '/^[ \\t]*Hewlett-Packard[ \\t]*- [0-9]* -.*$/d'" |
150 "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'" | 150 "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'" |
151 "-e '/^Printed [0-9].*[0-9]$/d'" | 151 "-e '/^Printed [0-9].*[0-9]$/d'" |
152 "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'" | 152 "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'" |
186 (defvar Man-mode-map nil | 186 (defvar Man-mode-map nil |
187 "*Keymap for Man mode.") | 187 "*Keymap for Man mode.") |
188 | 188 |
189 (defvar Man-mode-hook nil | 189 (defvar Man-mode-hook nil |
190 "*Normal hook run when Man mode is enabled.") | 190 "*Normal hook run when Man mode is enabled.") |
191 | |
192 (defvar Man-cooked-hook nil | |
193 "*Hooks run after removing backspace characters from man page | |
194 but before Man-mode.") | |
191 | 195 |
192 (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]" | 196 (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]" |
193 "*Regular expression describing a manpage section within parentheses.") | 197 "*Regular expression describing a manpage section within parentheses.") |
194 | 198 |
195 (defvar Man-heading-regexp "^ ?[A-Z]" | 199 (defvar Man-heading-regexp "^ ?[A-Z]" |
528 (kill-buffer Man-buffer) | 532 (kill-buffer Man-buffer) |
529 (save-window-excursion | 533 (save-window-excursion |
530 (save-excursion | 534 (save-excursion |
531 (set-buffer Man-buffer) | 535 (set-buffer Man-buffer) |
532 (Man-set-fonts) | 536 (Man-set-fonts) |
537 (run-hooks 'Man-cooked-hook) | |
533 (Man-mode) | 538 (Man-mode) |
534 (set-buffer-modified-p nil))) | 539 (set-buffer-modified-p nil))) |
535 (Man-notify-when-ready Man-buffer)) | 540 (Man-notify-when-ready Man-buffer)) |
536 | 541 |
537 (if err-mess | 542 (if err-mess |