Commit 5766c380 authored by Stefan Monnier's avatar Stefan Monnier

* 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.
parent d6549da4
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.
......
......@@ -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.
......
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).
......
......@@ -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;
}
......
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