org-sort: Go back to calling org-sort-* functions interactively

* lisp/org.el (org-sort): Revert change from c1addc825 that replaced
org-call-with-arg with funcall because org-table-sort-lines changes
its behavior based on the return value of called-interactively-p.
This commit is contained in:
Kyle Meyer 2017-05-08 23:56:28 -04:00
parent c1addc8252
commit c801ef0328
1 changed files with 5 additions and 4 deletions

View File

@ -8849,7 +8849,8 @@ with the original repeater."
"Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'.
Optional argument WITH-CASE means sort case-sensitively."
(interactive "P")
(funcall (cond ((org-at-table-p) #'org-table-sort-lines)
(org-call-with-arg
(cond ((org-at-table-p) #'org-table-sort-lines)
((org-at-item-p) #'org-sort-list)
(t #'org-sort-entries))
with-case))