diff options
| author | Stefan Monnier | 2013-09-12 00:56:51 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2013-09-12 00:56:51 -0400 |
| commit | d3b049e6015c09a2d1ea101e5fb466c6ce9f61e0 (patch) | |
| tree | b2350e68e1a83f538a16ff0e82fb966e28e6ed95 | |
| parent | 56834f3b631601f6bfdb681a53fef77c3d777435 (diff) | |
| download | emacs-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/ChangeLog | 9 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-09-12 Glenn Morris <rgm@gnu.org> | 6 | 2013-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) |