Mercurial > emacs
diff lisp/vc.el @ 85178:8ff5c5a5cd7f
Fix previous change.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 11 Oct 2007 23:32:32 +0000 |
| parents | 435ebb14becf |
| children | f8d1bb788744 d38543a1c0f9 |
line wrap: on
line diff
--- a/lisp/vc.el Thu Oct 11 22:21:17 2007 +0000 +++ b/lisp/vc.el Thu Oct 11 23:32:32 2007 +0000 @@ -1480,9 +1480,9 @@ ((stringp state) (let ((revision (if verbose - (read-string "Version to steal: ") - (vc-workfile-version file)))) - (mapc (lambda (file) (vc-steal-lock file version state) files)))) + (read-string "Revision to steal: ") + (vc-working-revision file)))) + (mapc (lambda (file) (vc-steal-lock file revision state) files)))) ;; needs-patch ((eq state 'needs-patch) (dolist (file files)