# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760226222 0
# Node ID cbd0de32e99765fb1d7246123235f05c39b9eaab
# Parent  94535442be19e9eebfe521b3c81612d2fbd864db
(sort-paragraphs): Use proper paragraph definition instead of just checking
for whitespace.

diff -r 94535442be19 -r cbd0de32e997 lisp/sort.el
--- a/lisp/sort.el	Wed Feb 02 21:35:07 1994 +0000
+++ b/lisp/sort.el	Wed Feb 02 21:57:02 1994 +0000
@@ -211,7 +211,10 @@
       (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