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 |
|
|
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, |
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) */ |
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 |
|
|
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 |
|
|
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)) |
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 |