/[emacs]/emacs/src/fileio.c
ViewVC logotype

Diff of /emacs/src/fileio.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.449.2.17 by miles, Sat Sep 4 09:28:15 2004 UTC revision 1.449.2.18 by miles, Thu Sep 16 00:12:25 2004 UTC
# Line 173  Lisp_Object Vdefault_file_name_coding_sy Line 173  Lisp_Object Vdefault_file_name_coding_sy
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    
# Line 5372  build_annotations (start, end) Line 5369  build_annotations (start, end)
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)
# Line 6491  instead use `file-name-coding-system' to Line 6488  instead use `file-name-coding-system' to
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");

Legend:
Removed from v.1.449.2.17  
changed lines
  Added in v.1.449.2.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26