From d3b049e6015c09a2d1ea101e5fb466c6ce9f61e0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Sep 2013 00:56:51 -0400 Subject: [PATCH] * lisp/autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we rely on cl-return. --- lisp/ChangeLog | 9 +++++++-- lisp/autorevert.el | 2 +- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9fe56865046..61e9c9bf708 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-09-12 Stefan Monnier + + * autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we + rely on cl-return. + 2013-09-12 Glenn Morris * 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. diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 0e2b6f32cf3..65526f07e1b 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -548,7 +548,7 @@ will use an up-to-date value of `auto-revert-interval'" (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) -- 2.39.2