Mercurial > emacs
comparison src/lread.c @ 104977:1e1816f211ce
* lread.c (Fload): Don't output a message after loading an obsolete
package any more (done in Lisp now).
* subr.el (do-after-load-evaluation): Warn the user after loading an
obsolete package.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 12 Sep 2009 03:35:40 +0000 |
| parents | 51dc0c10fa2c |
| children | 77cce41847d5 |
comparison
equal
deleted
inserted
replaced
| 104976:5db88d7b996f | 104977:1e1816f211ce |
|---|---|
| 1304 message_with_string ("Loading %s (compiled; note, source file is newer)...done", | 1304 message_with_string ("Loading %s (compiled; note, source file is newer)...done", |
| 1305 file, 1); | 1305 file, 1); |
| 1306 else /* The typical case; compiled file newer than source file. */ | 1306 else /* The typical case; compiled file newer than source file. */ |
| 1307 message_with_string ("Loading %s...done", file, 1); | 1307 message_with_string ("Loading %s...done", file, 1); |
| 1308 } | 1308 } |
| 1309 | |
| 1310 if (!NILP (Fequal (build_string ("obsolete"), | |
| 1311 Ffile_name_nondirectory | |
| 1312 (Fdirectory_file_name (Ffile_name_directory (found)))))) | |
| 1313 message_with_string ("Package %s is obsolete", file, 1); | |
| 1314 | 1309 |
| 1315 return Qt; | 1310 return Qt; |
| 1316 } | 1311 } |
| 1317 | 1312 |
| 1318 static Lisp_Object | 1313 static Lisp_Object |