(sort-paragraphs): Use proper paragraph definition instead of just checking

for whitespace.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/sort.el b/lisp/sort.el
index b9aa5b22e6e..61fa2988317 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -211,7 +211,10 @@ REVERSE (non-nil means reverse order), BEG and END (region to sort)."
       (narrow-to-region beg end)
       (goto-char (point-min))
       (sort-subr reverse
-                 (function (lambda () (skip-chars-forward "\n \t\f")))
+                 (function
+                  (lambda ()
+                    (while (and (not (eobp)) (looking-at paragraph-separate))
+                      (forward-line 1))))
                  'forward-paragraph))))
 
 ;;;###autoload