mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source 
(cl-mapc): Use mapc instead of cl-old-mapc.
This commit is contained in:
Gerd Moellmann 2000-07-05 17:29:40 +00:00
parent a2ff3819f6
commit e2b1c42435
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/cl-extra.el
View File

@ -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."