diff options
| author | Francesco Potortì <pot@gnu.org> | 1994-11-09 12:38:31 +0000 |
|---|---|---|
| committer | Francesco Potortì <pot@gnu.org> | 1994-11-09 12:38:31 +0000 |
| commit | f90531cc3f9d3fb3629bd4f3d11095910bffd270 (patch) | |
| tree | fb4dfda833b3405e709bc2e8859ef02177ce67aa /lisp/man.el | |
| parent | 0ff7e78f5893a088041da4dca10a2aa2fb6659ed (diff) | |
| download | emacs-f90531cc3f9d3fb3629bd4f3d11095910bffd270.tar.gz | |
* man.el (Man-berkeley-sed-script, Man-sysv-sed-script,
Man-cleanup-manpage, Man-fontify-manpage): Handle the "+\bo" form
(used by aix) in addition to the "o\b+" one (used by sun).
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/man.el b/lisp/man.el index 4466ac2e464..587d244cc5a 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -3,8 +3,8 @@ ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> -;; Last-Modified: $Date: 1994/11/07 12:13:16 $ -;; Version: $Revision: 1.57 $ +;; Last-Modified: $Date: 1994/11/08 22:34:06 $ +;; Version: $Revision: 1.58 $ ;; Keywords: help ;; Adapted-By: ESR, pot @@ -258,6 +258,7 @@ This regular expression should start with a `^' character.") /\b/ { s/_\b//g s/\b_//g s/o\b+/o/g + s/+\bo/o/g :ovstrk s/\\(.\\)\b\\1/\\1/g t ovstrk @@ -269,6 +270,7 @@ This regular expression should start with a `^' character.") /\b/ { s/_\b//g\\ s/\b_//g\\ s/o\b+/o/g\\ + s/+\bo/o/g\\ :ovstrk\\ s/\\(.\\)\b\\1/\\1/g\\ t ovstrk\\ @@ -616,8 +618,8 @@ Same for the ANSI bold and normal escape sequences." (replace-match "\\1") (put-text-property (1- (point)) (point) 'face Man-overstrike-face)) (goto-char (point-min)) - (while (search-forward "o\b+" nil t) - (backward-delete-char 2) + (while (re-search-forward "o\b\\+\\|\\+\bo" nil t) + (replace-match "o") (put-text-property (1- (point)) (point) 'face 'bold)) (goto-char (point-min)) (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) @@ -642,7 +644,7 @@ Same for the ANSI bold and normal escape sequences." (goto-char (point-min)) (while (re-search-forward "\e\\[[0-9]+m" nil t) (replace-match "")) (goto-char (point-min)) - (while (search-forward "o\b+" nil t) (backward-delete-char 2)) + (while (re-search-forward "o\b\\+\\|\\+\bo" nil t) (replace-match "o")) )) (goto-char (point-min)) (while (re-search-forward "[-|]\\(\b[-|]\\)+" nil t) (replace-match "+")) |