diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-05-08 23:56:28 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-05-08 23:57:30 -0400 |
| commit | c801ef032889ddd282f889606d2df59483ec5bdf (patch) | |
| tree | 707096176ffc63a15650dcd198b96d0d488b9b95 | |
| parent | c1addc8252f360f44b329f09004202bfbbe92605 (diff) | |
| download | org-mode-c801ef032889ddd282f889606d2df59483ec5bdf.tar.gz | |
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.
| -rw-r--r-- | lisp/org.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7dc839c..cf30b21 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." |