/[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.451 by lektu, Wed Jul 10 08:45:04 2002 UTC revision 1.452 by lektu, Thu Jul 11 14:11:25 2002 UTC
# Line 2371  A prefix arg makes KEEP-TIME non-nil.  * Line 2371  A prefix arg makes KEEP-TIME non-nil.  *
2371    struct stat st, out_st;    struct stat st, out_st;
2372    Lisp_Object handler;    Lisp_Object handler;
2373    struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;    struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2374    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
2375    int input_file_statable_p;    int input_file_statable_p;
2376    Lisp_Object encoded_file, encoded_newname;    Lisp_Object encoded_file, encoded_newname;
2377    
# Line 4395  actually used.  */) Line 4395  actually used.  */)
4395               this way, we can run Lisp program safely before decoding               this way, we can run Lisp program safely before decoding
4396               the inserted text.  */               the inserted text.  */
4397            Lisp_Object unwind_data;            Lisp_Object unwind_data;
4398                int count = specpdl_ptr - specpdl;                int count = SPECPDL_INDEX ();
4399    
4400            unwind_data = Fcons (current_buffer->enable_multibyte_characters,            unwind_data = Fcons (current_buffer->enable_multibyte_characters,
4401                                 Fcons (current_buffer->undo_list,                                 Fcons (current_buffer->undo_list,
# Line 4753  This does code conversion according to t Line 4753  This does code conversion according to t
4753    unsigned char *fn;    unsigned char *fn;
4754    struct stat st;    struct stat st;
4755    int tem;    int tem;
4756    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
4757    int count1;    int count1;
4758  #ifdef VMS  #ifdef VMS
4759    unsigned char *fname = 0;     /* If non-0, original filename (must rename) */    unsigned char *fname = 0;     /* If non-0, original filename (must rename) */
# Line 4825  This does code conversion according to t Line 4825  This does code conversion according to t
4825      }      }
4826    
4827    record_unwind_protect (build_annotations_unwind, Fcurrent_buffer ());    record_unwind_protect (build_annotations_unwind, Fcurrent_buffer ());
4828    count1 = specpdl_ptr - specpdl;    count1 = SPECPDL_INDEX ();
4829    
4830    given_buffer = current_buffer;    given_buffer = current_buffer;
4831    
# Line 5594  A non-nil CURRENT-ONLY argument means sa Line 5594  A non-nil CURRENT-ONLY argument means sa
5594    Lisp_Object oquit;    Lisp_Object oquit;
5595    FILE *stream;    FILE *stream;
5596    Lisp_Object lispstream;    Lisp_Object lispstream;
5597    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
5598    int orig_minibuffer_auto_raise = minibuffer_auto_raise;    int orig_minibuffer_auto_raise = minibuffer_auto_raise;
5599    int message_p = 0;    int message_p = 0;
5600    
# Line 5941  DEFUN ("read-file-name-internal", Fread_ Line 5941  DEFUN ("read-file-name-internal", Fread_
5941          {          {
5942            /* Must do it the hard (and slow) way.  */            /* Must do it the hard (and slow) way.  */
5943            GCPRO3 (all, comp, specdir);            GCPRO3 (all, comp, specdir);
5944            count = specpdl_ptr - specpdl;            count = SPECPDL_INDEX ();
5945            record_unwind_protect (read_file_name_cleanup, current_buffer->directory);            record_unwind_protect (read_file_name_cleanup, current_buffer->directory);
5946            current_buffer->directory = realdir;            current_buffer->directory = realdir;
5947            for (comp = Qnil; CONSP (all); all = XCDR (all))            for (comp = Qnil; CONSP (all); all = XCDR (all))
# Line 6074  provides a file dialog box.  */) Line 6074  provides a file dialog box.  */)
6074        RETURN_UNGCPRO (Ffuncall (7, args));        RETURN_UNGCPRO (Ffuncall (7, args));
6075      }      }
6076    
6077    count = specpdl_ptr - specpdl;    count = SPECPDL_INDEX ();
6078  #ifdef VMS  #ifdef VMS
6079    specbind (intern ("completion-ignore-case"), Qt);    specbind (intern ("completion-ignore-case"), Qt);
6080  #endif  #endif

Legend:
Removed from v.1.451  
changed lines
  Added in v.1.452

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