Mercurial > emacs
comparison lisp/dos-w32.el @ 18912:d6d9a466fad2
(find-buffer-file-type-coding-system,
find-buffer-process-coding-system): Remove second argument.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Tue, 22 Jul 1997 21:49:49 +0000 |
parents | 8c7bcffd7327 |
children | 95183e63d1dd |
comparison
equal
deleted
inserted
replaced
18911:6cf797f8b54c | 18912:d6d9a466fad2 |
---|---|
83 (setq code (cdr match)) | 83 (setq code (cdr match)) |
84 (cond ((memq code '(nil t)) code) | 84 (cond ((memq code '(nil t)) code) |
85 ((and (symbolp code) (fboundp code)) | 85 ((and (symbolp code) (fboundp code)) |
86 (funcall code filename))))))) | 86 (funcall code filename))))))) |
87 | 87 |
88 (defun find-buffer-file-type-coding-system (command args) | 88 (defun find-buffer-file-type-coding-system (command) |
89 "Choose a coding system for a file operation. | 89 "Choose a coding system for a file operation. |
90 If COMMAND is `insert-file-contents', the coding system is chosen based | 90 If COMMAND is `insert-file-contents', the coding system is chosen based |
91 upon the filename, the contents of `untranslated-filesystem-list' and | 91 upon the filename, the contents of `untranslated-filesystem-list' and |
92 `file-name-buffer-file-type-alist', and whether the file exists: | 92 `file-name-buffer-file-type-alist', and whether the file exists: |
93 | 93 |
210 (delete (untranslated-canonical-name filesystem) | 210 (delete (untranslated-canonical-name filesystem) |
211 untranslated-filesystem-list))) | 211 untranslated-filesystem-list))) |
212 | 212 |
213 ;; Process I/O decoding and encoding. | 213 ;; Process I/O decoding and encoding. |
214 | 214 |
215 (defun find-binary-process-coding-system (op args) | 215 (defun find-binary-process-coding-system (command) |
216 "Choose a coding system for process I/O. | 216 "Choose a coding system for process I/O. |
217 The coding system for decode is 'no-conversion' if 'binary-process-output' | 217 The coding system for decode is 'no-conversion' if 'binary-process-output' |
218 is non-nil, and 'undecided-dos' otherwise. Similarly, the coding system | 218 is non-nil, and 'undecided-dos' otherwise. Similarly, the coding system |
219 for encode is 'no-conversion' if 'binary-process-input' is non-nil, | 219 for encode is 'no-conversion' if 'binary-process-input' is non-nil, |
220 and 'undecided-dos' otherwise." | 220 and 'undecided-dos' otherwise." |