From a92b30a61ee2092c2edc43a4d8bc38fd1e265dc0 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 5 Aug 2007 21:46:00 +0000 Subject: [PATCH] (vc-rollback): Add norevert argument back. (vc-revert-buffer): Add back as obsolete alias. --- lisp/vc.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 78e098d874f..2b2dd9fb8c9 100644 --- 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) -- 2.39.5