# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053228607 0
# Node ID 0c125011ae211cd8c9e812f71b3f99d1857429de
# Parent  35933dc8e248f9d6420d5a95facdfdee91a98aaf
(Fload): Print a message if package is obsolete.

diff -r 35933dc8e248 -r 0c125011ae21 src/lread.c
--- a/src/lread.c	Sun May 18 03:01:22 2003 +0000
+++ b/src/lread.c	Sun May 18 03:30:07 2003 +0000
@@ -1,5 +1,5 @@
 /* Lisp parsing and input streams.
-   Copyright (C) 1985, 86, 87, 88, 89, 93, 94, 95, 97, 98, 99, 2000, 2001
+   Copyright (C) 1985, 86, 87, 88, 89, 93, 94, 95, 97, 98, 99, 2000, 01, 2003
       Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -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;
 }
 
@@ -2363,7 +2368,7 @@
 	      c = 0;
 	    else if (c == (CHAR_CTL | '?'))
 	      c = 127;
-
+	    
 	    if (c & CHAR_SHIFT)
 	      {
 		/* Shift modifier is valid only with [A-Za-z].  */