Mercurial > emacs
comparison src/fileio.c @ 35175:e5a437efe234
(do_auto_save_unwind): Do the pop_message here
instead of in Fdo_auto_save.
(Fdo_auto_save): Don't call pop_message.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 09 Jan 2001 13:46:28 +0000 |
parents | e90a76ca0b26 |
children | 3df7026fc965 |
comparison
equal
deleted
inserted
replaced
35174:96c7c0a356aa | 35175:e5a437efe234 |
---|---|
1 /* File IO for GNU Emacs. | 1 /* File IO for GNU Emacs. |
2 Copyright (C) 1985,86,87,88,93,94,95,96,97,98,99,2000 | 2 Copyright (C) 1985,86,87,88,93,94,95,96,97,98,99,2000, 2001 |
3 Free Software Foundation, Inc. | 3 Free Software Foundation, Inc. |
4 | 4 |
5 This file is part of GNU Emacs. | 5 This file is part of GNU Emacs. |
6 | 6 |
7 GNU Emacs is free software; you can redistribute it and/or modify | 7 GNU Emacs is free software; you can redistribute it and/or modify |
5277 { | 5277 { |
5278 auto_saving = 0; | 5278 auto_saving = 0; |
5279 if (!NILP (stream)) | 5279 if (!NILP (stream)) |
5280 fclose ((FILE *) (XFASTINT (XCAR (stream)) << 16 | 5280 fclose ((FILE *) (XFASTINT (XCAR (stream)) << 16 |
5281 | XFASTINT (XCDR (stream)))); | 5281 | XFASTINT (XCDR (stream)))); |
5282 pop_message (); | |
5282 return Qnil; | 5283 return Qnil; |
5283 } | 5284 } |
5284 | 5285 |
5285 static Lisp_Object | 5286 static Lisp_Object |
5286 do_auto_save_unwind_1 (value) /* used as unwind-protect function */ | 5287 do_auto_save_unwind_1 (value) /* used as unwind-protect function */ |
5472 message1 ("Auto-saving...done"); | 5473 message1 ("Auto-saving...done"); |
5473 } | 5474 } |
5474 | 5475 |
5475 Vquit_flag = oquit; | 5476 Vquit_flag = oquit; |
5476 | 5477 |
5477 pop_message (); | |
5478 unbind_to (count, Qnil); | 5478 unbind_to (count, Qnil); |
5479 return Qnil; | 5479 return Qnil; |
5480 } | 5480 } |
5481 | 5481 |
5482 DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved, | 5482 DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved, |