173 |
whose I/O is done with a special handler. */ |
whose I/O is done with a special handler. */ |
174 |
Lisp_Object Vfile_name_handler_alist; |
Lisp_Object Vfile_name_handler_alist; |
175 |
|
|
|
/* Format for auto-save files */ |
|
|
Lisp_Object Vauto_save_file_format; |
|
|
|
|
176 |
/* Lisp functions for translating file formats */ |
/* Lisp functions for translating file formats */ |
177 |
Lisp_Object Qformat_decode, Qformat_annotate_function; |
Lisp_Object Qformat_decode, Qformat_annotate_function; |
178 |
|
|
5369 |
} |
} |
5370 |
|
|
5371 |
/* Now do the same for annotation functions implied by the file-format */ |
/* Now do the same for annotation functions implied by the file-format */ |
5372 |
if (auto_saving && (!EQ (Vauto_save_file_format, Qt))) |
if (auto_saving && (!EQ (current_buffer->auto_save_file_format, Qt))) |
5373 |
p = Vauto_save_file_format; |
p = current_buffer->auto_save_file_format; |
5374 |
else |
else |
5375 |
p = current_buffer->file_format; |
p = current_buffer->file_format; |
5376 |
for (i = 0; CONSP (p); p = XCDR (p), ++i) |
for (i = 0; CONSP (p); p = XCDR (p), ++i) |
6488 |
of file names regardless of the current language environment. */); |
of file names regardless of the current language environment. */); |
6489 |
Vdefault_file_name_coding_system = Qnil; |
Vdefault_file_name_coding_system = Qnil; |
6490 |
|
|
|
DEFVAR_LISP ("auto-save-file-format", &Vauto_save_file_format, |
|
|
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. */); |
|
|
Vauto_save_file_format = Qt; |
|
|
|
|
6491 |
Qformat_decode = intern ("format-decode"); |
Qformat_decode = intern ("format-decode"); |
6492 |
staticpro (&Qformat_decode); |
staticpro (&Qformat_decode); |
6493 |
Qformat_annotate_function = intern ("format-annotate-function"); |
Qformat_annotate_function = intern ("format-annotate-function"); |