diff options
author | Richard M. Stallman <[email protected]> | 1994-04-27 08:35:48 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-04-27 08:35:48 +0000 |
commit | bf162ea86c154fd2b8d7f8244f841ecfccd9e34f (patch) | |
tree | 9edb11747e7de7ebd27609e359c38967729178c2 | |
parent | d9209dee0ac6bcb6f78680ba1241617f05f0ce3c (diff) |
(Finsert_file_contents): Fix accessing buffer_file_type
since it is t or nil. Change to handle t or nil as value
of find-buffer-file-type.
-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); |