aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2013-09-12 00:56:51 -0400
committerStefan Monnier2013-09-12 00:56:51 -0400
commitd3b049e6015c09a2d1ea101e5fb466c6ce9f61e0 (patch)
treeb2350e68e1a83f538a16ff0e82fb966e28e6ed95
parent56834f3b631601f6bfdb681a53fef77c3d777435 (diff)
downloademacs-d3b049e6015c09a2d1ea101e5fb466c6ce9f61e0.tar.gz
emacs-d3b049e6015c09a2d1ea101e5fb466c6ce9f61e0.zip
* lisp/autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we
rely on cl-return.
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/autorevert.el2
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 @@
12013-09-12 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * autorevert.el (auto-revert-notify-handler): Use `cl-dolist' since we
4 rely on cl-return.
5
12013-09-12 Glenn Morris <rgm@gnu.org> 62013-09-12 Glenn Morris <rgm@gnu.org>
2 7
3 * term/ns-win.el (global-map): Remove binding for ispell-next, 8 * term/ns-win.el (global-map): Remove binding for ispell-next,
@@ -18,8 +23,8 @@
18 23
19 * eshell/esh-mode.el (eshell-mode-syntax-table): Fix up initialization 24 * eshell/esh-mode.el (eshell-mode-syntax-table): Fix up initialization
20 (bug#15338). 25 (bug#15338).
21 (eshell-self-insert-command, eshell-send-invisible): Remove 26 (eshell-self-insert-command, eshell-send-invisible):
22 unused argument. 27 Remove unused argument.
23 (eshell-handle-control-codes): Remove unused var `orig'. 28 (eshell-handle-control-codes): Remove unused var `orig'.
24 Avoid delete-backward-char. 29 Avoid delete-backward-char.
25 30
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'"
548 (cl-assert (stringp file)) 548 (cl-assert (stringp file))
549 (when (eq action 'renamed) (cl-assert (stringp file1))) 549 (when (eq action 'renamed) (cl-assert (stringp file1)))
550 ;; Loop over all buffers, in order to find the intended one. 550 ;; Loop over all buffers, in order to find the intended one.
551 (dolist (buffer buffers) 551 (cl-dolist (buffer buffers)
552 (when (buffer-live-p buffer) 552 (when (buffer-live-p buffer)
553 (with-current-buffer buffer 553 (with-current-buffer buffer
554 (when (and (stringp buffer-file-name) 554 (when (and (stringp buffer-file-name)