diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 22:09:20 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 22:15:00 +0200 |
| commit | 8caa91b2ce4a27a9a11d8a7cf190a15b136768e7 (patch) | |
| tree | 6d614f15c87f5fa90b04461a4bb024a2387579fa | |
| parent | caabc5a4ab584e00417d3d1f9a2bf0ee9052b092 (diff) | |
| download | emacs-8caa91b2ce4a27a9a11d8a7cf190a15b136768e7.tar.gz | |
* lisp/vc/pcvs-util.el (cvs-partition): Simplify.
| -rw-r--r-- | lisp/vc/pcvs-util.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc/pcvs-util.el b/lisp/vc/pcvs-util.el index 702033dd88a..89f8d26880b 100644 --- a/lisp/vc/pcvs-util.el +++ b/lisp/vc/pcvs-util.el @@ -38,6 +38,7 @@ (apply #'append (mapcar (lambda (x) (if (listp x) x (list x))) xs))) (defun cvs-first (l &optional n) + ;; FIXME: Replace this with `seq-take'? (if (null n) (car l) (when l (let* ((nl (list (pop l))) @@ -53,10 +54,9 @@ The function returns a `cons' cell where the `car' contains elements of L for which P is true while the `cdr' contains the other elements. The ordering among elements is maintained." - (let (car cdr) - (dolist (x l) - (if (funcall p x) (push x car) (push x cdr))) - (cons (nreverse car) (nreverse cdr)))) + (let ((res (seq-group-by p l))) + (cons (cdr (assq t res)) + (cdr (assq nil res))))) ;;; ;;; frame, window, buffer handling |