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

; Use an uninterned symbol in the inhibit-auto-revert expansion.

Browse source
This commit is contained in:
Tassilo Horn 2025-02-06 20:07:09 +01:00
parent 811d575336
commit be316dc1c7
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lisp/autorevert.el
View file

@ -781,22 +781,23 @@ If the buffer needs to be reverted, do it now."
"Deactivate auto-reverting of current buffer temporarily.
Run BODY."
(declare (indent 0) (debug (body)))
`(progn
;; Cleanup.
(dolist (buf inhibit-auto-revert-buffers)
(unless (buffer-live-p buf)
(setq inhibit-auto-revert-buffers
(delq buf inhibit-auto-revert-buffers))))
(let ((iar-buf
(and (not (memq (current-buffer) inhibit-auto-revert-buffers))
(current-buffer))))
(unwind-protect
(progn
(when iar-buf (add-to-list 'inhibit-auto-revert-buffers iar-buf))
,@body)
(when iar-buf
(let ((buf (make-symbol "buf")))
`(progn
;; Cleanup.
(dolist (,buf inhibit-auto-revert-buffers)
(unless (buffer-live-p ,buf)
(setq inhibit-auto-revert-buffers
(delq iar-buf inhibit-auto-revert-buffers))))))))
(delq ,buf inhibit-auto-revert-buffers))))
(let ((,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))
,@body)
(when ,buf
(setq inhibit-auto-revert-buffers
(delq ,buf inhibit-auto-revert-buffers)))))))))
(defun auto-revert-active-p ()
"Check if auto-revert is active in current buffer."