diff options
author | Sebastian Reuße <seb@wirrsal.net> | 2018-03-13 17:51:45 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-03-20 09:25:14 +0100 |
commit | 1af7f303d5351c2fb9e3fea94438a399a88ea9a7 (patch) | |
tree | c0856f8feac7d1f2e56332655d9b19633881a657 | |
parent | 681f870b25a2005f76c99a929a0f5c9b3b481a6b (diff) | |
download | org-mode-1af7f303d5351c2fb9e3fea94438a399a88ea9a7.tar.gz |
Guard against empty headings when sorting
* org.el (org-sort-entries): Guard against empty headings when sorting
alphabetically, numerically.
Due to how ‘org-complex-heading-regexp’ is defined, the title capture group
currently returns nil in empty headings, which we don’t want to pass on to
‘org-sort-remove-invisible’.
-rw-r--r-- | lisp/org.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index 73ab32a..15bc0e8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8734,15 +8734,11 @@ function is being called interactively." (lambda () (cond ((= dcst ?n) - (if (looking-at org-complex-heading-regexp) - (string-to-number - (org-sort-remove-invisible (match-string 4))) - nil)) + (string-to-number + (org-sort-remove-invisible (org-get-heading t t t t)))) ((= dcst ?a) - (if (looking-at org-complex-heading-regexp) - (funcall case-func - (org-sort-remove-invisible (match-string 4))) - nil)) + (funcall case-func + (org-sort-remove-invisible (org-get-heading t t t t)))) ((= dcst ?k) (or (get-text-property (point) :org-clock-minutes) 0)) ((= dcst ?t) |