Mercurial > emacs

comparison lisp/man.el @ 11991:9a069c7526b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* man.el (Man-init-defvars): Don't remove lines containing "No such file or directory". eof
author Francesco Potortì <pot@gnu.org>
date Mon, 29 May 1995 13:20:51 +0000
parents 0e6b71f2ebad
children 29adc0df831d
comparison
equal deleted inserted replaced
11990:1e5d25c997ca 11991:9a069c7526b1
1 ;;; man.el --- browse UNIX manual pages 1 ;;; man.el --- browse UNIX manual pages
2 2
3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com> 5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com>
6 ;; Last-Modified: $Date: 1994/11/22 04:37:43 $ 6 ;; Last-Modified: $Date: 1995/02/03 12:07:37 $
7 ;; Version: $Revision: 1.60 $ 7 ;; Version: $Revision: 1.61 $
8 ;; Keywords: help 8 ;; Keywords: help
9 ;; Adapted-By: ESR, pot 9 ;; Adapted-By: ESR, pot
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
343 (if Man-sed-script 343 (if Man-sed-script
344 (concat "-e '" Man-sed-script "'") 344 (concat "-e '" Man-sed-script "'")
345 "") 345 "")
346 "-e '/^[\001-\032][\001-\032]*$/d'" 346 "-e '/^[\001-\032][\001-\032]*$/d'"
347 "-e '/\e[789]/s///g'" 347 "-e '/\e[789]/s///g'"
348 "-e '/[Nn]o such file or directory/d'"
349 "-e '/Reformatting page. Wait/d'" 348 "-e '/Reformatting page. Wait/d'"
350 "-e '/Reformatting entry. Wait/d'" 349 "-e '/Reformatting entry. Wait/d'"
351 "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'" 350 "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"
352 "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'" 351 "-e '/^[ \t]*Hewlett-Packard[ \t]*-[ \t][0-9]*[ \t]-.*$/d'"
353 "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'" 352 "-e '/^[ \t][ \t]*-[ \t][0-9]*[ \t]-[ \t]*Formatted:.*[0-9]$/d'"