Commit f6ed2e84 authored by Richard M. Stallman's avatar Richard M. Stallman

(syms_of_buffer): Set up Lisp var buffer-file-truename.

(init_buffer_once): Set up flag and default value for file_truename.
(reset_buffer): Init file_truename slot.
parent 8eb34fb9
......@@ -410,6 +410,7 @@ reset_buffer (b)
register struct buffer *b;
{
b->filename = Qnil;
b->file_truename = Qnil;
b->directory = (current_buffer) ? current_buffer->directory : Qnil;
b->modtime = 0;
XSETFASTINT (b->save_length, 0);
......@@ -2694,6 +2695,7 @@ init_buffer_once ()
XSETFASTINT (buffer_defaults.fill_column, 70);
XSETFASTINT (buffer_defaults.left_margin, 0);
buffer_defaults.cache_long_line_scans = Qnil;
buffer_defaults.file_truename = Qnil;
/* Assign the local-flags to the slots that have default values.
The local flag is a bit that is used in the buffer
......@@ -2716,6 +2718,7 @@ init_buffer_once ()
XSETINT (buffer_local_flags.undo_list, -1);
XSETINT (buffer_local_flags.mark_active, -1);
XSETINT (buffer_local_flags.point_before_scroll, -1);
XSETINT (buffer_local_flags.file_truename, -1);
XSETFASTINT (buffer_local_flags.mode_line_format, 1);
XSETFASTINT (buffer_local_flags.abbrev_mode, 2);
......@@ -3008,6 +3011,12 @@ It may not be a list of functions.");
"Name of file visited in current buffer, or nil if not visiting a file.\n\
Each buffer has its own value of this variable.");
DEFVAR_PER_BUFFER ("buffer-file-truename", &current_buffer->file_truename,
make_number (Lisp_String),
"Truename of file visited in current buffer, or nil if not visiting a file.\n\
The truename of a file is calculated by `file-truename'.\n\
Each buffer has its own value of this variable.");
DEFVAR_PER_BUFFER ("buffer-auto-save-file-name",
&current_buffer->auto_save_file_name,
make_number (Lisp_String),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment