Prevent "version control data is outdated" prompt
The prompt was too intrusive, so update vc state if buffer is modified instead.
This commit is contained in:
parent
c1046231ce
commit
93521ba5be
1 changed files with 7 additions and 10 deletions
|
@ -48,16 +48,13 @@
|
||||||
(defun +magit--revert-buffer (buffer)
|
(defun +magit--revert-buffer (buffer)
|
||||||
(with-current-buffer buffer
|
(with-current-buffer buffer
|
||||||
(kill-local-variable '+magit--stale-p)
|
(kill-local-variable '+magit--stale-p)
|
||||||
(let ((buffer (or (buffer-base-buffer) (current-buffer))))
|
(let* ((buffer (or (buffer-base-buffer) (current-buffer)))
|
||||||
(if-let (file (buffer-file-name buffer))
|
(file (buffer-file-name buffer)))
|
||||||
(and (file-exists-p file)
|
(if (or (buffer-modified-p buffer)
|
||||||
(or (not (buffer-modified-p buffer))
|
(and file (file-exists-p file)))
|
||||||
(y-or-n-p
|
(when (bound-and-true-p vc-mode)
|
||||||
(format "Version control data is outdated in %s, but it is unsaved. Revert anyway?"
|
(vc-refresh-state))
|
||||||
buffer)))
|
(revert-buffer t t)))))
|
||||||
(revert-buffer t t))
|
|
||||||
(when (and vc-mode (fboundp 'vc-refresh-state))
|
|
||||||
(vc-refresh-state))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +magit-mark-stale-buffers-h ()
|
(defun +magit-mark-stale-buffers-h ()
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue