comparison lisp/man.el @ 4203:b42338a458a5

(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.

4202:4d0dd361b49a

    (message ""))
   ))

(defun Man-set-fonts ()
  (goto-char (point-min))
  (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 
			     (if (looking-at "_") 'underline 'bold)))
      (while (and (< (point) en) (looking-at ".\b"))
	(replace-match "") (forward-char 1)))))

(defun Man-bgproc-sentinel (process msg)
  "Manpage background process sentinel."
  (let ((Man-buffer (process-buffer process))
	(delete-buff nil)

4203:b42338a458a5

    (message ""))
   ))

(defun Man-set-fonts ()
  (goto-char (point-min))
  (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 (if (= en (point-max)) en (1+ en)) 'face 
			     (if (looking-at "_") 'underline 'bold)))
      (while (and (< (point) en) (looking-at ".\b"))
	(replace-match "")))))

(defun Man-bgproc-sentinel (process msg)
  "Manpage background process sentinel."
  (let ((Man-buffer (process-buffer process))
	(delete-buff nil)