Mercurial > emacs
changeset 104977:1e1816f211ce
* lread.c (Fload): Don't output a message after loading an obsolete
package any more (done in Lisp now).
* subr.el (do-after-load-evaluation): Warn the user after loading an
obsolete package.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 12 Sep 2009 03:35:40 +0000 |
| parents | 5db88d7b996f |
| children | a4c2188bd87d |
| files | lisp/ChangeLog lisp/subr.el src/ChangeLog src/lread.c |
| diffstat | 4 files changed, 24 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 12 02:42:22 2009 +0000 +++ b/lisp/ChangeLog Sat Sep 12 03:35:40 2009 +0000 @@ -1,3 +1,8 @@ +2009-09-12 Stefan Monnier <monnier@iro.umontreal.ca> + + * subr.el (do-after-load-evaluation): Warn the user after loading an + obsolete package. + 2009-09-12 Glenn Morris <rgm@gnu.org> * proced.el (proced-mark-alt): Remove alias.
--- a/lisp/subr.el Sat Sep 12 02:42:22 2009 +0000 +++ b/lisp/subr.el Sat Sep 12 03:35:40 2009 +0000 @@ -1688,13 +1688,25 @@ (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.
--- a/src/ChangeLog Sat Sep 12 02:42:22 2009 +0000 +++ b/src/ChangeLog Sat Sep 12 03:35:40 2009 +0000 @@ -1,3 +1,8 @@ +2009-09-12 Stefan Monnier <monnier@iro.umontreal.ca> + + * lread.c (Fload): Don't output a message after loading an obsolete + package any more (done in Lisp now). + 2009-09-12 Chong Yidong <cyd@stupidchicken.com> * fns.c (syms_of_fns): Doc fix (Bug#4227).
--- a/src/lread.c Sat Sep 12 02:42:22 2009 +0000 +++ b/src/lread.c Sat Sep 12 03:35:40 2009 +0000 @@ -1307,11 +1307,6 @@ 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; }