From 978cdf40c164a7709ccc5c73ff87773c06d297d0 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 6 Feb 2025 16:56:07 +0100 Subject: [PATCH] ; 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) --- lisp/autorevert.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 9d972217e70..787e69599ca 100644 --- 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." -- 2.39.5