(default_buffer_file_coding): New variable.

(init_coding_once): Initialize default_buffer_file_coding.

diff --git a/src/coding.c b/src/coding.c
index 7e00f4a60fa606eafa2f342d3b67cc6ac80e8db1..3c69b07b9711b66c415d96e0e3ef98c9f2602edb 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -336,6 +336,9 @@ struct coding_system safe_terminal_coding;
 /* Coding system of what is sent from terminal keyboard.  */
 struct coding_system keyboard_coding;
 
+/* Default coding system to be used to write a file.  */
+struct coding_system default_buffer_file_coding;
+
 Lisp_Object Vfile_coding_system_alist;
 Lisp_Object Vprocess_coding_system_alist;
 Lisp_Object Vnetwork_coding_system_alist;
@@ -5182,6 +5185,7 @@ init_coding_once ()
   setup_coding_system (Qnil, &keyboard_coding);
   setup_coding_system (Qnil, &terminal_coding);
   setup_coding_system (Qnil, &safe_terminal_coding);
+  setup_coding_system (Qnil, &default_buffer_file_coding);
 
   bzero (coding_system_table, sizeof coding_system_table);