Commit ad2feb08 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(refill-adjust-ignorable-overlay): Don't hardcode pint-min == 1.

(refill-fill-paragraph-at): Use a more robust method to detect
when the paragraph is after point.  Remove unused var `fill-pfx'.
parent aba7ce77
;;; refill.el --- `auto-fill' by refilling paragraphs on changes
;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Copyright (C) 2000, 2003 Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; Keywords: wp
......@@ -101,17 +101,14 @@ This is used to optimize refilling.")
(forward-line -1)
(if (<= (point) (overlay-start overlay))
;; Just get OVERLAY out of the way
(move-overlay overlay 1 1)
(move-overlay overlay (point-min) (point-min))
;; Make overlay contain only the region
(move-overlay overlay (overlay-start overlay) (point))))))
(defun refill-fill-paragraph-at (pos &optional arg)
"Like `fill-paragraph' at POS, but don't delete whitespace at paragraph end."
(let (fill-pfx)
(save-excursion
(goto-char pos)
(unless (or (and (bolp) (eolp))
(save-match-data (looking-at "\n\n")))
;; FIXME: forward-paragraph seems to disregard `use-hard-newlines',
;; leading to excessive refilling and wrong choice of fill-prefix.
;; might be a bug in my paragraphs.el.
......@@ -121,6 +118,7 @@ This is used to optimize refilling.")
(beg (progn (backward-paragraph) (point)))
(obeg (overlay-start refill-ignorable-overlay))
(oend (overlay-end refill-ignorable-overlay)))
(unless (> beg pos) ;Don't fill if point is outside the paragraph.
(goto-char pos)
(if (and (>= beg obeg) (< beg oend))
;; Limit filling to the modified tail of the paragraph.
......@@ -139,15 +137,13 @@ This is used to optimize refilling.")
(if use-hard-newlines
(fill-region oend end arg)
(fill-region-as-paragraph oend end arg)))
(setq fill-pfx fill-prefix)
(move-overlay refill-ignorable-overlay obeg (point)))
;; Fill the whole paragraph
(setq fill-pfx
(save-restriction
(if use-hard-newlines
(fill-region beg end arg)
(fill-region-as-paragraph beg end arg))))
(move-overlay refill-ignorable-overlay beg (point))))))))
(fill-region-as-paragraph beg end arg)))
(move-overlay refill-ignorable-overlay beg (point)))))))
(defun refill-fill-paragraph (arg)
"Like `fill-paragraph' but don't delete whitespace at paragraph end."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment