Fix revert-buffer--default error after using magit

It too aggressively tries to revert all buffers, even ones that can't be
reverted.
This commit is contained in:
Henrik Lissner 2020-02-24 19:23:37 -05:00
parent 1f3ff33762
commit 24282a454e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -43,12 +43,17 @@
;;
;;; Auto-revert
(defvar-local +magit--stale-p nil)
(defvar +magit--stale-p nil)
(defun +magit--revert-buffer (buffer)
(with-current-buffer buffer
(setq +magit--stale-p nil)
(revert-buffer t (not (buffer-modified-p)))))
(kill-local-variable '+magit--stale-p)
(if (buffer-file-name (buffer-base-buffer))
(and (or (not (buffer-modified-p))
(y-or-n-p "Version control data is outdated in this buffer, but it is unsaved. Revert anyway?"))
(revert-buffer t t))
(when (and vc-mode (fboundp 'vc-refresh-state))
(vc-refresh-state)))))
;;;###autoload
(defun +magit-mark-stale-buffers-h ()
@ -61,7 +66,7 @@ modified."
(if (get-buffer-window buffer)
(+magit--revert-buffer buffer)
(with-current-buffer buffer
(setq +magit--stale-p t))))))
(setq-local +magit--stale-p t))))))
;;;###autoload
(defun +magit-revert-buffer-maybe-h ()