From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 2 Dec 2017 11:27:27 +0000 (+0100)
Subject: * lisp/files.el (make-backup-file-name-1): Fix scoping error.
X-Git-Tag: emacs-26.0.91~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac144dc835;p=emacs.git

* lisp/files.el (make-backup-file-name-1): Fix scoping error.
---

diff --git a/lisp/files.el b/lisp/files.el
index 1bdb6d38ab9..ef4c2ea8185 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4673,15 +4673,15 @@ The function `find-backup-file-name' also uses this."
 				       (if (eq (aref file 2) ?/)
 					   ""
 				         "/")
-				       (substring file 2))))))
-	      ;; Make the name unique by substituting directory
-	      ;; separators.  It may not really be worth bothering about
-	      ;; doubling `!'s in the original name...
-	      (expand-file-name
-	       (subst-char-in-string
-	        ?/ ?!
-	        (replace-regexp-in-string "!" "!!" file))
-	       backup-directory)))
+				       (substring file 2)))))))
+	    ;; Make the name unique by substituting directory
+	    ;; separators.  It may not really be worth bothering about
+	    ;; doubling `!'s in the original name...
+	    (expand-file-name
+	     (subst-char-in-string
+	      ?/ ?!
+	      (replace-regexp-in-string "!" "!!" file))
+	     backup-directory))
 	(expand-file-name (file-name-nondirectory file)
 			  (file-name-as-directory abs-backup-directory))))))