diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-08 02:23:55 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-08 02:23:55 +0000 |
| commit | 71ed49fa37c34dbedbb38d534a7e6ee0ebdf4832 (patch) | |
| tree | 506ef9239981d5885fd3d13a56159cc894d7c2d0 | |
| parent | dc511a66bcb9bcfff6bf0cd668e80309807ea430 (diff) | |
| download | emacs-71ed49fa37c34dbedbb38d534a7e6ee0ebdf4832.tar.gz emacs-71ed49fa37c34dbedbb38d534a7e6ee0ebdf4832.tar.bz2 emacs-71ed49fa37c34dbedbb38d534a7e6ee0ebdf4832.zip | |
(reset_buffer, init_buffer_once): Handle auto_save_file_format field.
(syms_of_buffer): Add DEFVAR_PER_BUFFER for `buffer-auto-save-file-format'.
| -rw-r--r-- | src/buffer.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index bade501b1a7..c70831e155f 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -694,6 +694,7 @@ reset_buffer (b) b->mark_active = Qnil; b->point_before_scroll = Qnil; b->file_format = Qnil; + b->auto_save_file_format = Qt; b->last_selected_window = Qnil; XSETINT (b->display_count, 0); b->display_time = Qnil; @@ -4962,6 +4963,7 @@ init_buffer_once () buffer_defaults.undo_list = Qnil; buffer_defaults.mark_active = Qnil; buffer_defaults.file_format = Qnil; + buffer_defaults.auto_save_file_format = Qt; buffer_defaults.overlays_before = NULL; buffer_defaults.overlays_after = NULL; buffer_defaults.overlay_center = BEG; @@ -5020,6 +5022,7 @@ init_buffer_once () 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.auto_save_file_format, -1); XSETINT (buffer_local_flags.display_count, -1); XSETINT (buffer_local_flags.display_time, -1); XSETINT (buffer_local_flags.enable_multibyte_characters, -1); @@ -5830,6 +5833,13 @@ functions; it should only affect their performance. */); Formats are defined by `format-alist'. This variable is set when a file is visited. */); + DEFVAR_PER_BUFFER ("buffer-auto-save-file-format", + ¤t_buffer->auto_save_file_format, Qnil, + doc: /* *Format in which to write auto-save files. +Should be a list of symbols naming formats that are defined in `format-alist'. +If it is t, which is the default, auto-save files are written in the +same format as a regular save would use. */); + DEFVAR_PER_BUFFER ("buffer-invisibility-spec", ¤t_buffer->invisibility_spec, Qnil, doc: /* Invisibility spec of this buffer. |