Commit 567c1ca9 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(abbrev-file-name): Drive letter can go beyond `Z' under MS-DOS/Novell.

(auto-mode-alist): Support txt and txi like text and texi.
(backup-buffer): Use convert-standard-filename.
(basic-save-buffer-1): Make the name of the temporary file (where
precious files are saved) conform to MS-DOS 8+3 constraints.

(convert-standard-filename): New function.
parent a8a7d065
......@@ -252,6 +252,13 @@ and ignores this variable.")
(inhibit-file-name-operation op))
(apply op args))))
(defun convert-standard-filename (filename)
"Convert a standard file's name to something suitable for the current OS.
This function's standard definition is trivial; it just returns the argument.
However, on some systems, the function is redefined
with a definition that really does change some file names."
(defun pwd ()
"Show the current default directory."
......@@ -630,10 +637,12 @@ Type \\[describe-variable] directory-abbrev-alist RET for more information."
;; If the home dir is just /, don't change it.
(not (and (= (match-end 0) 1)
(= (aref filename 0) ?/)))
;; MS-DOS root directories can come with a drive letter;
;; Novell Netware allows drive letters beyond `Z:'.
(not (and (or (eq system-type 'ms-dos)
(eq system-type 'windows-nt))
(string-match "^[a-zA-Z]:/$" filename)))))
(string-match "^[a-zA-`]:/$" filename)))))
(setq filename
(concat "~"
(substring filename (match-beginning 1) (match-end 1))
......@@ -886,7 +895,7 @@ run `normal-mode' explicitly."
(prin1-to-string err)))))
(defvar auto-mode-alist
'(("\\.text\\'" . text-mode)
'(("\\.te?xt\\'" . text-mode)
("\\.c\\'" . c-mode)
("\\.h\\'" . c-mode)
("\\.tex\\'" . tex-mode)
......@@ -921,7 +930,7 @@ run `normal-mode' explicitly."
;;; Less common extensions come here
;;; so more common ones above are found faster.
("\\.texinfo\\'" . texinfo-mode)
("\\.texi\\'" . texinfo-mode)
("\\.te?xi\\'" . texinfo-mode)
("\\.s\\'" . asm-mode)
("\\.S\\'" . asm-mode)
("\\.asm\\'" . asm-mode)
......@@ -1521,8 +1530,11 @@ the modes of the new file to agree with the old modes."
(setq setmodes (file-modes backupname)))
;; If trouble writing the backup, write it in ~.
(setq backupname (expand-file-name "~/%backup%~"))
(message "Cannot write backup file; backing up in ~/%%backup%%~")
(setq backupname (expand-file-name
(message "Cannot write backup file; backing up in %s"
(file-name-nondirectory backupname))
(sleep-for 1)
(condition-case ()
(copy-file real-file-name backupname t t)
......@@ -1850,7 +1862,11 @@ After saving the buffer, run `after-save-hook'."
(setq nogood t)
;; Find the temporary name to write under.
(while nogood
(setq tempname (format "%s#tmp#%d" dir i))
(setq tempname (format
(if (eq system-type 'ms-dos)
"" ; MSDOS limits files to 8+3
dir i))
(setq nogood (file-exists-p tempname))
(setq i (1+ i)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment