diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/src/fileio.c b/src/fileio.c index 8290f01b58e..f3678cac0e5 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -173,9 +173,6 @@ Lisp_Object Vdefault_file_name_coding_system; | |||
| 173 | whose I/O is done with a special handler. */ | 173 | whose I/O is done with a special handler. */ |
| 174 | Lisp_Object Vfile_name_handler_alist; | 174 | Lisp_Object Vfile_name_handler_alist; |
| 175 | 175 | ||
| 176 | /* Format for auto-save files */ | ||
| 177 | Lisp_Object Vauto_save_file_format; | ||
| 178 | |||
| 179 | /* Lisp functions for translating file formats */ | 176 | /* Lisp functions for translating file formats */ |
| 180 | Lisp_Object Qformat_decode, Qformat_annotate_function; | 177 | Lisp_Object Qformat_decode, Qformat_annotate_function; |
| 181 | 178 | ||
| @@ -5313,8 +5310,8 @@ build_annotations (start, end) | |||
| 5313 | } | 5310 | } |
| 5314 | 5311 | ||
| 5315 | /* Now do the same for annotation functions implied by the file-format */ | 5312 | /* Now do the same for annotation functions implied by the file-format */ |
| 5316 | if (auto_saving && (!EQ (Vauto_save_file_format, Qt))) | 5313 | if (auto_saving && (!EQ (current_buffer->auto_save_file_format, Qt))) |
| 5317 | p = Vauto_save_file_format; | 5314 | p = current_buffer->auto_save_file_format; |
| 5318 | else | 5315 | else |
| 5319 | p = current_buffer->file_format; | 5316 | p = current_buffer->file_format; |
| 5320 | for (i = 0; CONSP (p); p = XCDR (p), ++i) | 5317 | for (i = 0; CONSP (p); p = XCDR (p), ++i) |
| @@ -6404,13 +6401,6 @@ instead use `file-name-coding-system' to get a constant encoding | |||
| 6404 | of file names regardless of the current language environment. */); | 6401 | of file names regardless of the current language environment. */); |
| 6405 | Vdefault_file_name_coding_system = Qnil; | 6402 | Vdefault_file_name_coding_system = Qnil; |
| 6406 | 6403 | ||
| 6407 | DEFVAR_LISP ("auto-save-file-format", &Vauto_save_file_format, | ||
| 6408 | doc: /* *Format in which to write auto-save files. | ||
| 6409 | Should be a list of symbols naming formats that are defined in `format-alist'. | ||
| 6410 | If it is t, which is the default, auto-save files are written in the | ||
| 6411 | same format as a regular save would use. */); | ||
| 6412 | Vauto_save_file_format = Qt; | ||
| 6413 | |||
| 6414 | Qformat_decode = intern ("format-decode"); | 6404 | Qformat_decode = intern ("format-decode"); |
| 6415 | staticpro (&Qformat_decode); | 6405 | staticpro (&Qformat_decode); |
| 6416 | Qformat_annotate_function = intern ("format-annotate-function"); | 6406 | Qformat_annotate_function = intern ("format-annotate-function"); |