Mercurial > emacs

changeset 5453:691f7961e32c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[ms-dos] (make-backup-file-name, backup-file-name-p): Use "*.bak" as backup file name. (user-init-file): new variable.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Jan 1994 04:30:52 +0000
parents b328e9dec991
children 751ea2cff517
files lisp/files.el
diffstat 1 files changed, 18 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Thu Jan 06 04:29:50 1994 +0000
+++ b/lisp/files.el	Thu Jan 06 04:30:52 1994 +0000
@@ -786,6 +786,7 @@
 ;;; so more common ones above are found faster.
 				  ("\\.s\\'" . asm-mode)
 				  ("ChangeLog\\'" . change-log-mode)
+				  ("change.log\\'" . change-log-mode)
 				  ("ChangeLog.[0-9]+\\'" . change-log-mode)
 				  ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
 ;; The following should come after the ChangeLog pattern
@@ -819,6 +820,9 @@
 				  ;; .emacs following a directory delimiter
 				  ;; in either Unix or VMS syntax.
 				  ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode)
+				  ;; _emacs following a directory delimiter
+				  ;; in MsDos syntax
+				  ("[:/]_emacs\\'" . emacs-lisp-mode)
 				  ("\\.ml\\'" . lisp-mode)))
   "\
 Alist of filename patterns vs corresponding major mode functions.
@@ -828,6 +832,10 @@
 (defconst inhibit-local-variables-regexps '("\\.tar$")
   "List of regexps; if one matches a file name, don't look for local vars.")
 
+(defvar user-init-file
+  "" ; set by command-line
+  "File name including directory of user's initialization file.")
+
 (defun set-auto-mode ()
   "Select major mode appropriate for current buffer.
 This checks for a -*- mode tag in the buffer's text, or
@@ -1279,13 +1287,21 @@
 (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."
-  (concat file "~"))
+  (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"))
+    (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."
-  (string-match "~$" file))
+  (if (eq system-type 'ms-dos)
+      (string-match "\\.bak$" file)
+    (string-match "~$" file)))
 
 ;; This is used in various files.
 ;; The usage of bv-length is not very clean,