Commit f26d858e authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(find-backup-file-name) [ms-dos]: If support for long

file names is not available, behave as if version-control were set
to never.
parent 97ea7b55
...@@ -2386,7 +2386,11 @@ Uses `backup-directory-alist' in the same way as does ...@@ -2386,7 +2386,11 @@ Uses `backup-directory-alist' in the same way as does
;; Run a handler for this function so that ange-ftp can refuse to do it. ;; Run a handler for this function so that ange-ftp can refuse to do it.
(if handler (if handler
(funcall handler 'find-backup-file-name fn) (funcall handler 'find-backup-file-name fn)
(if (eq version-control 'never) (if (or (eq version-control 'never)
;; We don't support numbered backups on plain MS-DOS
;; when long file names are unavailable.
(and (eq system-type 'ms-dos)
(not (msdos-long-file-names))))
(list (make-backup-file-name fn)) (list (make-backup-file-name fn))
(let* ((basic-name (make-backup-file-name-1 fn)) (let* ((basic-name (make-backup-file-name-1 fn))
(base-versions (concat (file-name-nondirectory basic-name) (base-versions (concat (file-name-nondirectory basic-name)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment