From 880807e53668a0dbe82588cd7ee913fee5dc8e29 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 8 Apr 2025 15:12:17 +0800 Subject: [PATCH] ; Fix last change: ensure-list does not ensure a proper list (cherry picked from commit 577ddbb9b79c067d296d50f3e8a04c193c1632b3) --- lisp/vc/vc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 1c29770cee4..f2c863bf0c2 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1286,7 +1286,8 @@ BEWARE: this function may change the current buffer." FILES should be a pair, or list of pairs, of files and their VC states. BACKEND is the VC backend responsible for FILES." (let ((state (cdar files)) - (files* (mapcar #'car (ensure-list files)))) + (files* (mapcar #'car + (if (proper-list-p files) files (list files))))) ;; Check that all files are in a consistent state, since we use that ;; state to decide which operation to perform. (dolist (crt (cdr files)) -- 2.39.5