From c801ef032889ddd282f889606d2df59483ec5bdf Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 8 May 2017 23:56:28 -0400 Subject: [PATCH] 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. --- lisp/org.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 7dc839cc3..cf30b2177 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8849,10 +8849,11 @@ 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-at-item-p) #'org-sort-list) - (t #'org-sort-entries)) - with-case)) + (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)) (defun org-sort-remove-invisible (s) "Remove invisible part of links and emphasis markers from string S."