diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-07-31 17:02:46 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-07-31 17:02:46 +0200 |
| commit | 70843f133c0cc0fb41894ee52410584331117258 (patch) | |
| tree | f6fe77b50e13e3c257187c26b499a284ba71d699 /lisp/magit-refs.el | |
| parent | e8152c76bf636805c0eb9027083d0ff10d28d1a8 (diff) | |
Fix switch from -replace to cl-substitute
When creating [1: ecccdfa3a4], I did not notice that the argument
order differs between these functions.
1: 2023-07-28 ecccdfa3a4587b2e2139df87d7df04138b4e5218
Use cl-substitute instead of -replace
Diffstat (limited to 'lisp/magit-refs.el')
| -rw-r--r-- | lisp/magit-refs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/magit-refs.el b/lisp/magit-refs.el index 868e099..6a7d074 100644 --- a/lisp/magit-refs.el +++ b/lisp/magit-refs.el @@ -571,7 +571,7 @@ line is inserted at all." (concat "refs/remotes/" remote) magit-buffer-arguments)) (pcase-let ((`(,head-branch ,branch ,ref ,msg) - (cl-substitute "" nil + (cl-substitute nil "" (split-string line "\0") :test #'equal))) (if head-branch @@ -660,7 +660,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) - (cl-substitute "" nil (split-string line "\0") :test #'equal))) + (cl-substitute nil "" (split-string line "\0") :test #'equal))) (when (or (not branch) (magit-refs--insert-refname-p branch)) (let* ((headp (equal head "*")) |