diff options
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 24d0c503755..0fae44efd04 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -693,11 +693,14 @@ levels in the snapshot." ;;;###autoload (defun vc-revert-buffer () - "Revert the current buffer's file back to the latest version." + "Revert the current buffer's file back to the latest checked-in version. +This asks for confirmation if the buffer contents are not identical +to that version." (interactive) (let ((file buffer-file-name) (obuf (current-buffer)) (changed (vc-diff nil))) - (if (and changed (or vc-suppress-confirm (not (y-or-n-p "Discard changes? ")))) + (if (and changed (or vc-suppress-confirm + (not (yes-or-no-p "Discard changes? ")))) (progn (delete-window) (error "Revert cancelled.")) |