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 |