(vc-rollback): Add norevert argument back.

(vc-revert-buffer): Add back as obsolete alias.

diff --git a/lisp/vc.el b/lisp/vc.el
index 78e098d874ffb12b51903add0c4c516babec4d23..2b2dd9fb8c9c4e139ff725760955756e4d00f3fc 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2635,6 +2635,9 @@ changes found in the master file; use \\[universal-argument] \\[vc-next-action]
     (vc-revert-file file)
     (message "Reverting %s...done" file)))
 
+;;;###autoload
+(define-obsolete-function-alias 'vc-revert-buffer 'vc-revert "23.1")
+
 ;;;###autoload
 (defun vc-update ()
   "Update the current buffer's file to the latest version on its branch.
@@ -2718,8 +2721,9 @@ return its name; otherwise return nil."
   (vc-resynch-buffer file t t))
 
 ;;;###autoload
-(defun vc-rollback ()
-  "Get rid of most recently checked in version of this file."
+(defun vc-rollback (&optional norevert)
+  "Get rid of most recently checked in version of this file.
+A prefix argument NOREVERT means do not revert the buffer afterwards."
   (interactive "P")
   (vc-ensure-vc-buffer)
   (let* ((file buffer-file-name)