Commit 0de47be5 authored by Jonas Bernoulli's avatar Jonas Bernoulli

Use cl-mapcan instead of mapcan

Older Emacsen do not have the latter.
parent 4f578ad3
......@@ -232,7 +232,8 @@ remote or replace the refspecs with the default refspec instead."
(magit-confirm 'prune-stale-refspecs nil
(format "Prune %%i stale refspecs and %i branches"
(length (mapcan (lambda (s) (copy-sequence (cdr s))) stale)))
(length (cl-mapcan (lambda (s) (copy-sequence (cdr s)))
(mapcar (pcase-lambda (`(,refspec . ,refs))
(concat refspec "\n"
(mapconcat (lambda (b) (concat " " b))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment