Mercurial > emacs
comparison src/fileio.c @ 9921:62392796a691
(Finsert_file_contents): Init not_regular at the beginning.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Nov 1994 00:30:47 +0000 |
| parents | ec185bc66071 |
| children | dfb5d7e86733 |
comparison
equal
deleted
inserted
replaced
| 9920:6cd89eaf36c9 | 9921:62392796a691 |
|---|---|
| 2723 int count = specpdl_ptr - specpdl; | 2723 int count = specpdl_ptr - specpdl; |
| 2724 struct gcpro gcpro1, gcpro2, gcpro3; | 2724 struct gcpro gcpro1, gcpro2, gcpro3; |
| 2725 Lisp_Object handler, val, insval; | 2725 Lisp_Object handler, val, insval; |
| 2726 Lisp_Object p; | 2726 Lisp_Object p; |
| 2727 int total; | 2727 int total; |
| 2728 int not_regular; | 2728 int not_regular = 0; |
| 2729 | 2729 |
| 2730 val = Qnil; | 2730 val = Qnil; |
| 2731 p = Qnil; | 2731 p = Qnil; |
| 2732 | 2732 |
| 2733 GCPRO3 (filename, val, p); | 2733 GCPRO3 (filename, val, p); |
| 2763 st.st_mtime = -1; | 2763 st.st_mtime = -1; |
| 2764 how_much = 0; | 2764 how_much = 0; |
| 2765 goto notfound; | 2765 goto notfound; |
| 2766 } | 2766 } |
| 2767 | 2767 |
| 2768 not_regular = 0; | |
| 2769 #ifdef S_IFREG | 2768 #ifdef S_IFREG |
| 2770 /* This code will need to be changed in order to work on named | 2769 /* This code will need to be changed in order to work on named |
| 2771 pipes, and it's probably just not worth it. So we should at | 2770 pipes, and it's probably just not worth it. So we should at |
| 2772 least signal an error. */ | 2771 least signal an error. */ |
| 2773 if (!S_ISREG (st.st_mode)) | 2772 if (!S_ISREG (st.st_mode)) |