Mercurial > emacs
changeset 34176:2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
error in the message.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 04 Dec 2000 15:54:20 +0000 |
| parents | d311c748a358 |
| children | 145a52105c01 |
| files | src/fileio.c |
| diffstat | 1 files changed, 24 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Mon Dec 04 14:48:32 2000 +0000 +++ b/src/fileio.c Mon Dec 04 15:54:20 2000 +0000 @@ -5224,15 +5224,32 @@ } 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; }