mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

(make-auto-save-file-name): If long file names are not

Browse Source 
supported, truncate the file name to DOS 8+3 limits before
generating an auto-save file name from it.
This commit is contained in:
Eli Zaretskii 2001-09-13 12:41:41 +00:00
parent 66a863f059
commit 15233548ee
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-09-13 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (make-auto-save-file-name): If long file names are not
supported on MS-DOS, truncate the file name to DOS 8+3 limits before
generating an auto-save file name from it.
2001-09-13 Gerd Moellmann <gerd@gnu.org>
* ps-print.el (ps-print-region, ps-print-region-with-faces)

7
lisp/files.el
View File

@ -3264,7 +3264,12 @@ See also `auto-save-file-name-p'."
(if (and (eq system-type 'ms-dos)
(not (msdos-long-file-names)))
(let ((fn (file-name-nondirectory buffer-file-name)))
;; We truncate the file name to DOS 8+3 limits before
;; doing anything else, because the regexp passed to
;; string-match below cannot handle extensions longer than
;; 3 characters, multiple dots, and other atrocities.
(let ((fn (dos-8+3-filename
(file-name-nondirectory buffer-file-name))))
(string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn)
(concat (file-name-directory buffer-file-name)
"#" (match-string 1 fn)