diff options
| author | Stefan Monnier | 2007-04-20 18:24:05 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-04-20 18:24:05 +0000 |
| commit | 03832c9d5b52e0d47b776f4a74854fdea84aeff9 (patch) | |
| tree | a2679899a728e40546b76135146511b56942da78 | |
| parent | c39bed4bb71cf6be70e730d4c3cd033328073b1a (diff) | |
| download | emacs-03832c9d5b52e0d47b776f4a74854fdea84aeff9.tar.gz emacs-03832c9d5b52e0d47b776f4a74854fdea84aeff9.zip | |
(fill-move-to-break-point): Don't inhibit
fill-nobreak-predicate when the break is past fill-column.
| -rw-r--r-- | lisp/ChangeLog | 25 | ||||
| -rw-r--r-- | lisp/textmodes/fill.el | 1 |
2 files changed, 15 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 569ed8ae6ab..ea94991f59a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-04-20 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * textmodes/fill.el (fill-move-to-break-point): Don't inhibit | ||
| 4 | fill-nobreak-predicate when the break is past fill-column. | ||
| 5 | |||
| 1 | 2007-04-20 Francesco Potort=8ec <pot@gnu.org> | 6 | 2007-04-20 Francesco Potort=8ec <pot@gnu.org> |
| 2 | 7 | ||
| 3 | * locate.el (locate): Output from shell-command should go in the | 8 | * locate.el (locate): Output from shell-command should go in the |
| @@ -113,8 +118,8 @@ | |||
| 113 | 118 | ||
| 114 | * textmodes/bibtex.el (bibtex-insert-kill): Pass non-nil NODELIM | 119 | * textmodes/bibtex.el (bibtex-insert-kill): Pass non-nil NODELIM |
| 115 | arg to bibtex-make-field. | 120 | arg to bibtex-make-field. |
| 116 | (bibtex-make-field): Add optional fourth arg NODELIM. Insert | 121 | (bibtex-make-field): Add optional fourth arg NODELIM. |
| 117 | delimiters around INIT unless this arg is non-nil. | 122 | Insert delimiters around INIT unless this arg is non-nil. |
| 118 | 123 | ||
| 119 | 2007-04-14 Nick Roberts <nickrob@snap.net.nz> | 124 | 2007-04-14 Nick Roberts <nickrob@snap.net.nz> |
| 120 | 125 | ||
| @@ -152,7 +157,7 @@ | |||
| 152 | window marked as dedicated. | 157 | window marked as dedicated. |
| 153 | 158 | ||
| 154 | * mail/footnote.el (footnote-latin-string): New variable. | 159 | * mail/footnote.el (footnote-latin-string): New variable. |
| 155 | (footnote-latin-regexp): Redefined as regexp alternative. | 160 | (footnote-latin-regexp): Redefine as regexp alternative. |
| 156 | (Footnote-latin): Use footnote-latin-string instead of | 161 | (Footnote-latin): Use footnote-latin-string instead of |
| 157 | footnote-latin-regexp. | 162 | footnote-latin-regexp. |
| 158 | 163 | ||
| @@ -182,17 +187,17 @@ | |||
| 182 | 187 | ||
| 183 | 2007-04-11 Markus Triska <markus.triska@gmx.at> | 188 | 2007-04-11 Markus Triska <markus.triska@gmx.at> |
| 184 | 189 | ||
| 185 | * emacs-lisp/byte-opt.el (byte-optimize-backward-char) | 190 | * emacs-lisp/byte-opt.el (byte-optimize-backward-char) |
| 186 | (byte-optimize-backward-word): Remove (move to bytecomp.el). | 191 | (byte-optimize-backward-word): Remove (move to bytecomp.el). |
| 187 | (byte-optimize-form-code-walker): Evaluate pure function calls if | 192 | (byte-optimize-form-code-walker): Evaluate pure function calls if |
| 188 | possible. | 193 | possible. |
| 189 | (byte-optimize-all-constp): New function. | 194 | (byte-optimize-all-constp): New function. |
| 190 | 195 | ||
| 191 | * emacs-lisp/bytecomp.el (byte-compile-char-before): Improve | 196 | * emacs-lisp/bytecomp.el (byte-compile-char-before): |
| 192 | numeric argument case. | 197 | Improve numeric argument case. |
| 193 | (byte-compile-backward-char, byte-compile-backward-word): New | 198 | (byte-compile-backward-char, byte-compile-backward-word): |
| 194 | functions, performing rewriting previously done in byte-opt.el. | 199 | New functions, performing rewriting previously done in byte-opt.el. |
| 195 | Fix their "Fixme" item (restriction to numeric arguments). | 200 | Fix their "Fixme" item (restriction to numeric arguments). |
| 196 | 201 | ||
| 197 | 2007-04-11 Stefan Monnier <monnier@iro.umontreal.ca> | 202 | 2007-04-11 Stefan Monnier <monnier@iro.umontreal.ca> |
| 198 | 203 | ||
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 7318a52d8a9..7b4f73c2d1f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -521,7 +521,6 @@ The break position will be always after LINEBEG and generally before point." | |||
| 521 | ;; Ok, skip at least one word or one \c| character. | 521 | ;; Ok, skip at least one word or one \c| character. |
| 522 | ;; Meanwhile, don't stop at a period followed by one space. | 522 | ;; Meanwhile, don't stop at a period followed by one space. |
| 523 | (let ((to (line-end-position)) | 523 | (let ((to (line-end-position)) |
| 524 | (fill-nobreak-predicate nil) ;to break sooner. | ||
| 525 | (first t)) | 524 | (first t)) |
| 526 | (goto-char linebeg) | 525 | (goto-char linebeg) |
| 527 | (while (and (< (point) to) (or first (fill-nobreak-p))) | 526 | (while (and (< (point) to) (or first (fill-nobreak-p))) |