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;