فهرست منبع

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 8 سال پیش
والد
کامیت
c801ef0328
1فایلهای تغییر یافته به همراه5 افزوده شده و 4 حذف شده
  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."