Mercurial > hg > xemacs-beta

comparison lisp/prim/fill.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children ec9a17fef872
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
691 (equal fill-prefix 691 (equal fill-prefix
692 (buffer-substring 692 (buffer-substring
693 (point) (min (point-max) (+ (length fill-prefix) 693 (point) (min (point-max) (+ (length fill-prefix)
694 (point)))))) 694 (point))))))
695 (forward-char (length fill-prefix)) 695 (forward-char (length fill-prefix))
696 (if (and adaptive-fill-mode 696 ;; XEmacs bug fix
697 (if (and adaptive-fill-mode adaptive-fill-regexp
697 (looking-at adaptive-fill-regexp)) 698 (looking-at adaptive-fill-regexp))
698 (goto-char (match-end 0)))) 699 (goto-char (match-end 0))))
699 (setq fp-end (point)) 700 (setq fp-end (point))
700 (skip-chars-forward " \t") 701 (skip-chars-forward " \t")
701 ;; This is beginning of the line's text. 702 ;; This is beginning of the line's text.