Mercurial > emacs
comparison src/fileio.c @ 17558:648beff801bb
(Fwrite_region): GCPRO `start' near the beginning.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 25 Apr 1997 04:59:48 +0000 |
parents | ba848dceb1c9 |
children | 331ce9fbf08b |
comparison
equal
deleted
inserted
replaced
17557:3e3f18e8d969 | 17558:648beff801bb |
---|---|
3798 error ("Cannot do file visiting in an indirect buffer"); | 3798 error ("Cannot do file visiting in an indirect buffer"); |
3799 | 3799 |
3800 if (!NILP (start) && !STRINGP (start)) | 3800 if (!NILP (start) && !STRINGP (start)) |
3801 validate_region (&start, &end); | 3801 validate_region (&start, &end); |
3802 | 3802 |
3803 GCPRO3 (filename, visit, lockname); | 3803 GCPRO4 (start, filename, visit, lockname); |
3804 filename = Fexpand_file_name (filename, Qnil); | 3804 filename = Fexpand_file_name (filename, Qnil); |
3805 if (STRINGP (visit)) | 3805 if (STRINGP (visit)) |
3806 visit_file = Fexpand_file_name (visit, Qnil); | 3806 visit_file = Fexpand_file_name (visit, Qnil); |
3807 else | 3807 else |
3808 visit_file = filename; | 3808 visit_file = filename; |