; Fix last patch

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/files.el b/lisp/files.el
index ba6004686e7..6f6e8687f52 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6923,7 +6923,7 @@ only these files will be asked to be saved."
     (save-match-data
       (while (consp file-arg-indices)
         (let ((pair (nthcdr (car file-arg-indices) arguments)))
-          (and (car pair) (setcar pair (file-name-unquote 2))))
+          (and (car pair) (setcar pair (file-name-unquote (car pair)))))
         (setq file-arg-indices (cdr file-arg-indices))))
     (pcase method
       (`identity (car arguments))
@@ -6935,7 +6935,7 @@ only these files will be asked to be saved."
            (when (and visit buffer-file-name)
              (setq buffer-file-name (file-name-quote buffer-file-name))))))
       (`unquote-then-quote
-       (let ((buffer-file-name (substring buffer-file-name 2)))
+       (let ((buffer-file-name (file-name-unquote buffer-file-name)))
          (apply operation arguments)))
       (_
        (apply operation arguments)))))