Commit e2b1c424 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(cl-old-mapc): Removed; don't defalias mapc.

(cl-mapc): Use mapc instead of cl-old-mapc.
parent a2ff3819
......@@ -152,15 +152,12 @@ the elements themselves."
(setq cl-list (cdr cl-list)))
(nreverse cl-res))))
(defvar cl-old-mapc (prog1 (symbol-function 'mapc)
(defalias 'mapc 'cl-mapc)))
(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)))
(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."
......
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