Permalink
Browse files

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

(cl-mapc): Use mapc instead of cl-old-mapc.
  • Loading branch information...
1 parent 7931b70 commit 6ee766ac2014c6596c0813a4c1a3b04164d0686b Gerd Moellmann committed Jul 5, 2000
Showing with 1 addition and 4 deletions.
  1. +1 −4 lisp/emacs-lisp/cl-extra.el
@@ -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."

0 comments on commit 6ee766a

Please sign in to comment.