Mercurial > emacs
comparison src/fileio.c @ 41211:2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Nov 2001 21:08:43 +0000 |
| parents | 00d37e30f901 |
| children | 1d1183771c4f |
comparison
equal
deleted
inserted
replaced
| 41210:b82ef9da4565 | 41211:2e188a8c4ad8 |
|---|---|
| 4678 #ifdef VMS | 4678 #ifdef VMS |
| 4679 unsigned char *fname = 0; /* If non-0, original filename (must rename) */ | 4679 unsigned char *fname = 0; /* If non-0, original filename (must rename) */ |
| 4680 #endif /* VMS */ | 4680 #endif /* VMS */ |
| 4681 Lisp_Object handler; | 4681 Lisp_Object handler; |
| 4682 Lisp_Object visit_file; | 4682 Lisp_Object visit_file; |
| 4683 Lisp_Object annotations = Qnil; | 4683 Lisp_Object annotations; |
| 4684 Lisp_Object encoded_filename; | 4684 Lisp_Object encoded_filename; |
| 4685 int visiting = (EQ (visit, Qt) || STRINGP (visit)); | 4685 int visiting = (EQ (visit, Qt) || STRINGP (visit)); |
| 4686 int quietly = !NILP (visit); | 4686 int quietly = !NILP (visit); |
| 4687 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; | 4687 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
| 4688 struct buffer *given_buffer; | 4688 struct buffer *given_buffer; |
| 4715 visit_file = filename; | 4715 visit_file = filename; |
| 4716 UNGCPRO; | 4716 UNGCPRO; |
| 4717 | 4717 |
| 4718 if (NILP (lockname)) | 4718 if (NILP (lockname)) |
| 4719 lockname = visit_file; | 4719 lockname = visit_file; |
| 4720 | |
| 4721 annotations = Qnil; | |
| 4720 | 4722 |
| 4721 GCPRO5 (start, filename, annotations, visit_file, lockname); | 4723 GCPRO5 (start, filename, annotations, visit_file, lockname); |
| 4722 | 4724 |
| 4723 /* If the file name has special constructs in it, | 4725 /* If the file name has special constructs in it, |
| 4724 call the corresponding file handler. */ | 4726 call the corresponding file handler. */ |