sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-07-18 22:45:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix killing indirect buffers under auto-revert-mode

Browse source 
* lisp/autorevert.el (auto-revert-mode): Don't add indirect
buffers to 'auto-revert-buffer-list'.
(auto-revert-notify-rm-watch): Don't disable file notifications
when killing an indirect buffer.  (Bug#71424)
This commit is contained in:
Eli Zaretskii 2024-06-08 20:43:55 +03:00
parent 4468216f17
commit 772fb960a9
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/autorevert.el
View file

@ -401,7 +401,8 @@ Use `auto-revert-tail-mode' if you know that the file will only grow
without being changed in the part that is already in the buffer."
:group 'auto-revert :lighter auto-revert-mode-text
(if auto-revert-mode
(when (not (memq (current-buffer) auto-revert-buffer-list))
(when (and (not (buffer-base-buffer (current-buffer)))
(not (memq (current-buffer) auto-revert-buffer-list)))
(push (current-buffer) auto-revert-buffer-list)
(add-hook
'kill-buffer-hook
@ -639,7 +640,10 @@ will use an up-to-date value of `auto-revert-interval'."
(defun auto-revert-notify-rm-watch ()
"Disable file notification for current buffer's associated file."
(when-let ((desc auto-revert-notify-watch-descriptor))
(when-let ((desc
;; Don't disable notifications if this is an indirect buffer.
(and (null (buffer-base-buffer))
auto-revert-notify-watch-descriptor)))
(setq auto-revert--buffer-by-watch-descriptor
(assoc-delete-all desc auto-revert--buffer-by-watch-descriptor))
(ignore-errors