ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org.el
View File

@ -8849,10 +8849,11 @@ with the original repeater."
"Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'. "Call `org-sort-entries', `org-table-sort-lines' or `org-sort-list'.
Optional argument WITH-CASE means sort case-sensitively." Optional argument WITH-CASE means sort case-sensitively."
(interactive "P") (interactive "P")
(funcall (cond ((org-at-table-p) #'org-table-sort-lines) (org-call-with-arg
((org-at-item-p) #'org-sort-list) (cond ((org-at-table-p) #'org-table-sort-lines)
(t #'org-sort-entries)) ((org-at-item-p) #'org-sort-list)
with-case)) (t #'org-sort-entries))
with-case))
(defun org-sort-remove-invisible (s) (defun org-sort-remove-invisible (s)
"Remove invisible part of links and emphasis markers from string S." "Remove invisible part of links and emphasis markers from string S."