diff options
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6fc452545e5..904d04636f5 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2386,7 +2386,11 @@ Uses `backup-directory-alist' in the same way as does | |||
| 2386 | ;; Run a handler for this function so that ange-ftp can refuse to do it. | 2386 | ;; Run a handler for this function so that ange-ftp can refuse to do it. |
| 2387 | (if handler | 2387 | (if handler |
| 2388 | (funcall handler 'find-backup-file-name fn) | 2388 | (funcall handler 'find-backup-file-name fn) |
| 2389 | (if (eq version-control 'never) | 2389 | (if (or (eq version-control 'never) |
| 2390 | ;; We don't support numbered backups on plain MS-DOS | ||
| 2391 | ;; when long file names are unavailable. | ||
| 2392 | (and (eq system-type 'ms-dos) | ||
| 2393 | (not (msdos-long-file-names)))) | ||
| 2390 | (list (make-backup-file-name fn)) | 2394 | (list (make-backup-file-name fn)) |
| 2391 | (let* ((basic-name (make-backup-file-name-1 fn)) | 2395 | (let* ((basic-name (make-backup-file-name-1 fn)) |
| 2392 | (base-versions (concat (file-name-nondirectory basic-name) | 2396 | (base-versions (concat (file-name-nondirectory basic-name) |