diff options
| author | Stefan Monnier | 2003-04-02 23:57:17 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-04-02 23:57:17 +0000 |
| commit | 657059d02fe5521386be08f60ccca6f801099405 (patch) | |
| tree | dfefac8b0d59242027ec8a6a53582d64560f4c46 | |
| parent | dbe3ba524d31191eb214adc6c8273d14c7dc60a2 (diff) | |
| download | emacs-657059d02fe5521386be08f60ccca6f801099405.tar.gz emacs-657059d02fe5521386be08f60ccca6f801099405.zip | |
(refill-fill-paragraph-at): Don't preserve the trailing space since
fill.el doesn't remove it anymore.
(refill-mode): Reset fill-paragraph-function even if it was nil.
| -rw-r--r-- | lisp/textmodes/refill.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el index 820936dc113..985604701cf 100644 --- a/lisp/textmodes/refill.el +++ b/lisp/textmodes/refill.el | |||
| @@ -114,7 +114,6 @@ This is used to optimize refilling.") | |||
| 114 | ;; leading to excessive refilling and wrong choice of fill-prefix. | 114 | ;; leading to excessive refilling and wrong choice of fill-prefix. |
| 115 | ;; might be a bug in my paragraphs.el. | 115 | ;; might be a bug in my paragraphs.el. |
| 116 | (forward-paragraph) | 116 | (forward-paragraph) |
| 117 | (skip-syntax-backward "-") | ||
| 118 | (let ((end (point)) | 117 | (let ((end (point)) |
| 119 | (beg (progn (backward-paragraph) (point))) | 118 | (beg (progn (backward-paragraph) (point))) |
| 120 | (obeg (overlay-start refill-ignorable-overlay)) | 119 | (obeg (overlay-start refill-ignorable-overlay)) |
| @@ -230,7 +229,7 @@ refilling if they would cause auto-filling." | |||
| 230 | (when refill-ignorable-overlay | 229 | (when refill-ignorable-overlay |
| 231 | (delete-overlay refill-ignorable-overlay) | 230 | (delete-overlay refill-ignorable-overlay) |
| 232 | (kill-local-variable 'refill-ignorable-overlay)) | 231 | (kill-local-variable 'refill-ignorable-overlay)) |
| 233 | (when refill-late-fill-paragraph-function | 232 | (when (local-variable-p 'refill-late-fill-paragraph-function) |
| 234 | (setq fill-paragraph-function refill-late-fill-paragraph-function) | 233 | (setq fill-paragraph-function refill-late-fill-paragraph-function) |
| 235 | (kill-local-variable 'refill-late-fill-paragraph-function)) | 234 | (kill-local-variable 'refill-late-fill-paragraph-function)) |
| 236 | (if refill-mode | 235 | (if refill-mode |