aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader1996-07-03 02:05:46 +0000
committerMiles Bader1996-07-03 02:05:46 +0000
commit5eb976147c8ed4756c48850e138126d5ae35af1d (patch)
tree0c89aef4e4e8314d048757a8675edd096d927016
parentcbd1aee2b14f0da381040210f81ec29db3246da5 (diff)
downloademacs-5eb976147c8ed4756c48850e138126d5ae35af1d.tar.gz
emacs-5eb976147c8ed4756c48850e138126d5ae35af1d.zip
(using-unix-filesystems): Doc fix.
-rw-r--r--lisp/w32-fns.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index 28b75194d5f..036c41a3c81 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -150,10 +150,9 @@ against the file name, and TYPE is nil for text, t for binary.")
150 150
151;; Really should provide this capability at the drive letter granularity. 151;; Really should provide this capability at the drive letter granularity.
152(defun using-unix-filesystems (flag) 152(defun using-unix-filesystems (flag)
153 "Read and write all files assuming that they are on a drive attached 153 "Read and write files without CR/LF translation, if FLAG is non-nil.
154to a remote Unix file system. No CR/LF translation is done on any files 154This is in effect assuming the files are on a remote Unix file system.
155in this case. This behavior is activated when FLAG is t and deactived 155If FLAG is nil, resume using CR/LF translation as usual."
156when FLAG is any other value."
157 (if flag 156 (if flag
158 (progn 157 (progn
159 (add-hook 'write-file-hooks 'save-to-unix-hook) 158 (add-hook 'write-file-hooks 'save-to-unix-hook)
@@ -162,7 +161,7 @@ when FLAG is any other value."
162 (remove-hook 'write-file-hooks 'save-to-unix-hook) 161 (remove-hook 'write-file-hooks 'save-to-unix-hook)
163 (remove-hook 'after-save-hook 'revert-from-unix-hook)))) 162 (remove-hook 'after-save-hook 'revert-from-unix-hook))))
164 163
165;;; Avoid creating auto-save file names containing illegal characters 164;;; Avoid creating auto-save file names containing invalid characters
166;;; (primarily "*", eg. for the *mail* buffer). 165;;; (primarily "*", eg. for the *mail* buffer).
167(fset 'original-make-auto-save-file-name 166(fset 'original-make-auto-save-file-name
168 (symbol-function 'make-auto-save-file-name)) 167 (symbol-function 'make-auto-save-file-name))