From b4e6c391d8a8bc2fcb69fc2be9daf003c34e0f3f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Jun 1990 18:35:14 +0000 Subject: [PATCH] *** empty log message *** --- lisp/textmodes/paragraphs.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index c0bd7793a10..87c14419b55 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -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)) -- 2.39.5