mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

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

Browse source 
* 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

3
lisp/org.el
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))