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): Avoid error on reaching end of buffer.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-04-07 23:44:45 +00:00
parent 8cf19007fd
commit 42457d75fc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/textmodes/fill.el
View File

@ -402,7 +402,7 @@ space does not end a sentence, so don't break a line there."
(not (= ?\n (char-after end)))
(not (= end (point-max))))
(goto-char (1+ end)))
(setq end (min (point-max) (1+ end)))
(setq end (if end (min (point-max) (1+ end)) (point-max)))
(goto-char initial))
(forward-paragraph 1)
(setq end (point))