* lisp/vc/vc.el (vc-push): Fix when visiting untracked files.

This commit is contained in:
Sean Whitton 2026-02-14 15:32:08 +00:00
parent ee7c4ed5d8
commit f408460cb1

View file

@ -4726,9 +4726,8 @@ VCS command to run.
On a non-distributed version control system, this signals an error. On a non-distributed version control system, this signals an error.
It also signals an error in a Bazaar bound branch." It also signals an error in a Bazaar bound branch."
(interactive "P") (interactive "P")
(let* ((vc-fileset (vc-deduce-fileset t)) (let* ((fileset (vc-deduce-fileset t t))
(backend (car vc-fileset))) (backend (car fileset)))
;;; (files (cadr vc-fileset)))
(if (vc-find-backend-function backend 'push) (if (vc-find-backend-function backend 'push)
(progn (vc-call-backend backend 'push arg) (progn (vc-call-backend backend 'push arg)
;; FIXME: Ideally we would only clear out the ;; FIXME: Ideally we would only clear out the