comparison src/fileio.c @ 5875:6bfcd23bfa84

(Fdo_auto_save): Save echo_area_glyphs_length.
author Karl Heuer <kwzh@gnu.org>
date Thu, 10 Feb 1994 00:39:28 +0000
parents 23821c197271
children 321b22a46f7a
comparison
equal deleted inserted replaced
5874:fbda87c8ad54 5875:6bfcd23bfa84
3322 { 3322 {
3323 struct buffer *old = current_buffer, *b; 3323 struct buffer *old = current_buffer, *b;
3324 Lisp_Object tail, buf; 3324 Lisp_Object tail, buf;
3325 int auto_saved = 0; 3325 int auto_saved = 0;
3326 char *omessage = echo_area_glyphs; 3326 char *omessage = echo_area_glyphs;
3327 int omessage_length = echo_area_glyphs_length;
3327 extern int minibuf_level; 3328 extern int minibuf_level;
3328 int do_handled_files; 3329 int do_handled_files;
3329 Lisp_Object oquit; 3330 Lisp_Object oquit;
3330 3331
3331 /* Ordinarily don't quit within this function, 3332 /* Ordinarily don't quit within this function,
3418 3419
3419 /* Prevent another auto save till enough input events come in. */ 3420 /* Prevent another auto save till enough input events come in. */
3420 record_auto_save (); 3421 record_auto_save ();
3421 3422
3422 if (auto_saved && NILP (no_message)) 3423 if (auto_saved && NILP (no_message))
3423 message1 (omessage ? omessage : "Auto-saving...done"); 3424 {
3425 if (omessage)
3426 message2 (omessage, omessage_length);
3427 else
3428 message1 ("Auto-saving...done");
3429 }
3424 3430
3425 Vquit_flag = oquit; 3431 Vquit_flag = oquit;
3426 3432
3427 auto_saving = 0; 3433 auto_saving = 0;
3428 return Qnil; 3434 return Qnil;