Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Sean Whitton 2025-07-07 15:50:43 +01:00
parent 6227a0412d
commit 83da45ddd0
2 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/vc/vc-git.el
View file

@ -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)

3
lisp/vc/vc-hg.el
View file

@ -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)))