114 |
;; leading to excessive refilling and wrong choice of fill-prefix. |
;; leading to excessive refilling and wrong choice of fill-prefix. |
115 |
;; might be a bug in my paragraphs.el. |
;; might be a bug in my paragraphs.el. |
116 |
(forward-paragraph) |
(forward-paragraph) |
|
(skip-syntax-backward "-") |
|
117 |
(let ((end (point)) |
(let ((end (point)) |
118 |
(beg (progn (backward-paragraph) (point))) |
(beg (progn (backward-paragraph) (point))) |
119 |
(obeg (overlay-start refill-ignorable-overlay)) |
(obeg (overlay-start refill-ignorable-overlay)) |
229 |
(when refill-ignorable-overlay |
(when refill-ignorable-overlay |
230 |
(delete-overlay refill-ignorable-overlay) |
(delete-overlay refill-ignorable-overlay) |
231 |
(kill-local-variable 'refill-ignorable-overlay)) |
(kill-local-variable 'refill-ignorable-overlay)) |
232 |
(when refill-late-fill-paragraph-function |
(when (local-variable-p 'refill-late-fill-paragraph-function) |
233 |
(setq fill-paragraph-function refill-late-fill-paragraph-function) |
(setq fill-paragraph-function refill-late-fill-paragraph-function) |
234 |
(kill-local-variable 'refill-late-fill-paragraph-function)) |
(kill-local-variable 'refill-late-fill-paragraph-function)) |
235 |
(if refill-mode |
(if refill-mode |