aboutsummaryrefslogtreecommitdiffstats
path: root/src/fileio.c
diff options
context:
space:
mode:
authorKaroly Lorentey2007-04-22 12:12:29 +0000
committerKaroly Lorentey2007-04-22 12:12:29 +0000
commite18c709364b095ea0be8ecabe458ac9a642a252f (patch)
treeefe814a842f932f387b3947c572bf43a548d17ef /src/fileio.c
parent81088e260b086fe28f36964f32b6338210ec6fd8 (diff)
parent9f25e707aaad5ed14a9448e9c5d345ff0bdbc5a7 (diff)
downloademacs-e18c709364b095ea0be8ecabe458ac9a642a252f.tar.gz
emacs-e18c709364b095ea0be8ecabe458ac9a642a252f.zip
Merged from emacs@sv.gnu.org
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-660 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-661 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-662 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-663 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-664 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-665 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-666 Fix read-only prompt problem in isearch * emacs@sv.gnu.org/emacs--devo--0--patch-667 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-668 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-669 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-670 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-671 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-672 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-673 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-206 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-207 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-208 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-600
Diffstat (limited to 'src/fileio.c')
-rw-r--r--src/fileio.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c
index 074a7a0527c..7cb45a72db7 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5806,7 +5806,11 @@ do_auto_save_unwind (arg) /* used as unwind-protect function */
5806 FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; 5806 FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer;
5807 auto_saving = 0; 5807 auto_saving = 0;
5808 if (stream != NULL) 5808 if (stream != NULL)
5809 fclose (stream); 5809 {
5810 BLOCK_INPUT;
5811 fclose (stream);
5812 UNBLOCK_INPUT;
5813 }
5810 return Qnil; 5814 return Qnil;
5811} 5815}
5812 5816
@@ -5936,6 +5940,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */)
5936 if (STRINGP (b->auto_save_file_name) 5940 if (STRINGP (b->auto_save_file_name)
5937 && stream != NULL && do_handled_files == 0) 5941 && stream != NULL && do_handled_files == 0)
5938 { 5942 {
5943 BLOCK_INPUT;
5939 if (!NILP (b->filename)) 5944 if (!NILP (b->filename))
5940 { 5945 {
5941 fwrite (SDATA (b->filename), 1, 5946 fwrite (SDATA (b->filename), 1,
@@ -5945,6 +5950,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */)
5945 fwrite (SDATA (b->auto_save_file_name), 1, 5950 fwrite (SDATA (b->auto_save_file_name), 1,
5946 SBYTES (b->auto_save_file_name), stream); 5951 SBYTES (b->auto_save_file_name), stream);
5947 putc ('\n', stream); 5952 putc ('\n', stream);
5953 UNBLOCK_INPUT;
5948 } 5954 }
5949 5955
5950 if (!NILP (current_only) 5956 if (!NILP (current_only)