Mercurial > emacs

comparison src/fileio.c @ 6498:676612edbafe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Finsert_file_contents): Use assignment, not initialization.
author Karl Heuer <kwzh@gnu.org>
date Wed, 23 Mar 1994 22:28:22 +0000
parents 62db5566c287
children e29adbacde1d
comparison
equal deleted inserted replaced
6497:89ff61b53cee 6498:676612edbafe
2761 /* Demacs 1.1.1 91/10/16 HIRANO Satoshi, MW July 1993 */ 2761 /* Demacs 1.1.1 91/10/16 HIRANO Satoshi, MW July 1993 */
2762 /* Determine file type from name and remove LFs from CR-LFs if the file 2762 /* Determine file type from name and remove LFs from CR-LFs if the file
2763 is deemed to be a text file. */ 2763 is deemed to be a text file. */
2764 { 2764 {
2765 struct gcpro gcpro1; 2765 struct gcpro gcpro1;
2766 Lisp_Object code = Qnil; 2766 Lisp_Object code;
2767 code = Qnil;
2767 GCPRO1 (filename); 2768 GCPRO1 (filename);
2768 code = call1 (Qfind_buffer_file_type, filename); 2769 code = call1 (Qfind_buffer_file_type, filename);
2769 UNGCPRO; 2770 UNGCPRO;
2770 if (XTYPE (code) == Lisp_Int) 2771 if (XTYPE (code) == Lisp_Int)
2771 XFASTINT (current_buffer->buffer_file_type) = XFASTINT (code); 2772 XFASTINT (current_buffer->buffer_file_type) = XFASTINT (code);