mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(fill-region-as-paragraph): Skip spaces backward

Browse Source 
rather than using (match-beginning 0) when searching for break point.
Because match-data might have been destroyed by fill-nobreak-predicate
or might never have been setup if the re-search-backward has failed.
This commit is contained in:
Stefan Monnier 2001-02-22 20:09:13 +00:00
parent 8b3f7f7d93
commit cb91b2c7ee
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-02-22 Stefan Monnier <monnier@cs.yale.edu>
* textmodes/fill.el (fill-region-as-paragraph): Skip spaces backward
rather than using (match-beginning 0) when searching for break point.
2001-02-22 Eli Zaretskii <eliz@is.elta.co.il>
* textmodes/texinfmt.el (texinfo-format-scan): Signal an error if

8
lisp/textmodes/fill.el
View File

@ -531,7 +531,7 @@ space does not end a sentence, so don't break a line there."
(progn (forward-char -2) t))
(and fill-nobreak-predicate
(funcall fill-nobreak-predicate)
(goto-char (match-beginning 0))))
(skip-chars-backward " \t")))
(if (re-search-backward " \\|\\c|.\\|.\\c|" linebeg 0)
(forward-char 1)))
;; If the left margin and fill prefix by themselves
@ -688,7 +688,7 @@ space does not end a sentence, so don't break a line there."
(goto-char (match-end 0))))
(defun fill-paragraph (arg)
"Fill paragraph at or after point. Prefix arg means justify as well.
"Fill paragraph at or after point. Prefix ARG means justify as well.
If `sentence-end-double-space' is non-nil, then period followed by one
space does not end a sentence, so don't break a line there.
the variable `fill-column' controls the width for filling.
@ -696,7 +696,7 @@ the variable `fill-column' controls the width for filling.
If `fill-paragraph-function' is non-nil, we call it (passing our
argument to it), and if it returns non-nil, we simply return its value.
If `fill-paragraph-function' is nil, return the fill-prefix used for filling."
If `fill-paragraph-function' is nil, return the `fill-prefix' used for filling."
(interactive (progn
(barf-if-buffer-read-only)
(list (if current-prefix-arg 'full))))
@ -716,7 +716,7 @@ If `fill-paragraph-function' is nil, return the fill-prefix used for filling."
(let ((end (point))
(beg (progn (backward-paragraph) (point))))
(goto-char before)
(setq fill-pfx
(setq fill-pfx
(if use-hard-newlines
;; Can't use fill-region-as-paragraph, since this
;; paragraph may still contain hard newlines. See