diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-07-28 11:30:00 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-07-28 11:30:00 +0200 |
| commit | ecccdfa3a4587b2e2139df87d7df04138b4e5218 (patch) | |
| tree | 8e1dc564158feeefee8c759801f97d5abbde6946 /lisp/magit-refs.el | |
| parent | da23111429a449834ef163f2e13391e74ed0c31a (diff) | |
Use cl-substitute instead of -replace
Diffstat (limited to 'lisp/magit-refs.el')
| -rw-r--r-- | lisp/magit-refs.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/magit-refs.el b/lisp/magit-refs.el index 9ecbd23..478c3e1 100644 --- a/lisp/magit-refs.el +++ b/lisp/magit-refs.el @@ -570,7 +570,9 @@ line is inserted at all." (concat "refs/remotes/" remote) magit-buffer-arguments)) (pcase-let ((`(,head-branch ,branch ,ref ,msg) - (-replace "" nil (split-string line "\0")))) + (cl-substitute "" nil + (split-string line "\0") + :test #'equal))) (if head-branch ;; Note: Use `ref' instead of `branch' for the check ;; below because 'refname:short' shortens the remote @@ -657,7 +659,7 @@ line is inserted at all." (defun magit-refs--format-local-branch (line) (pcase-let ((`(,head ,branch ,ref ,upstream ,u:ref ,u:track ,push ,p:ref ,p:track ,msg) - (-replace "" nil (split-string line "\0")))) + (cl-substitute "" nil (split-string line "\0") :test #'equal))) (when (or (not branch) (magit-refs--insert-refname-p branch)) (let* ((headp (equal head "*")) |