diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-05-24 16:13:18 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-05-24 16:13:18 +0000 |
| commit | dff1336c122f3605a9437ecdfd0c50c5381872f9 (patch) | |
| tree | d477fe459ca7a13e4f201b75fb22b9808ad52531 /lisp | |
| parent | 274cb4e46d556c8b19e89d622065517bfb94db91 (diff) | |
| download | emacs-dff1336c122f3605a9437ecdfd0c50c5381872f9.tar.gz | |
(canonically-space-region): Make the second arg
a marker if it's not already the case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7e254153c3..98adf1a4da4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-05-24 Stefan Monnier <monnier@iro.umontreal.ca> + + * textmodes/fill.el (canonically-space-region): Make the second arg + a marker if it's not already the case. + 2007-05-23 Eli Zaretskii <eliz@gnu.org> * tar-mode.el (tar-header-block-summarize, tar-summarize-buffer) 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) |