mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(cl-old-mapc): Fix definition.

Browse source 
(cl-mapc): Rename from mapc.  Fix the funcall.
This commit is contained in:
Dave Love 2000-04-19 22:31:21 +00:00
parent 5c6740c979
commit e10b9e3264
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-extra.el
View file

@ -152,14 +152,15 @@ the elements themselves."
(setq cl-list (cdr cl-list)))
(nreverse cl-res))))
(defvar cl-old-mapc (symbol-function 'mapc))
(defvar cl-old-mapc (prog1 (symbol-function 'mapc)
(defalias 'mapc 'cl-mapc)))
(defun mapc (cl-func cl-seq &rest cl-rest)
(defun cl-mapc (cl-func cl-seq &rest cl-rest)
"Like `mapcar', but does not accumulate values returned by the function."
(if cl-rest
(progn (apply 'map nil cl-func cl-seq cl-rest)
cl-seq)
(funcall #'cl-old-mapc cl-func cl-seq)))
(funcall cl-old-mapc cl-func cl-seq)))
(defun mapl (cl-func cl-list &rest cl-rest)
"Like `maplist', but does not accumulate values returned by the function."