+ else if (SYMBOLP (val))
+ {
+ Lisp_Object eolval;
+ eolval = Fget (val, Qeol_type);
+ if (VECTORP (eolval) && XVECTOR (eolval)->size > 1)
+ /* Use element 1 (CRLF conversion) for "text",
+ and element 0 (LF conversion) for "binary". */
+ val = XVECTOR (eolval)->contents[NILP (Vbinary_process_input)];
+ }
+#endif
+
+ specbind (intern ("coding-system-for-write"), val);
+ Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil);
+
+ /* Note that Fcall_process takes care of binding
+ coding-system-for-read. */