Commit 11810d78 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Fload): Print a message if package is obsolete.

parent 0916e956
/* Lisp parsing and input streams. /* 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. Free Software Foundation, Inc.
This file is part of GNU Emacs. This file is part of GNU Emacs.
...@@ -941,6 +941,11 @@ Return t if file exists. */) ...@@ -941,6 +941,11 @@ Return t if file exists. */)
message_with_string ("Loading %s...done", file, 1); 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; return Qt;
} }
...@@ -2363,7 +2368,7 @@ read1 (readcharfun, pch, first_in_list) ...@@ -2363,7 +2368,7 @@ read1 (readcharfun, pch, first_in_list)
c = 0; c = 0;
else if (c == (CHAR_CTL | '?')) else if (c == (CHAR_CTL | '?'))
c = 127; c = 127;
if (c & CHAR_SHIFT) if (c & CHAR_SHIFT)
{ {
/* Shift modifier is valid only with [A-Za-z]. */ /* Shift modifier is valid only with [A-Za-z]. */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment