; Rename internal variable in inhibit-auto-revert

* lisp/autorevert.el (inhibit-auto-revert): Call internal variable
`iar-buf' in order not to mismatch with variables outside the macro.

(cherry picked from commit 811d575336942b1cd1e1c6fb50620babdf9cc82c)

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 9d972217e7066bfb58c78962caf5f24ea4a12085..787e69599ca13adc125405c7773e3f8281c5c1d3 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -787,15 +787,16 @@ Run BODY."
          (unless (buffer-live-p buf)
            (setq inhibit-auto-revert-buffers
                  (delq buf inhibit-auto-revert-buffers))))
-       (let ((buf (and (not (memq (current-buffer) inhibit-auto-revert-buffers))
-                       (current-buffer))))
+       (let ((iar-buf
+              (and (not (memq (current-buffer) inhibit-auto-revert-buffers))
+                   (current-buffer))))
          (unwind-protect
              (progn
-               (when buf (add-to-list 'inhibit-auto-revert-buffers buf))
+               (when iar-buf (add-to-list 'inhibit-auto-revert-buffers iar-buf))
                ,@body)
-           (when buf
+           (when iar-buf
              (setq inhibit-auto-revert-buffers
-                   (delq buf inhibit-auto-revert-buffers))))))))
+                   (delq iar-buf inhibit-auto-revert-buffers))))))))
 
 (defun auto-revert-active-p ()
   "Check if auto-revert is active in current buffer."