mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(Man-set-fonts): Don't look for another char after

Browse Source 
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.
This commit is contained in:
Richard M. Stallman 1993-07-21 09:05:18 +00:00
parent 3746159f73
commit d4029c897c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/man.el
View File

@ -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."