* 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.

2 files changed, 5 insertions, 5 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ff940d6ea8b..3d3403645b1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * lread.c (Fload): Don't output a message after loading an obsolete
+        package any more (done in Lisp now).
+
 2009-09-12  Chong Yidong  <cyd@stupidchicken.com>
 
         * fns.c (syms_of_fns): Doc fix (Bug#4227).
diff --git a/src/lread.c b/src/lread.c
index 10bc4ad3c5e..92b1b432acd 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1307,11 +1307,6 @@ Return t if the file exists and loads successfully.  */)
         message_with_string ("Loading %s...done", file, 1);
     }
 
-  if (!NILP (Fequal (build_string ("obsolete"),
-                     Ffile_name_nondirectory
-                     (Fdirectory_file_name (Ffile_name_directory (found))))))
-    message_with_string ("Package %s is obsolete", file, 1);
-
   return Qt;
 }