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:
parent
1f3ff33762
commit
24282a454e
1 changed files with 9 additions and 4 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue