summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSebastian Reuße <seb@wirrsal.net>2018-03-13 17:51:45 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-03-20 09:25:14 +0100
commit1af7f303d5351c2fb9e3fea94438a399a88ea9a7 (patch)
treec0856f8feac7d1f2e56332655d9b19633881a657
parent681f870b25a2005f76c99a929a0f5c9b3b481a6b (diff)
downloadorg-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.el12
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)