Mercurial > emacs

changeset 5747:cbd0de32e997

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sort-paragraphs): Use proper paragraph definition instead of just checking for whitespace.
author Karl Heuer <kwzh@gnu.org>
date Wed, 02 Feb 1994 21:57:02 +0000
parents 94535442be19
children 96f85cde2fb4
files lisp/sort.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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