diff options
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/subr.el | 16 | ||||
-rw-r--r-- | src/ChangeLog | 5 | ||||
-rw-r--r-- | src/lread.c | 5 |
4 files changed, 24 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 50aea7a570..33d7ca2f3e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-12 Stefan Monnier <[email protected]> + + * subr.el (do-after-load-evaluation): Warn the user after loading an + obsolete package. + 2009-09-12 Glenn Morris <[email protected]> * proced.el (proced-mark-alt): Remove alias. diff --git a/lisp/subr.el b/lisp/subr.el index ae19a644ee..d42382d15d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1688,13 +1688,25 @@ This function makes or adds to an entry on `after-load-alist'." (defun do-after-load-evaluation (abs-file) "Evaluate all `eval-after-load' forms, if any, for ABS-FILE. -ABS-FILE, a string, should be the absolute true name of a file just loaded." +ABS-FILE, a string, should be the absolute true name of a file just loaded. +This function is called directly from the C code." + ;; Run the relevant eval-after-load forms. (mapc #'(lambda (a-l-element) (when (and (stringp (car a-l-element)) (string-match-p (car a-l-element) abs-file)) ;; discard the file name regexp (mapc #'eval (cdr a-l-element)))) - after-load-alist)) + after-load-alist) + ;; Complain when the user uses obsolete files. + (when (equal "obsolete" + (file-name-nondirectory + (directory-file-name (file-name-directory abs-file)))) + (run-with-timer 0 nil + (lambda (file) + (message "Package %s is obsolete!" + (substring file 0 + (string-match "\\.elc?\\>" file)))) + (file-name-nondirectory abs-file)))) (defun eval-next-after-load (file) "Read the following input sexp, and run it whenever FILE is loaded. diff --git a/src/ChangeLog b/src/ChangeLog index ff940d6ea8..3d3403645b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-09-12 Stefan Monnier <[email protected]> + + * lread.c (Fload): Don't output a message after loading an obsolete + package any more (done in Lisp now). + 2009-09-12 Chong Yidong <[email protected]> * fns.c (syms_of_fns): Doc fix (Bug#4227). diff --git a/src/lread.c b/src/lread.c index 10bc4ad3c5..92b1b432ac 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1307,11 +1307,6 @@ Return t if the file exists and loads successfully. */) 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; } |