diff options
-rw-r--r-- | src/fileio.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/fileio.c b/src/fileio.c index 6e2a095f16..262cd387b1 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -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); |