Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 1348:31b70e3e9ce7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-03-09 13:24:46 by ben] oops again file-coding.c: Disable new check for the moment since it's all wrong and causes crashes.
author ben
date Sun, 09 Mar 2003 13:24:48 +0000
parents 8d350b095c21
children 210683f31426
comparison
equal deleted inserted replaced
1347:8d350b095c21 1348:31b70e3e9ce7
3853 break; 3853 break;
3854 } 3854 }
3855 break; 3855 break;
3856 } 3856 }
3857 3857
3858 #if 0
3859 /* #### Totally wrong as is, rewrite */
3858 /* Look for initial ;;;###coding system */ 3860 /* Look for initial ;;;###coding system */
3859 3861
3860 { 3862 {
3861 Bytecount ind = fast_string_match (QScoding_system_cookie, 3863 Bytecount ind = fast_string_match (QScoding_system_cookie,
3862 data, Qnil, 0, len, 0, ERROR_ME_NOT, 3864 data, Qnil, 0, len, 0, ERROR_ME_NOT,
3864 if (ind >= 0) 3866 if (ind >= 0)
3865 return 3867 return
3866 snarf_coding_system (data + ind + LENGTH (";;;###coding system: "), 3868 snarf_coding_system (data + ind + LENGTH (";;;###coding system: "),
3867 len - ind - LENGTH (";;;###coding system: ")); 3869 len - ind - LENGTH (";;;###coding system: "));
3868 } 3870 }
3871 #endif /* 0 */
3869 3872
3870 return Qnil; 3873 return Qnil;
3871 } 3874 }
3872 3875
3873 static Lisp_Object 3876 static Lisp_Object