From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jul 1993 09:05:18 +0000 (+0000)
Subject: (Man-set-fonts): Don't look for another char after
X-Git-Tag: emacs-19.34~11648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4029c897c00524374365cb56d603749cceabf41;p=emacs.git

(Man-set-fonts): Don't look for another char after
the backspace; instead look for a sequence CHAR BS CHAR BS CHAR BS...
Delete all the CHAR BS pairs found, after making the text property.
---

diff --git a/lisp/man.el b/lisp/man.el
index cca12f51dc8..f01265cab45 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -460,14 +460,14 @@ See the variable `Man-notify' for the different notification behaviors."
 
 (defun Man-set-fonts ()
   (goto-char (point-min))
-  (while (re-search-forward "\\(.\b.\\)+" nil t)
+  (while (re-search-forward "\\(.\b\\)+" nil t)
     (let ((st (match-beginning 0)) (en (match-end 0)))
       (goto-char st)
       (if window-system
-	  (put-text-property st en 'face 
+	  (put-text-property st (if (= en (point-max)) en (1+ en)) 'face 
 			     (if (looking-at "_") 'underline 'bold)))
       (while (and (< (point) en) (looking-at ".\b"))
-	(replace-match "") (forward-char 1)))))
+	(replace-match "")))))
 
 (defun Man-bgproc-sentinel (process msg)
   "Manpage background process sentinel."