From d4029c897c00524374365cb56d603749cceabf41 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Jul 1993 09:05:18 +0000 Subject: [PATCH] (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. --- lisp/man.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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." -- 2.39.5