Commit d7f31e22 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(auto_save_error): Add parameter ERROR. Show the

error in the message.
parent ae18aa3b
2000-12-04 Gerd Moellmann <gerd@gnu.org>
* fileio.c (auto_save_error): Add parameter ERROR. Show the
error in the message.
* keyboard.c (Fread_key_sequence): Don't start the busy cursor
timer after having read a key. It's not good for code reading
several keys in a loop, like an input method.
......
......@@ -5224,15 +5224,32 @@ An argument specifies the modification time value to use\n\
}
Lisp_Object
auto_save_error ()
auto_save_error (error)
Lisp_Object error;
{
Lisp_Object args[3], msg;
int i, nbytes;
struct gcpro gcpro1;
ring_bell ();
message_with_string ("Autosaving...error for %s", current_buffer->name, 1);
Fsleep_for (make_number (1), Qnil);
message_with_string ("Autosaving...error for %s", current_buffer->name, 0);
Fsleep_for (make_number (1), Qnil);
message_with_string ("Autosaving...error for %s", current_buffer->name, 0);
Fsleep_for (make_number (1), Qnil);
args[0] = build_string ("Auto-saving %s: %s");
args[1] = current_buffer->name;
args[2] = Ferror_message_string (error);
msg = Fformat (3, args);
GCPRO1 (msg);
nbytes = STRING_BYTES (XSTRING (msg));
for (i = 0; i < 3; ++i)
{
if (i == 0)
message2 (XSTRING (msg)->data, nbytes, STRING_MULTIBYTE (msg));
else
message2_nolog (XSTRING (msg)->data, nbytes, STRING_MULTIBYTE (msg));
Fsleep_for (make_number (1), Qnil);
}
UNGCPRO;
return Qnil;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment