mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Make sure sorting also works in files without final newline

Browse Source
This commit is contained in:
Carsten Dominik 2009-11-20 11:05:35 +01:00
parent 8085c9030f
commit ee3e435843
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-11-20 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-sort-entries-or-items): Make sure that the final
entry has a newline before doing the sorting.
* org-agenda.el (org-agenda-diary-entry-in-org-file): Get the text
property at the beginning of the line.

15
lisp/org.el
View File

@ -6861,7 +6861,9 @@ WITH-CASE, the sorting considers case as well."
((org-at-item-p)
;; we will sort this plain list
(org-beginning-of-item-list) (setq start (point))
(org-end-of-item-list) (setq end (point))
(org-end-of-item-list)
(or (bolp) (insert "\n"))
(setq end (point))
(goto-char start)
(setq plain-list-p t
what "plain list"))
@ -6871,6 +6873,7 @@ WITH-CASE, the sorting considers case as well."
(org-back-to-heading)
(setq start (point)
end (progn (org-end-of-subtree t t)
(or (bolp) (insert "\n"))
(org-back-over-empty-lines)
(point))
what "children")
@ -6881,7 +6884,15 @@ WITH-CASE, the sorting considers case as well."
;; we will sort the top-level entries in this file
(goto-char (point-min))
(or (org-on-heading-p) (outline-next-heading))
(setq start (point) end (point-max) what "top-level")
(setq start (point))
(goto-char (point-max))
(beginning-of-line 1)
(when (looking-at ".*?\\S-")
;; File ends in a non-white line
(end-of-line 1)
(insert "\n"))
(setq end (point-max))
(setq what "top-level")
(goto-char start)
(show-all)))