[Emacs-diffs] trunk r114224: * lisp/autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we

[Stefan Monnier]

------------------------------------------------------------
revno: 114224
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-09-12 00:56:51 -0400
message:
  * lisp/autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we
  rely on cl-return.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/autorevert.el             
autorevert.el-20091113204419-o5vbwnq5f7feedwu-1197

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-12 01:32:45 +0000
+++ b/lisp/ChangeLog    2013-09-12 04:56:51 +0000
@@ -1,3 +1,8 @@
+2013-09-12  Stefan Monnier  <address@hidden>
+
+       * autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we
+       rely on cl-return.
+
 2013-09-12  Glenn Morris  <address@hidden>
 
        * term/ns-win.el (global-map): Remove binding for ispell-next,
@@ -18,8 +23,8 @@
 
        * eshell/esh-mode.el (eshell-mode-syntax-table): Fix up initialization
        (bug#15338).
-       (eshell-self-insert-command, eshell-send-invisible): Remove
-       unused argument.
+       (eshell-self-insert-command, eshell-send-invisible):
+       Remove unused argument.
        (eshell-handle-control-codes): Remove unused var `orig'.
        Avoid delete-backward-char.
 

=== modified file 'lisp/autorevert.el'
--- a/lisp/autorevert.el        2013-09-04 20:56:54 +0000
+++ b/lisp/autorevert.el        2013-09-12 04:56:51 +0000
@@ -548,7 +548,7 @@
         (cl-assert (stringp file))
         (when (eq action 'renamed) (cl-assert (stringp file1)))
         ;; Loop over all buffers, in order to find the intended one.
-        (dolist (buffer buffers)
+        (cl-dolist (buffer buffers)
           (when (buffer-live-p buffer)
             (with-current-buffer buffer
               (when (and (stringp buffer-file-name)