mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(Finsert_file_contents): Fix accessing buffer_file_type

Browse source 
since it is t or nil.  Change to handle t or nil as value
of find-buffer-file-type.
This commit is contained in:
Richard M. Stallman 1994-04-27 08:35:48 +00:00
parent d9209dee0a
commit bf162ea86c
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fileio.c
View file

@ -2796,11 +2796,10 @@ and (2) it puts less data in the undo list.")
Lisp_Object code;
code = Qnil;
GCPRO1 (filename);
code = call1 (Qfind_buffer_file_type, filename);
current_buffer->buffer_file_type
= call1 (Qfind_buffer_file_type, filename);
UNGCPRO;
if (XTYPE (code) == Lisp_Int)
XFASTINT (current_buffer->buffer_file_type) = XFASTINT (code);
if (XFASTINT (current_buffer->buffer_file_type) == 0)
if (NILP (current_buffer->buffer_file_type))
{
int reduced_size
= inserted - crlf_to_lf (inserted, &FETCH_CHAR (point - 1) + 1);