emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/git-commit 95d5be9ac3 15/15: No longer use certain obscure


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 95d5be9ac3 15/15: No longer use certain obscure dash functions
Date: Mon, 31 Jul 2023 10:00:22 -0400 (EDT)

branch: elpa/git-commit
commit 95d5be9ac3d79b8cee9434a6b0a0463b1b36da67
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    No longer use certain obscure dash functions
---
 lisp/magit-ediff.el    | 2 +-
 lisp/magit-wip.el      | 3 ++-
 lisp/magit-worktree.el | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/magit-ediff.el b/lisp/magit-ediff.el
index a207ad1f92..6cd42ad95f 100644
--- a/lisp/magit-ediff.el
+++ b/lisp/magit-ediff.el
@@ -383,7 +383,7 @@ range)."
                         "Compare range or commit"
                         nil mbase))))
     (--if-let (magit-split-range input)
-        (-cons-to-list it)
+        (list (car it) (cdr it))
       (list input nil))))
 
 (defun magit-ediff-read-files (revA revB &optional fileB)
diff --git a/lisp/magit-wip.el b/lisp/magit-wip.el
index 0852a0597d..2c522a6f5f 100644
--- a/lisp/magit-wip.el
+++ b/lisp/magit-wip.el
@@ -437,7 +437,8 @@ many \"branches\" of each wip ref are shown."
   (interactive
    (nconc (list (magit-completing-read
                  "Log branch and its wip refs"
-                 (-snoc (magit-list-local-branch-names) "HEAD")
+                 (nconc (magit-list-local-branch-names)
+                        (list "HEAD"))
                  nil t nil 'magit-revision-history
                  (or (magit-branch-at-point)
                      (magit-get-current-branch)
diff --git a/lisp/magit-worktree.el b/lisp/magit-worktree.el
index 83db2e45b9..dd19a11ec8 100644
--- a/lisp/magit-worktree.el
+++ b/lisp/magit-worktree.el
@@ -178,7 +178,7 @@ If there is only one worktree, then insert nothing."
                             (bare "(bare)"))
                            config)))
                  worktrees))
-               (align (1+ (-max (--map (string-width (car it)) cols)))))
+               (align (1+ (apply #'max (--map (string-width (car it)) cols)))))
           (pcase-dolist (`(,head . ,config) cols)
             (magit--insert-worktree
              config



reply via email to

[Prev in Thread] Current Thread [Next in Thread]