Mercurial > emacs
changeset 3659:296caa999ccf
(Man-filter-list): Add an element for X man pages.
(Man-goto-page): Continue past errors in Man-build-references-alist.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 11 Jun 1993 17:52:59 +0000 |
| parents | c2831d419bec |
| children | 41a282d1b176 |
| files | lisp/man.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Fri Jun 11 17:14:31 1993 +0000 +++ b/lisp/man.el Fri Jun 11 17:52:59 1993 +0000 @@ -139,6 +139,7 @@ "-e '/^[ \\t]*Hewlett-Packard[ \\t]*- [0-9]* -.*$/d'" "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'" "-e '/^Printed [0-9].*[0-9]$/d'" + "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'" "-e '/^Sun Microsystems.*Last change:/d'" "-e '/^Sun Release [0-9].*[0-9]$/d'" "-e '/^\\n$/D'" @@ -731,7 +732,11 @@ (goto-char page-start) (narrow-to-region page-start page-end) (Man-build-section-alist) - (Man-build-references-alist) + ;; Don't let bugs in Man-build-references-alist + ;; interfere with ordinary use of this package. + (condition-case nil + (Man-build-references-alist) + (error)) (widen) (narrow-to-region page-start page-end) (goto-char (point-min))))