* lisp/autorevert.el: Use cl-lib instead of cl.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b90a5ecd11e16522b7ec7feb2959ac11aeeb5691..665620ff375a42a9b26e75b767cfc583065b0e0a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-01-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * autorevert.el: Use cl-lib instead of cl.
+
        * vc/vc-bzr.el (vc-bzr--sanitize-header): New function (bug#13307).
        (vc-bzr-checkin): Use it.
        * vc/log-edit.el (log-edit-extract-headers): Don't presume FUNCTION

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index e78cecf0cc27ed13293fb8b8bad0a2894d992048..fae2b88b3e2974c3c9c6d4f7780c698a486ad710 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -97,7 +97,7 @@
 
 ;; Dependencies:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 (require 'timer)
 
 ;; Custom Group:
@@ -527,14 +527,14 @@ will use an up-to-date value of `auto-revert-interval'"
       (ignore-errors
        ;; Check, that event is meant for us.
        ;; TODO: Filter events which stop watching, like `move' or `removed'.
-       (assert descriptor)
-       (when (featurep 'inotify) (assert (memq 'modify descriptor)))
-       (when (featurep 'w32notify) (assert (eq 'modified descriptor)))
-       (assert (bufferp buffer))
+       (cl-assert descriptor)
+       (when (featurep 'inotify) (cl-assert (memq 'modify descriptor)))
+       (when (featurep 'w32notify) (cl-assert (eq 'modified descriptor)))
+       (cl-assert (bufferp buffer))
        (when (stringp file)
-         (assert (string-equal
-                  (directory-file-name file)
-                  (directory-file-name (buffer-file-name buffer)))))
+         (cl-assert (string-equal
+                      (directory-file-name file)
+                      (directory-file-name (buffer-file-name buffer)))))
 
        ;; Mark buffer modified.
        (with-current-buffer buffer