; Fix last change: ensure-list does not ensure a proper list

(cherry picked from commit 577ddbb9b79c067d296d50f3e8a04c193c1632b3)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 1c29770cee46bda51fef736e09b672055f7bd615..f2c863bf0c28a160cfc3166d6f39eb50df01a333 100644 (file)
--- 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))