comparison lisp/files.el @ 15269:b6381b3a6c99

(make-backup-file-name): Check msdos-long-file-names. (basic-save-buffer-1, make-auto-save-file-name): Likewise.

15268:18af2c80d4a1

	filename))))

(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)
      (let ((fn (file-name-nondirectory file)))
	(concat (file-name-directory file)
		(or
		 (and (string-match "\\`[^.]+\\'" fn)
		      (concat (match-string 0 fn) ".~"))

	    (setq i 0)
	    (setq nogood t)
	    ;; Find the temporary name to write under.
	    (while nogood
	      (setq tempname (format
			      (if (eq system-type 'ms-dos)
				  "%s#%d.tm#" ; MSDOS limits files to 8+3
				"%s#tmp#%d")
			      dir i))
	      (setq nogood (file-exists-p tempname))
	      (setq i (1+ i)))

  "Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
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)
	  (let ((fn (file-name-nondirectory buffer-file-name)))
		(string-match "\\`\\([^.]+\\)\\(\\.\\(..?\\)?.?\\|\\)\\'" fn)
	    (concat (file-name-directory buffer-file-name)
		    "#" (match-string 1 fn) 
		    "." (match-string 3 fn) "#"))

15269:b6381b3a6c99

	filename))))

(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 (and (eq system-type 'ms-dos)
	   (not (msdos-long-file-names)))
      (let ((fn (file-name-nondirectory file)))
	(concat (file-name-directory file)
		(or
		 (and (string-match "\\`[^.]+\\'" fn)
		      (concat (match-string 0 fn) ".~"))

	    (setq i 0)
	    (setq nogood t)
	    ;; Find the temporary name to write under.
	    (while nogood
	      (setq tempname (format
			      (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))
	      (setq nogood (file-exists-p tempname))
	      (setq i (1+ i)))

  "Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
before calling this function.  You can redefine this for customization.
See also `auto-save-file-name-p'."
  (if buffer-file-name
      (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)
		    "#" (match-string 1 fn) 
		    "." (match-string 3 fn) "#"))