Mercurial > emacs

changeset 9210:8d35fd88194d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* man.el (Man-init-defvars, Man-cleanup-manpage, Man-fontify-manpage): fix previous fix.
author Francesco Potortì <pot@gnu.org>
date Sat, 01 Oct 1994 13:27:15 +0000
parents 6ca1c82b40f4
children c7bfa0da167b
files lisp/man.el
diffstat 1 files changed, 13 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Sat Oct 01 09:07:05 1994 +0000
+++ b/lisp/man.el	Sat Oct 01 13:27:15 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/22 12:10:16 $
-;; Version:		$Revision: 1.49 $
+;; Last-Modified:	$Date: 1994/09/29 12:42:45 $
+;; Version:		$Revision: 1.50 $
 ;; Keywords:		help
 ;; Adapted-By:		ESR, pot
 
@@ -331,7 +331,7 @@
 	 "")
        "-e '/\e[789]/s///g'"
        "-e '/o\b+/s//o/g'"
-       "-e '/|\b-/s//+/g'"
+       "-e '/|\b-[-|\b]*/s//+/g'"
        "-e '/^\\n$/D'"
        "-e '/[Nn]o such file or directory/d'"
        "-e '/Reformatting page.  Wait/d'"
@@ -616,16 +616,17 @@
   (while (re-search-forward "\e[789]" nil t)
     (backward-delete-char 2))
   (goto-char (point-min))
+  (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
+    (replace-match "\\1")
+    (put-text-property (1- (point)) (point) 'face 'bold))
+  (goto-char (point-min))
   (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)
+  (goto-char (point-min))
+  (while (re-search-forward "|\b-[-|\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")
-    (put-text-property (1- (point)) (point) 'face 'bold))
   (message "%s man page made up" Man-arguments))
 
 (defun Man-cleanup-manpage ()
@@ -641,12 +642,12 @@
   (goto-char (point-min))
   (while (re-search-forward "\e[789]" nil t) (backward-delete-char 2))
   (goto-char (point-min))
+  (while (re-search-forward "\\(.\\)\\(\b\\1\\)+" nil t)
+    (replace-match "\\1"))
+  (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"))
+  (while (re-search-forward "|\b-[-|\b]*" nil t) (replace-match "+"))
   (message "%s man page cleaned up" Man-arguments))
 
 (defun Man-bgproc-sentinel (process msg)