[Emacs-diffs] Changes to emacs/src/lread.c

[Kenichi Handa]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.314 emacs/src/lread.c:1.315
*** emacs/src/lread.c:1.314     Wed Apr  9 03:12:51 2003
--- emacs/src/lread.c   Sat May 17 23:30:07 2003
***************
*** 1,5 ****
  /* Lisp parsing and input streams.
!    Copyright (C) 1985, 86, 87, 88, 89, 93, 94, 95, 97, 98, 99, 2000, 2001
        Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
--- 1,5 ----
  /* Lisp parsing and input streams.
!    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,946 ****
--- 941,951 ----
        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,2369 ****
              c = 0;
            else if (c == (CHAR_CTL | '?'))
              c = 127;
! 
            if (c & CHAR_SHIFT)
              {
                /* Shift modifier is valid only with [A-Za-z].  */
--- 2368,2374 ----
              c = 0;
            else if (c == (CHAR_CTL | '?'))
              c = 127;
!           
            if (c & CHAR_SHIFT)
              {
                /* Shift modifier is valid only with [A-Za-z].  */