From 96c421bba786c56792fa842f222d046e52074505 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 Jan 2013 23:17:08 -0500 Subject: [PATCH] * lisp/autorevert.el: Use cl-lib instead of cl. --- lisp/ChangeLog | 2 ++ lisp/autorevert.el | 16 ++++++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b90a5ecd11e..665620ff375 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-01-12 Stefan Monnier + * 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 e78cecf0cc2..fae2b88b3e2 100644 --- 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 -- 2.39.5