diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-09-21 22:37:03 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-09-21 22:37:03 +0200 |
| commit | 84eaa203f3c70d55f29fbe6a8d6d9d5334cb6818 (patch) | |
| tree | ed4fb27080f6aa426995f969342ce6788875c48d /lisp/magit-refs.el | |
| parent | ae7f5e9fb4fa5253ec0ee64e06f7b3afc0cbee7f (diff) | |
Use seq-keep instead of delq and mapcar
Diffstat (limited to 'lisp/magit-refs.el')
| -rw-r--r-- | lisp/magit-refs.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/magit-refs.el b/lisp/magit-refs.el index d942b17..a097afe 100644 --- a/lisp/magit-refs.el +++ b/lisp/magit-refs.el @@ -623,17 +623,17 @@ line is inserted at all." (magit-make-margin-overlay nil t))) (defun magit-refs--format-local-branches () - (let ((lines (delq nil (mapcar #'magit-refs--format-local-branch - (magit-git-lines - "for-each-ref" - (concat "--format=\ + (let ((lines (seq-keep #'magit-refs--format-local-branch + (magit-git-lines + "for-each-ref" + (concat "--format=\ %(HEAD)%00%(refname:short)%00%(refname)%00\ %(upstream:short)%00%(upstream)%00%(upstream:track)%00" - (if magit-refs-show-push-remote "\ + (if magit-refs-show-push-remote "\ %(push:remotename)%00%(push)%00%(push:track)%00%(subject)" "%00%00%00%(subject)")) - "refs/heads" - magit-buffer-arguments))))) + "refs/heads" + magit-buffer-arguments)))) (unless (magit-get-current-branch) (push (magit-refs--format-local-branch (concat "*\0\0\0\0\0\0\0\0" (magit-rev-format "%s"))) |