From e48592ef3bc0734bcc4655cc3863f35a30e14437 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 12 Aug 2025 20:26:18 +0100 Subject: [PATCH] * lisp/vc/vc-hg.el (vc-hg-checkin): Pass '-A' to 'hg commit'. --- lisp/vc/vc-hg.el | 2 +- lisp/vc/vc.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index b39a8c6928a..5bb826d555f 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -1216,7 +1216,7 @@ It is based on `log-edit-mode', and has Hg-specific extensions.") (defun vc-hg-checkin (files comment &optional _rev) "Hg-specific version of `vc-BACKEND-checkin'. REV is ignored." - (let ((args (nconc (list "commit" "-m") + (let ((args (nconc (list "commit" "-A" "-m") (vc-hg--extract-headers comment)))) (if vc-async-checkin (let ((buffer (vc-hg--async-buffer))) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 135762fc806..f2972f10e6a 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1604,7 +1604,7 @@ from which to check out the file(s)." ;; If committing a mix of removed and edited files, the ;; fileset has state = 'edited. Rather than checking the ;; state of each individual file in the fileset, it seems - ;; simplest to just check if the file exists. Bug#9781. + ;; simplest to just check if the file exists. Bug#9781. (when (and (file-exists-p file) (not (file-writable-p file))) ;; Make the file-buffer read-write. (unless (y-or-n-p (format "%s is edited but read-only; make it writable and continue? " file))