procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Rename internal variable in inhibit-auto-revert

Browse source 
* lisp/autorevert.el (inhibit-auto-revert): Call internal variable
`iar-buf' in order not to mismatch with variables outside the macro.
This commit is contained in:
Michael Albinus 2025-02-06 16:56:07 +01:00
parent ea04dd8ca9
commit 811d575336
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/autorevert.el
View file

@ -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."