diff options
| author | Michael Albinus | 2017-12-02 12:27:27 +0100 |
|---|---|---|
| committer | Michael Albinus | 2017-12-02 12:27:27 +0100 |
| commit | ac144dc835c2a759c96eee0b10c7b2196db3d17f (patch) | |
| tree | 64e898505c0c6f828d16c176e7925df63dae9044 | |
| parent | 1b351c8a479c571644cffec87a647257903188e0 (diff) | |
| download | emacs-ac144dc835c2a759c96eee0b10c7b2196db3d17f.tar.gz emacs-ac144dc835c2a759c96eee0b10c7b2196db3d17f.zip | |
* lisp/files.el (make-backup-file-name-1): Fix scoping error.
| -rw-r--r-- | lisp/files.el | 18 |
1 files 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." | |||
| 4673 | (if (eq (aref file 2) ?/) | 4673 | (if (eq (aref file 2) ?/) |
| 4674 | "" | 4674 | "" |
| 4675 | "/") | 4675 | "/") |
| 4676 | (substring file 2)))))) | 4676 | (substring file 2))))))) |
| 4677 | ;; Make the name unique by substituting directory | 4677 | ;; Make the name unique by substituting directory |
| 4678 | ;; separators. It may not really be worth bothering about | 4678 | ;; separators. It may not really be worth bothering about |
| 4679 | ;; doubling `!'s in the original name... | 4679 | ;; doubling `!'s in the original name... |
| 4680 | (expand-file-name | 4680 | (expand-file-name |
| 4681 | (subst-char-in-string | 4681 | (subst-char-in-string |
| 4682 | ?/ ?! | 4682 | ?/ ?! |
| 4683 | (replace-regexp-in-string "!" "!!" file)) | 4683 | (replace-regexp-in-string "!" "!!" file)) |
| 4684 | backup-directory))) | 4684 | backup-directory)) |
| 4685 | (expand-file-name (file-name-nondirectory file) | 4685 | (expand-file-name (file-name-nondirectory file) |
| 4686 | (file-name-as-directory abs-backup-directory)))))) | 4686 | (file-name-as-directory abs-backup-directory)))))) |
| 4687 | 4687 | ||