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

This commit is contained in:
Michael Albinus 2017-12-02 12:27:27 +01:00
parent 1b351c8a47
commit ac144dc835

View file

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