diff lisp/files.el @ 15269:b6381b3a6c99

(make-backup-file-name): Check msdos-long-file-names. (basic-save-buffer-1, make-auto-save-file-name): Likewise.
author Karl Heuer <kwzh@gnu.org>
date Tue, 21 May 1996 17:21:25 +0000
parents 4f2cfe6ee83c
children 19008fd7774d
line wrap: on
line diff
--- a/lisp/files.el	Tue May 21 15:42:13 1996 +0000
+++ b/lisp/files.el	Tue May 21 17:21:25 1996 +0000
@@ -1667,7 +1667,8 @@
 (defun make-backup-file-name (file)
   "Create the non-numeric backup file name for FILE.
 This is a separate function so you can redefine it for customization."
-  (if (eq system-type 'ms-dos)
+  (if (and (eq system-type 'ms-dos)
+	   (not (msdos-long-file-names)))
       (let ((fn (file-name-nondirectory file)))
 	(concat (file-name-directory file)
 		(or
@@ -1920,7 +1921,8 @@
 	    ;; Find the temporary name to write under.
 	    (while nogood
 	      (setq tempname (format
-			      (if (eq system-type 'ms-dos)
+			      (if (and (eq system-type 'ms-dos)
+				       (not (msdos-long-file-names)))
 				  "%s#%d.tm#" ; MSDOS limits files to 8+3
 				"%s#tmp#%d")
 			      dir i))
@@ -2419,7 +2421,8 @@
 before calling this function.  You can redefine this for customization.
 See also `auto-save-file-name-p'."
   (if buffer-file-name
-      (if (eq system-type 'ms-dos)
+      (if (and (eq system-type 'ms-dos)
+	       (not (msdos-long-file-names)))
 	  (let ((fn (file-name-nondirectory buffer-file-name)))
 		(string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn)
 	    (concat (file-name-directory buffer-file-name)