mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 02:20:21 -08:00
Code Issues Projects Releases Wiki Activity

(fill-region-as-paragraph): Fix previous change.

Browse source
This commit is contained in:
Karl Heuer 1999-07-27 20:06:20 +00:00
parent 071ebee939
commit e7029763ca
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/fill.el
View file

@ -546,9 +546,13 @@ space does not end a sentence, so don't break a line there."
;; character to find the correct break point. ;; character to find the correct break point.
(if (not (and (eq (charset-after (1- (point))) 'ascii) (if (not (and (eq (charset-after (1- (point))) 'ascii)
(eq (charset-after (point)) 'ascii))) (eq (charset-after (point)) 'ascii)))
(fill-find-break-point (+ linebeg ;; Make sure we take SOMETHING after the
(current-left-margin) ;; fill prefix if any.
(length fill-prefix)))))) (fill-find-break-point
(save-excursion
(goto-char linebeg)
(move-to-column prefixcol)
(point))))))
;; If the left margin and fill prefix by themselves ;; If the left margin and fill prefix by themselves
;; pass the fill-column, keep at least one word. ;; pass the fill-column, keep at least one word.