diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 7447fab0888..afe3f4ebbda 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -4258,7 +4258,10 @@ It also signals an error in a Bazaar bound branch." (backend (car vc-fileset))) ;;; (files (cadr vc-fileset))) (if (vc-find-backend-function backend 'push) - (vc-call-backend backend 'push arg) + (progn (vc-call-backend backend 'push arg) + ;; FIXME: Ideally we would only clear out the + ;; REMOTE-LOCATION to which we are pushing. + (vc--repo-setprop 'vc-incoming-revision nil)) (user-error "VC push is unsupported for `%s'" backend)))) ;;;###autoload