diff options
| author | Richard M. Stallman <[email protected]> | 1990-06-27 18:35:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1990-06-27 18:35:14 +0000 |
| commit | b4e6c391d8a8bc2fcb69fc2be9daf003c34e0f3f (patch) | |
| tree | 7f31f9c5728df00894e560ab5535167f45446946 /lisp/textmodes | |
| parent | a5d81a4235cd69d009bac8c7bcbfa031b7f15b77 (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index c0bd7793a1..87c14419b5 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)) |