Mercurial > emacs

comparison lisp/man.el @ 9679:363a1bef4ddb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* man.el (Man-init-defvars): Do not delete empty lines.
author Francesco Potortì <pot@gnu.org>
date Mon, 24 Oct 1994 15:34:50 +0000
parents 5186676f806f
children 51a9e9bc5fda
comparison
equal deleted inserted replaced
9678:721cc180810c 9679:363a1bef4ddb
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/10/20 10:04:17 $ 6 ;; Last-Modified: $Date: 1994/10/24 12:37:01 $
7 ;; Version: $Revision: 1.53 $ 7 ;; Version: $Revision: 1.54 $
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
344 Man-sed-command 344 Man-sed-command
345 (list 345 (list
346 (if Man-sed-script 346 (if Man-sed-script
347 (concat "-e '" Man-sed-script "'") 347 (concat "-e '" Man-sed-script "'")
348 "") 348 "")
349 "-e '/^[\001-\032]*$/d'" 349 "-e '/^[\001-\032][\001-\032]*$/d'"
350 "-e '/\e[789]/s///g'" 350 "-e '/\e[789]/s///g'"
351 "-e '/[Nn]o such file or directory/d'" 351 "-e '/[Nn]o such file or directory/d'"
352 "-e '/Reformatting page. Wait/d'" 352 "-e '/Reformatting page. Wait/d'"
353 "-e '/Reformatting entry. Wait/d'" 353 "-e '/Reformatting entry. Wait/d'"
354 "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'" 354 "-e '/^[ \t]*Hewlett-Packard[ \t]Company[ \t]*-[ \t][0-9]*[ \t]-/d'"