diff options
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 896640171c1..7b5bca4a4db 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2742,7 +2742,7 @@ See also `auto-save-file-name-p'." | |||
| 2742 | (if (and (eq system-type 'ms-dos) | 2742 | (if (and (eq system-type 'ms-dos) |
| 2743 | (not (msdos-long-file-names))) | 2743 | (not (msdos-long-file-names))) |
| 2744 | (let ((fn (file-name-nondirectory buffer-file-name))) | 2744 | (let ((fn (file-name-nondirectory buffer-file-name))) |
| 2745 | (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) | 2745 | (string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn) |
| 2746 | (concat (file-name-directory buffer-file-name) | 2746 | (concat (file-name-directory buffer-file-name) |
| 2747 | "#" (match-string 1 fn) | 2747 | "#" (match-string 1 fn) |
| 2748 | "." (match-string 3 fn) "#")) | 2748 | "." (match-string 3 fn) "#")) |