diff options
| author | Miles Bader | 2004-09-09 09:36:36 +0000 |
|---|---|---|
| committer | Miles Bader | 2004-09-09 09:36:36 +0000 |
| commit | a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb (patch) | |
| tree | 06645beecd1ea81b98569d82ee5d486a95c3497f /src/fileio.c | |
| parent | dd6ab82fb5c85168043306deda1fa5a5010183c6 (diff) | |
| parent | 6cb4a8923202a1f00fcbd2f7e3b8e0ee9e9bd3f4 (diff) | |
| download | emacs-a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb.tar.gz emacs-a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36
Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523
Merge from emacs--gnus--5.10, gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534
Update from CVS
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0
tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1
Import from CVS branch gnus-5_10-branch
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2
Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19
Remove autoconf-generated files from archive
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20
Update from CVS
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"); |