diff 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
line wrap: on
line diff
--- a/src/lread.c	Sat Sep 12 02:42:22 2009 +0000
+++ b/src/lread.c	Sat Sep 12 03:35:40 2009 +0000
@@ -1307,11 +1307,6 @@
 	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;
 }