From d046c1832d41d10f9e5b71fff2faf93dfd322bf6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Thu, 29 Sep 1994 12:42:45 +0000 Subject: [PATCH] * man.el (Man-init-defvars, Man-cleanup-manpage, Man-fontify-manpage): added support for the big cross present in the ksh manpage. --- lisp/man.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/man.el b/lisp/man.el index 9687d7783ef..86330bb9b52 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 -;; 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 @@ This is necessary if one wants to dump man.el with emacs." "") "-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 @@ Same for the ANSI bold and normal escape sequences." (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 @@ Same for the ANSI bold and normal escape sequences." (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)) -- 2.39.5