diff --git a/lisp/simple.el b/lisp/simple.el index aad8d3b..23f7c4f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3014,6 +3014,13 @@ undo-auto--undoably-changed-buffers `undo-auto--boundaries' and can be affected by changes to their default values.") +(defun undo-auto--remove-buffer-from-changed-list () + "Remove current buffer from list of recently changed ones." + (setq undo-auto--undoably-changed-buffers + (delq (current-buffer) undo-auto--undoably-changed-buffers))) + +(add-hook 'kill-buffer-hook #'undo-auto--remove-buffer-from-changed-list) + (defun undo-auto--add-boundary () "Add an `undo-boundary' in appropriate buffers." (undo-auto--boundaries