(dotimes, dolist): Undef prior to autoloading

new defs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fdc2e2cdb2993a9ac727860a6b90d6defe496c9a..6d8fcbe50493ddd04305050254a081dcabcc81ee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-05  Dave Love  <fx@gnu.org>
+
+       * emacs-lisp/cl.el (dotimes, dolist): Undef prior to autoloading
+       new defs.
+
 2001-03-05  Kenichi Handa  <handa@etl.go.jp>
 
        * language/ethio-util.el (ethio-toggle-space): Update

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 1b8bb838a8f9bf34e8a275935cc0078194236bb2..66947c01daa431062ba1b95f7b257b6b0abe25e4 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -552,6 +552,9 @@ Keywords supported:  :test :test-not :key"
   "Non-nil means don't make CL functions autoload.")
 
 ;;; Autoload the other portions of the package.
+;; We want to replace the basic versions of dolist, dotimes below.
+(fmakunbound 'dolist)
+(fmakunbound 'dotimes)
 (mapcar (function
         (lambda (set)
           (let ((file (if cl-fake-autoloads "<none>" (car set))))