Commit b4e6c391 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent a5d81a42
...@@ -130,7 +130,11 @@ negative arg -N means kill forward to Nth end of paragraph." ...@@ -130,7 +130,11 @@ negative arg -N means kill forward to Nth end of paragraph."
(forward-paragraph -1) (forward-paragraph -1)
(setq npoint (point)) (setq npoint (point))
(skip-chars-forward " \t\n") (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 (progn
(goto-char npoint) (goto-char npoint)
(if (> npoint (point-min)) (if (> npoint (point-min))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment