comparison src/buffer.c @ 18178:b45b431879bf

(init_buffer_once): Inititialize the member buffer_file_coding_system. (syms_of_buffer): Declare Lisp variables default-buffer-file-coding-system and buffer-file-coding-system.

18177:cf5b766b9da2

#ifdef DOS_NT
  buffer_defaults.buffer_file_type = Qnil; /* TEXT */
#endif
  buffer_defaults.enable_multibyte_characters = Qt;
  XSETFASTINT (buffer_defaults.fill_column, 70);
  XSETFASTINT (buffer_defaults.left_margin, 0);
  buffer_defaults.cache_long_line_scans = Qnil;
  buffer_defaults.file_truename = Qnil;
  XSETFASTINT (buffer_defaults.display_count, 0);

  XSETFASTINT (buffer_local_flags.category_table, 0x20000);
  XSETFASTINT (buffer_local_flags.direction_reversed, 0x40000);
  XSETFASTINT (buffer_local_flags.enable_multibyte_characters, 0x80000);
  /* Make this one a permanent local.  */
  buffer_permanent_local_flags |= 0x80000;

  Vbuffer_alist = Qnil;
  current_buffer = 0;
  all_buffers = 0;

  QSFundamental = build_string ("Fundamental");

 
   DEFVAR_LISP_NOPRO ("default-enable-multibyte-characters",
 	      &buffer_defaults.enable_multibyte_characters,
     "Default value of `enable-multibyte-characters' for buffers not overriding it.\n\
 This is the same as (default-value 'enable-multibyte-characters).");
 
  DEFVAR_LISP_NOPRO ("default-truncate-lines",
	      &buffer_defaults.truncate_lines,
    "Default value of `truncate-lines' for buffers that do not override it.\n\
This is the same as (default-value 'truncate-lines).");

  DEFVAR_PER_BUFFER ("enable-multibyte-characters",
		     &current_buffer->enable_multibyte_characters, Qnil,
    "Non-nil means the buffer contents are regarded as multi-byte form\n\
of characters, not a binary code.  This affects the display, file I/O,\n\
and behaviors of various editing commands.");

  DEFVAR_PER_BUFFER ("direction-reversed", &current_buffer->direction_reversed,
		     Qnil,
    "*Non-nil means lines in the buffer are displayed right to left.");

18178:b45b431879bf

#ifdef DOS_NT
  buffer_defaults.buffer_file_type = Qnil; /* TEXT */
#endif
  buffer_defaults.enable_multibyte_characters = Qt;
  buffer_defaults.buffer_file_coding_system = Qnil;
  XSETFASTINT (buffer_defaults.fill_column, 70);
  XSETFASTINT (buffer_defaults.left_margin, 0);
  buffer_defaults.cache_long_line_scans = Qnil;
  buffer_defaults.file_truename = Qnil;
  XSETFASTINT (buffer_defaults.display_count, 0);

  XSETFASTINT (buffer_local_flags.category_table, 0x20000);
  XSETFASTINT (buffer_local_flags.direction_reversed, 0x40000);
  XSETFASTINT (buffer_local_flags.enable_multibyte_characters, 0x80000);
  /* Make this one a permanent local.  */
  buffer_permanent_local_flags |= 0x80000;
  XSETFASTINT (buffer_local_flags.buffer_file_coding_system, 0x100000);
  /* Make this one a permanent local.  */
  buffer_permanent_local_flags |= 0x100000;
  
  Vbuffer_alist = Qnil;
  current_buffer = 0;
  all_buffers = 0;

  QSFundamental = build_string ("Fundamental");

 
   DEFVAR_LISP_NOPRO ("default-enable-multibyte-characters",
 	      &buffer_defaults.enable_multibyte_characters,
     "Default value of `enable-multibyte-characters' for buffers not overriding it.\n\
 This is the same as (default-value 'enable-multibyte-characters).");
 
   DEFVAR_LISP_NOPRO ("default-buffer-file-coding-system",
 	      &buffer_defaults.buffer_file_coding_system,
     "Default value of `buffer-file-coding-system' for buffers not overriding it.\n\
 This is the same as (default-value 'buffer-file-coding-system).");
 
  DEFVAR_LISP_NOPRO ("default-truncate-lines",
	      &buffer_defaults.truncate_lines,
    "Default value of `truncate-lines' for buffers that do not override it.\n\
This is the same as (default-value 'truncate-lines).");

  DEFVAR_PER_BUFFER ("enable-multibyte-characters",
		     &current_buffer->enable_multibyte_characters, Qnil,
    "Non-nil means the buffer contents are regarded as multi-byte form\n\
of characters, not a binary code.  This affects the display, file I/O,\n\
and behaviors of various editing commands.");

  DEFVAR_PER_BUFFER ("buffer-file-coding-system",
		     &current_buffer->buffer_file_coding_system, Qnil,
    "Coding system to be used for encoding the buffer contents on saving.\n\
If it is nil, the buffer is saved without any code conversion unless\n\
some coding system is specified in file-coding-system-alist\n\
for the buffer file.\n\
\n\
This variable is never applied to a way of decoding\n\
a file while reading it.");

  DEFVAR_PER_BUFFER ("direction-reversed", &current_buffer->direction_reversed,
		     Qnil,
    "*Non-nil means lines in the buffer are displayed right to left.");