mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1990-06-27 18:35:14 +00:00
parent a5d81a4235
commit b4e6c391d8
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/paragraphs.el
View file

@ -130,7 +130,11 @@ negative arg -N means kill forward to Nth end of paragraph."
(forward-paragraph -1)
(setq npoint (point))
(skip-chars-forward " \t\n")
(if (>= (point) opoint)
;; If the range of blank lines found spans the original start point,
;; try again from the beginning of it.
;; Must be careful to avoid infinite loop
;; when following a single return at start of buffer.
(if (and (>= (point) opoint) (< npoint opoint))
(progn
(goto-char npoint)
(if (> npoint (point-min))