mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases 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'.
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."