Mercurial > emacs

comparison lisp/textmodes/fill.el @ 108662:30ebb77362b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* textmodes/fill.el (fill-region): Don't fill past the end.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 May 2010 23:51:55 -0400
parents 1d1d5d9bd884
children d835100c3e8b 376148b31b5e
comparison
equal deleted inserted replaced
108661:0706b3de1aa0 108662:30ebb77362b6
1034 (fill-forward-paragraph 1) 1034 (fill-forward-paragraph 1)
1035 (setq end (min max (point))) 1035 (setq end (min max (point)))
1036 (fill-forward-paragraph -1)) 1036 (fill-forward-paragraph -1))
1037 (if (< (point) beg) 1037 (if (< (point) beg)
1038 (goto-char beg)) 1038 (goto-char beg))
1039 (if (>= (point) initial) 1039 (if (and (>= (point) initial) (< (point) end))
1040 (setq fill-pfx 1040 (setq fill-pfx
1041 (fill-region-as-paragraph (point) end justify nosqueeze)) 1041 (fill-region-as-paragraph (point) end justify nosqueeze))
1042 (goto-char end)))) 1042 (goto-char end))))
1043 fill-pfx)) 1043 fill-pfx))
1044 1044