From ac144dc835c2a759c96eee0b10c7b2196db3d17f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 2 Dec 2017 12:27:27 +0100 Subject: [PATCH] * lisp/files.el (make-backup-file-name-1): Fix scoping error. --- lisp/files.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) 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)))))) -- 2.39.5