aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-04-20 18:24:05 +0000
committerStefan Monnier2007-04-20 18:24:05 +0000
commit03832c9d5b52e0d47b776f4a74854fdea84aeff9 (patch)
treea2679899a728e40546b76135146511b56942da78
parentc39bed4bb71cf6be70e730d4c3cd033328073b1a (diff)
downloademacs-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/ChangeLog25
-rw-r--r--lisp/textmodes/fill.el1
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 @@
12007-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
12007-04-20 Francesco Potort=8ec <pot@gnu.org> 62007-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
1192007-04-14 Nick Roberts <nickrob@snap.net.nz> 1242007-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
1832007-04-11 Markus Triska <markus.triska@gmx.at> 1882007-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
1972007-04-11 Stefan Monnier <monnier@iro.umontreal.ca> 2022007-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)))