From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 8 Dec 2016 17:33:26 +0000 (+0100)
Subject: ; Fix last patch
X-Git-Tag: emacs-26.0.90~1151
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c685e4c92909b2ae0140953417e0d856eb34ba33;p=emacs.git

; Fix last patch
---

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