diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-18 03:30:07 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-18 03:30:07 +0000 |
| commit | 11810d78df92fdb95e0e802c339bf08899f419e4 (patch) | |
| tree | 8998669f37ddc9afa1b0b919c016128fcde6f626 /src/lread.c | |
| parent | 0916e95698dba93dbb7e0578f0184873c20fcc3c (diff) | |
| download | emacs-11810d78df92fdb95e0e802c339bf08899f419e4.tar.gz | |
(Fload): Print a message if package is obsolete.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 73345d30001..525e045b029 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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 @@ Return t if file exists. */) 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 @@ read1 (readcharfun, pch, first_in_list) c = 0; else if (c == (CHAR_CTL | '?')) c = 127; - + if (c & CHAR_SHIFT) { /* Shift modifier is valid only with [A-Za-z]. */ |