# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 713314719 0
# Node ID ba6a993500d4936f82ab469ad61e458604e86bf0
# Parent  c235396698082101f73c3bdfc3f47663dae3d558
entered into RCS

diff -r c23539669808 -r ba6a993500d4 lisp/vc.el
--- a/lisp/vc.el	Fri Aug 07 21:31:57 1992 +0000
+++ b/lisp/vc.el	Sat Aug 08 22:58:39 1992 +0000
@@ -693,11 +693,14 @@
 
 ;;;###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."))