Mercurial > emacs
comparison lisp/man.el @ 9679:363a1bef4ddb
* 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'" |