Warning about the use of obsolete packages

[Stefan Monnier]

How about the patch below to Fload (in lread.c) ?


        Stefan


@@ -941,6 +941,11 @@
        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;
 }