; vc-git-checkin, vc-hg-checkin: Delete unused lexical variable.

(cherry picked from commit 83da45ddd0a941b67651890f138d2c64e398eb79)

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 306e92b69237f176babc842f796ba505301bfc5f..17ba37afcbc73f1c83ddf3772ca282e4194fc2c3 100644 (file)
--- 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 b5556cfb3ba81bbdde98ca74412ea89aea2e86f7..761e802eb229a80d1d0912dc7f5e092d2d7eed5a 100644 (file)
--- 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)))