Mercurial > emacs
comparison src/fileio.c @ 350:80a890dbbeb5
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 24 Jul 1991 23:47:06 +0000 |
| parents | 5eb609139f6f |
| children | 481e29c1e27e |
comparison
equal
deleted
inserted
replaced
| 349:feacf757c5b2 | 350:80a890dbbeb5 |
|---|---|
| 61 #endif /* HAVE_TIMEVAL */ | 61 #endif /* HAVE_TIMEVAL */ |
| 62 #endif /* not NEED_TIME_H */ | 62 #endif /* not NEED_TIME_H */ |
| 63 | 63 |
| 64 #ifdef HPUX | 64 #ifdef HPUX |
| 65 #include <netio.h> | 65 #include <netio.h> |
| 66 #ifndef HPUX8 | |
| 66 #include <errnet.h> | 67 #include <errnet.h> |
| 68 #endif | |
| 67 #endif | 69 #endif |
| 68 | 70 |
| 69 #ifndef O_WRONLY | 71 #ifndef O_WRONLY |
| 70 #define O_WRONLY 1 | 72 #define O_WRONLY 1 |
| 71 #endif | 73 #endif |
| 2012 report_file_error ("Opening input file", Fcons (filename, Qnil)); | 2014 report_file_error ("Opening input file", Fcons (filename, Qnil)); |
| 2013 } | 2015 } |
| 2014 | 2016 |
| 2015 signal_after_change (point, 0, inserted); | 2017 signal_after_change (point, 0, inserted); |
| 2016 | 2018 |
| 2017 { | 2019 RETURN_UNGCPRO (Fcons (filename, |
| 2018 Lisp_Object result = Fcons (filename, | 2020 Fcons (make_number (inserted), |
| 2019 Fcons (make_number (inserted), | 2021 Qnil))); |
| 2020 Qnil)); | |
| 2021 UNGCPRO; | |
| 2022 return result; | |
| 2023 } | |
| 2024 } | 2022 } |
| 2025 | 2023 |
| 2026 DEFUN ("write-region", Fwrite_region, Swrite_region, 3, 5, | 2024 DEFUN ("write-region", Fwrite_region, Swrite_region, 3, 5, |
| 2027 "r\nFWrite region to file: ", | 2025 "r\nFWrite region to file: ", |
| 2028 "Write current region into specified file.\n\ | 2026 "Write current region into specified file.\n\ |