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 | 7f47ef70013c257e253c9f979e761a08ce3d1ac4 (patch) | |
| tree | 6788bb51cf05b4bb5ffeaf3e59b5fdf063028810 /lisp/sort.el | |
| parent | 36dfe7370a7438ababb0f2ddebd9c6c27a5d7f3f (diff) | |
| download | emacs-7f47ef70013c257e253c9f979e761a08ce3d1ac4.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 |