andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enable sorting paragraphs when the final paragraph has no newline

Browse source 
* lisp/sort.el (sort-paragraphs): Ensure that when sorting
paragraphs, the final paragraph ends with a newline (bug#21785).
This commit is contained in:
Lars Ingebrigtsen 2019-08-23 03:43:41 +02:00
parent d08f7c4124
commit b4d3a882a8
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/sort.el
View file

@ -225,11 +225,17 @@ the sort order."
(narrow-to-region beg end)
(goto-char (point-min))
(sort-subr reverse
(function
(lambda ()
(while (and (not (eobp)) (looking-at paragraph-separate))
(forward-line 1))))
'forward-paragraph))))
(lambda ()
(while (and (not (eobp)) (looking-at paragraph-separate))
(forward-line 1)))
(lambda ()
(forward-paragraph)
;; If the buffer doesn't end with a newline, add a
;; newline to avoid having paragraphs being
;; concatenated after sorting.
(when (and (eobp)
(not (bolp)))
(insert "\n")))))))
;;;###autoload
(defun sort-pages (reverse beg end)