Mercurial > emacs
changeset 1758:12c730b89ac8
(Fload): If warn that .elc file is older,
inhibit the ordinary message that would follow.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 10 Jan 1993 16:44:36 +0000 |
| parents | 7e85913523ef |
| children | 3c615a9dcd64 |
| files | src/lread.c |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Sat Jan 09 14:30:36 1993 +0000 +++ b/src/lread.c Sun Jan 10 16:44:36 1993 +0000 @@ -302,6 +302,8 @@ Lisp_Object temp; struct gcpro gcpro1; Lisp_Object found; + /* 1 means inhibit the message at the beginning. */ + int nomessage1 = 0; CHECK_STRING (str, 0); str = Fsubstitute_in_file_name (str); @@ -334,8 +336,13 @@ XSTRING (found)->data[XSTRING (found)->size - 1] = 0; result = stat (XSTRING (found)->data, &s2); if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime) - message ("Source file `%s' newer than byte-compiled file", - XSTRING (found)->data); + { + message ("Source file `%s' newer than byte-compiled file", + XSTRING (found)->data); + /* Don't immediately overwrite this message. */ + if (!noninteractive) + nomessage1 = 1; + } XSTRING (found)->data[XSTRING (found)->size - 1] = 'c'; } @@ -346,7 +353,7 @@ error ("Failure to create stdio stream for %s", XSTRING (str)->data); } - if (NILP (nomessage)) + if (NILP (nomessage) && !nomessage1) message ("Loading %s...", XSTRING (str)->data); GCPRO1 (str);