Mercurial > emacs

changeset 952:ba6a993500d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Aug 1992 22:58:39 +0000
parents c23539669808
children 7c035a87c691
files lisp/vc.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."))