Start using partial

emacscollective · Feb 5, 2025 · dad7206 · dad7206
1 parent 24cb7d7
commit dad7206
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/.dir-locals.el b/.dir-locals.el
@@ -1,4 +1,8 @@
 ((nil
   (indent-tabs-mode . nil))
+ (emacs-lisp-mode
+  (read-symbol-shorthands
+   ("partial" . "llama--left-apply-partially")
+   ("rpartial" . "llama--right-apply-partially")))
  (".github"
   (nil . ((truncate-lines . nil)))))
diff --git a/lisp/epkg-org.el b/lisp/epkg-org.el
@@ -56,7 +56,7 @@ Usage:
           (prev nil)
           (n 0))
       (when (numberp (car header))
-        (setq sort (apply-partially (lambda (n r) (nth n r)) (car header)))
+        (setq sort (partial #'nth (car header)))
         (setq header (cdr header)))
       (dolist (row rows)
         (unless (eq row 'hline)