From 4b880ac1245e10e1ae80502dd58b174ffceea878 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 25 May 2007 15:00:22 +0000 Subject: [PATCH] (canonically-space-region): Make the second arg a marker if it's not already the case. --- lisp/textmodes/fill.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 85b16931ec8..4e45c164ae8 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -159,6 +159,11 @@ Leave one space between words, two at end of sentences or after colons and `sentence-end-without-period'). Remove indentation from each line." (interactive "*r") + ;; Ideally, we'd want to scan the text from the end, so that changes to + ;; text don't affect the boundary, but the regexp we match against does + ;; not match as eagerly when matching backward, so we instead use + ;; a marker. + (unless (markerp end) (setq end (copy-marker end t))) (let ((end-spc-re (concat "\\(" (sentence-end) "\\) *\\| +"))) (save-excursion (goto-char beg) -- 2.39.5