diff options
| author | Miles Bader | 1996-07-03 02:05:46 +0000 |
|---|---|---|
| committer | Miles Bader | 1996-07-03 02:05:46 +0000 |
| commit | 5eb976147c8ed4756c48850e138126d5ae35af1d (patch) | |
| tree | 0c89aef4e4e8314d048757a8675edd096d927016 | |
| parent | cbd1aee2b14f0da381040210f81ec29db3246da5 (diff) | |
| download | emacs-5eb976147c8ed4756c48850e138126d5ae35af1d.tar.gz emacs-5eb976147c8ed4756c48850e138126d5ae35af1d.zip | |
(using-unix-filesystems): Doc fix.
| -rw-r--r-- | lisp/w32-fns.el | 9 |
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. |
| 154 | to a remote Unix file system. No CR/LF translation is done on any files | 154 | This is in effect assuming the files are on a remote Unix file system. |
| 155 | in this case. This behavior is activated when FLAG is t and deactived | 155 | If FLAG is nil, resume using CR/LF translation as usual." |
| 156 | when 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)) |