changeset 13749:2015901ab992

(make-backup-file-name, backup-file-name-p): Use ~ even on ms-dos.
author Karl Heuer <kwzh@gnu.org>
date Tue, 19 Dec 1995 21:30:13 +0000
parents d86c1aa43559
children 6a9cecd5bcfb
files lisp/files.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Tue Dec 19 21:10:33 1995 +0000
+++ b/lisp/files.el	Tue Dec 19 21:30:13 1995 +0000
@@ -1596,18 +1596,18 @@
   (if (eq system-type 'ms-dos)
       (let ((fn (file-name-nondirectory file)))
 	(concat (file-name-directory file)
-		(if (string-match "\\([^.]*\\)\\(\\..*\\)?" fn)
-		    (substring fn 0 (match-end 1)))
-		".bak"))
+		(or
+		 (and (string-match "\\`[^.]+\\'" fn)
+		      (concat (match-string 0 fn) ".~"))
+		 (and (string-match "\\`[^.]+\\.\\(..?\\)?" fn)
+		      (concat (match-string 0 fn) "~")))))
     (concat file "~")))
 
 (defun backup-file-name-p (file)
   "Return non-nil if FILE is a backup file name (numeric or not).
 This is a separate function so you can redefine it for customization.
 You may need to redefine `file-name-sans-versions' as well."
-  (if (eq system-type 'ms-dos)
-      (string-match "\\.bak$" file)
-    (string-match "~$" file)))
+    (string-match "~\\'" file))
 
 ;; This is used in various files.
 ;; The usage of bv-length is not very clean,