aboutsummaryrefslogtreecommitdiffstats
path: root/src/fileio.c
diff options
context:
space:
mode:
authorMiles Bader2004-09-09 09:36:36 +0000
committerMiles Bader2004-09-09 09:36:36 +0000
commita37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb (patch)
tree06645beecd1ea81b98569d82ee5d486a95c3497f /src/fileio.c
parentdd6ab82fb5c85168043306deda1fa5a5010183c6 (diff)
parent6cb4a8923202a1f00fcbd2f7e3b8e0ee9e9bd3f4 (diff)
downloademacs-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.c14
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. */
174Lisp_Object Vfile_name_handler_alist; 174Lisp_Object Vfile_name_handler_alist;
175 175
176/* Format for auto-save files */
177Lisp_Object Vauto_save_file_format;
178
179/* Lisp functions for translating file formats */ 176/* Lisp functions for translating file formats */
180Lisp_Object Qformat_decode, Qformat_annotate_function; 177Lisp_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
6404of file names regardless of the current language environment. */); 6401of 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.
6409Should be a list of symbols naming formats that are defined in `format-alist'.
6410If it is t, which is the default, auto-save files are written in the
6411same 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");