diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-02 21:57:02 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-02 21:57:02 +0000 |
| commit | ee5a34086f6a0d2a06c8d6343d17dfb056f14773 (patch) | |
| tree | 4d7ff4dbd76d048bba675823e0c1a31f6867a98e /lisp/sort.el | |
| parent | 835cd48e6a2503f1f364f3160b77248c50516c5c (diff) | |
| download | emacs-ee5a34086f6a0d2a06c8d6343d17dfb056f14773.tar.gz | |
(sort-paragraphs): Use proper paragraph definition instead of just checking
for whitespace.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 5 |
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 |