Mercurial > emacs
comparison src/fileio.c @ 8808:75316e76905c
(Finsert_file_contents) [MSDOS]: Don't re-gc-protect filename; delete unused
variables.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 16 Sep 1994 23:39:59 +0000 |
parents | e48d66b056fd |
children | 6bf0ce964319 |
comparison
equal
deleted
inserted
replaced
8807:1fb0575ee03a | 8808:75316e76905c |
---|---|
2856 #ifdef MSDOS | 2856 #ifdef MSDOS |
2857 /* Demacs 1.1.1 91/10/16 HIRANO Satoshi, MW July 1993 */ | 2857 /* Demacs 1.1.1 91/10/16 HIRANO Satoshi, MW July 1993 */ |
2858 /* Determine file type from name and remove LFs from CR-LFs if the file | 2858 /* Determine file type from name and remove LFs from CR-LFs if the file |
2859 is deemed to be a text file. */ | 2859 is deemed to be a text file. */ |
2860 { | 2860 { |
2861 struct gcpro gcpro1; | |
2862 Lisp_Object code; | |
2863 code = Qnil; | |
2864 GCPRO1 (filename); | |
2865 current_buffer->buffer_file_type | 2861 current_buffer->buffer_file_type |
2866 = call1 (Qfind_buffer_file_type, filename); | 2862 = call1 (Qfind_buffer_file_type, filename); |
2867 UNGCPRO; | |
2868 if (NILP (current_buffer->buffer_file_type)) | 2863 if (NILP (current_buffer->buffer_file_type)) |
2869 { | 2864 { |
2870 int reduced_size | 2865 int reduced_size |
2871 = inserted - crlf_to_lf (inserted, &FETCH_CHAR (point - 1) + 1); | 2866 = inserted - crlf_to_lf (inserted, &FETCH_CHAR (point - 1) + 1); |
2872 ZV -= reduced_size; | 2867 ZV -= reduced_size; |