mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 10:41:57 -07:00
Code Issues Projects Releases Wiki Activity

(cvs-map): Avoid recursion :-(

Browse source
This commit is contained in:
Stefan Monnier 2008-04-07 14:25:02 +00:00
parent 5942951134
commit 14cfebb986
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs-util.el (cvs-map): Avoid recursion :-(
2008-04-07 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (calendar-mode-map): Replace use of kbd.

8
lisp/pcvs-util.el
View file

@ -51,9 +51,11 @@
(unless (member x ys) (push x zs)))))
(defun cvs-map (-cvs-map-f &rest -cvs-map-ls)
(unless (cvs-every 'null -cvs-map-ls)
(cons (apply -cvs-map-f (mapcar 'car -cvs-map-ls))
(apply 'cvs-map -cvs-map-f (mapcar 'cdr -cvs-map-ls)))))
(let ((accum ()))
(while (not (cvs-every 'null -cvs-map-ls))
(push (apply -cvs-map-f (mapcar 'car -cvs-map-ls)) accum)
(setq -cvs-map-ls (mapcar 'cdr -cvs-map-ls)))
(nreverse accum)))
(defun cvs-first (l &optional n)
(if (null n) (car l)