procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2013-01-11 23:17:08 -05:00
parent a07846093f
commit 96c421bba7
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

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

16
lisp/autorevert.el
View file

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