[Emacs-diffs] /srv/bzr/emacs/trunk r111495: * lisp/autorevert.el: Use cl-lib instead of cl.

[Stefan Monnier]

------------------------------------------------------------
revno: 111495
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-01-11 23:17:08 -0500
message:
  * lisp/autorevert.el: Use cl-lib instead of cl.
modified:
  lisp/ChangeLog
  lisp/autorevert.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-12 03:15:14 +0000
+++ b/lisp/ChangeLog    2013-01-12 04:17:08 +0000
@@ -1,5 +1,7 @@
 2013-01-12  Stefan Monnier  <address@hidden>
 
+       * 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

=== modified file 'lisp/autorevert.el'
--- a/lisp/autorevert.el        2013-01-11 22:54:42 +0000
+++ b/lisp/autorevert.el        2013-01-12 04:17:08 +0000
@@ -97,7 +97,7 @@
 
 ;; Dependencies:
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 (require 'timer)
 
 ;; Custom Group:
@@ -527,14 +527,14 @@
       (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