/[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.492.2.19 by miles, Sat Sep 4 09:14:27 2004 UTC revision 1.492.2.20 by miles, Thu Sep 9 09:36:35 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 5313  build_annotations (start, end) Line 5310  build_annotations (start, end)
5310      }      }
5311    
5312    /* Now do the same for annotation functions implied by the file-format */    /* Now do the same for annotation functions implied by the file-format */
5313    if (auto_saving && (!EQ (Vauto_save_file_format, Qt)))    if (auto_saving && (!EQ (current_buffer->auto_save_file_format, Qt)))
5314      p = Vauto_save_file_format;      p = current_buffer->auto_save_file_format;
5315    else    else
5316      p = current_buffer->file_format;      p = current_buffer->file_format;
5317    for (i = 0; CONSP (p); p = XCDR (p), ++i)    for (i = 0; CONSP (p); p = XCDR (p), ++i)
# Line 6404  instead use `file-name-coding-system' to Line 6401  instead use `file-name-coding-system' to
6401  of file names regardless of the current language environment.  */);  of file names regardless of the current language environment.  */);
6402    Vdefault_file_name_coding_system = Qnil;    Vdefault_file_name_coding_system = Qnil;
6403    
   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;  
   
6404    Qformat_decode = intern ("format-decode");    Qformat_decode = intern ("format-decode");
6405    staticpro (&Qformat_decode);    staticpro (&Qformat_decode);
6406    Qformat_annotate_function = intern ("format-annotate-function");    Qformat_annotate_function = intern ("format-annotate-function");

Legend:
Removed from v.1.492.2.19  
changed lines
  Added in v.1.492.2.20

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