Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
bb157910
Commit
bb157910
authored
Jan 06, 1994
by
Richard M. Stallman
Browse files
[ms-dos] (make-backup-file-name, backup-file-name-p):
Use "*.bak" as backup file name. (user-init-file): new variable.
parent
a0dbb378
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
2 deletions
+18
-2
lisp/files.el
lisp/files.el
+18
-2
No files found.
lisp/files.el
View file @
bb157910
...
...
@@ -786,6 +786,7 @@ run `normal-mode' explicitly."
;;; 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 @@ run `normal-mode' explicitly."
;; .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 @@ Visiting a file whose name matches REGEXP causes FUNCTION to be called.")
(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 @@ we do not remove backup version numbers, only true file version numbers."
(
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,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment