# HG changeset patch # User Kenichi Handa # Date 857042155 0 # Node ID fdad8ea24563e7a765d49e9a5fd07217c31d1393 # Parent 7130bd0ea697e83413bc14ad34439ae77fd09ef3 (init_buffer_once): Make member enable_multibyte_characters of struct buffer not always local. (reset_buffer): Do not reset b->enable_multibyte_characters. (syms_of_buffer): Declare default-enable-multibyte-characters. diff -r 7130bd0ea697 -r fdad8ea24563 src/buffer.c --- a/src/buffer.c Thu Feb 27 11:15:29 1997 +0000 +++ b/src/buffer.c Thu Feb 27 11:15:55 1997 +0000 @@ -476,7 +476,6 @@ b->mark_active = Qnil; b->point_before_scroll = Qnil; b->file_format = Qnil; - b->enable_multibyte_characters = Qt; b->last_selected_window = Qnil; b->extra2 = Qnil; b->extra3 = Qnil; @@ -3517,6 +3516,7 @@ #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; @@ -3546,7 +3546,6 @@ XSETINT (buffer_local_flags.file_truename, -1); XSETINT (buffer_local_flags.invisibility_spec, -1); XSETINT (buffer_local_flags.file_format, -1); - XSETINT (buffer_local_flags.enable_multibyte_characters, -1); XSETFASTINT (buffer_local_flags.mode_line_format, 1); XSETFASTINT (buffer_local_flags.abbrev_mode, 2); @@ -3573,6 +3572,9 @@ XSETFASTINT (buffer_local_flags.cache_long_line_scans, 0x10000); 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; @@ -3718,6 +3720,11 @@ "Default value of `direction_reversed' for buffers that do not override it.\n\ This is the same as (default-value 'direction-reversed)."); + 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\