Explorar o código

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.
Kyle Meyer %!s(int64=8) %!d(string=hai) anos
pai
achega
c801ef0328
Modificáronse 1 ficheiros con 5 adicións e 4 borrados
  1. 5 4
      lisp/org.el

+ 5 - 4
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."