From b81a01bbfbbe29e97adf548a8eb04202e333cd01 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 7 Jul 2025 15:50:43 +0100 Subject: [PATCH] ; vc-git-checkin, vc-hg-checkin: Delete unused lexical variable. (cherry picked from commit 83da45ddd0a941b67651890f138d2c64e398eb79) --- lisp/vc/vc-git.el | 3 +-- lisp/vc/vc-hg.el | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 306e92b6923..17ba37afcbc 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1144,8 +1144,7 @@ It is based on `log-edit-mode', and has Git-specific extensions." (defalias 'vc-git-async-checkins #'always) (defun vc-git-checkin (files comment &optional _rev) - (let* ((parent (current-buffer)) - (file1 (or (car files) default-directory)) + (let* ((file1 (or (car files) default-directory)) (root (vc-git-root file1)) (default-directory (expand-file-name root)) (only (or (cdr files) diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index b5556cfb3ba..761e802eb22 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -1219,8 +1219,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 ((parent (current-buffer)) - (args (nconc (list "commit" "-m") + (let ((args (nconc (list "commit" "-m") (vc-hg--extract-headers comment)))) (if vc-async-checkin (let ((buffer (vc-hg--async-buffer))) -- 2.39.5