Mercurial > emacs
changeset 9177:5c7bf3247185
* man.el
(Man-init-defvars, Man-cleanup-manpage, Man-fontify-manpage):
added support for the big cross present in the ksh manpage.
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Thu, 29 Sep 1994 12:42:45 +0000 |
| parents | 5646f9ac8ec3 |
| children | 0facf5c89fff |
| files | lisp/man.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Thu Sep 29 06:32:06 1994 +0000 +++ b/lisp/man.el Thu Sep 29 12:42:45 1994 +0000 @@ -3,8 +3,8 @@ ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> -;; Last-Modified: $Date: 1994/09/21 16:15:42 $ -;; Version: $Revision: 1.48 $ +;; Last-Modified: $Date: 1994/09/22 12:10:16 $ +;; Version: $Revision: 1.49 $ ;; Keywords: help ;; Adapted-By: ESR, pot @@ -331,6 +331,7 @@ "") "-e '/\e[789]/s///g'" "-e '/o\b+/s//o/g'" + "-e '/|\b-/s//+/g'" "-e '/^\\n$/D'" "-e '/[Nn]o such file or directory/d'" "-e '/Reformatting page. Wait/d'" @@ -618,6 +619,9 @@ (while (search-forward "o\b+" nil t) (backward-delete-char 2) (put-text-property (1- (point)) (point) 'face 'bold)) + (while (search-forward "|\b-" nil t) + (replace-match "+") + (put-text-property (1- (point)) (point) 'face 'bold)) (goto-char (point-min)) (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t) (replace-match "\\1") @@ -639,6 +643,8 @@ (goto-char (point-min)) (while (search-forward "o\b+" nil t) (backward-delete-char 2)) (goto-char (point-min)) + (while (search-forward "|\b-" nil t) (replace-match "+")) + (goto-char (point-min)) (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t) (replace-match "\\1")) (message "%s man page cleaned up" Man-arguments))