Mercurial > emacs

changeset 4203:b42338a458a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jul 1993 09:05:18 +0000
parents 4d0dd361b49a
children de836f326554
files lisp/man.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Wed Jul 21 08:50:30 1993 +0000
+++ b/lisp/man.el	Wed Jul 21 09:05:18 1993 +0000
@@ -460,14 +460,14 @@
 
 (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."