Lines Matching defs:buffer
43 (defvar file-name-buffer-file-type-alist
64 ;; Return the pair matching filename on file-name-buffer-file-type-alist,
66 (defun find-buffer-file-type-match (filename)
67 (let ((alist file-name-buffer-file-type-alist)
77 ;; Silence compiler. Defined in src/buffer.c on DOS_NT.
78 (defvar default-buffer-file-type)
81 (defun find-buffer-file-type (filename)
82 (let ((match (find-buffer-file-type-match filename))
85 default-buffer-file-type
91 (setq-default buffer-file-coding-system 'undecided-dos)
93 (defun find-buffer-file-type-coding-system (command)
99 of `untranslated-filesystem-list' and `file-name-buffer-file-type-alist',
105 If it matches in `file-name-buffer-file-type-alist':
110 If the file does not exist: default-buffer-file-coding-system
113 be a cons cell of the form \(FILENAME . BUFFER\), where BUFFER is a buffer
117 the value of `buffer-file-coding-system' and `buffer-file-type'. If
118 `buffer-file-coding-system' is non-nil, its value is used. If it is
119 nil and `buffer-file-type' is t, the coding system is `no-conversion'.
124 `untranslated-filesystem-list' and `file-name-buffer-file-type-alist'.
129 LFs are detected. In both cases, `buffer-file-coding-system' will be
131 `buffer-file-coding-system' will be used when writing the file."
140 ;; where BUFFER is a buffer into which the file was already read,
148 (setq binary (find-buffer-file-type target))
151 ((find-buffer-file-type-match target)
163 (t (cons default-buffer-file-coding-system
164 default-buffer-file-coding-system))))
166 (if buffer-file-coding-system
167 (cons buffer-file-coding-system
168 buffer-file-coding-system)
170 ;; buffer, because normally buffer-file-coding-system is non-nil
171 ;; in a file-visiting buffer.
172 (if buffer-file-type
176 (modify-coding-system-alist 'file "" 'find-buffer-file-type-coding-system)
181 (let ((file-name-buffer-file-type-alist '(("" . t))))
187 (let ((file-name-buffer-file-type-alist '(("" . nil))))
190 (defun find-file-not-found-set-buffer-file-coding-system ()
192 (set-buffer (current-buffer))
193 (let ((coding buffer-file-coding-system))
194 ;; buffer-file-coding-system is already set by
200 (untranslated-file-p (buffer-file-name))))
202 (setq buffer-file-coding-system coding))
203 (setq buffer-file-type (eq buffer-file-coding-system 'no-conversion)))))
207 'find-file-not-found-set-buffer-file-coding-system)
256 ;; with a directory, but RET returns the current buffer's file, not
306 (errbuf (list (get-buffer-create " *print-region-helper*") t)))
383 ;; sure it always happens that way, unless the buffer is binary.
415 ;; ignored, and `print-buffer' and `print-region' produce
416 ;; the same output as `lpr-buffer' and `lpr-region', accordingly.