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,