Remove left over code from when we used an obsolete/loaddefs.el file

* lisp/subr.el (do-after-load-evaluation): Remove left over code from when
we used an obsolete/loaddefs.el file.
This commit is contained in:
Stefan Monnier 2015-04-13 10:41:30 -04:00
parent 2a72ae286d
commit a2f9da45c4

View file

@ -3943,9 +3943,7 @@ This function is called directly from the C code."
;; discard the file name regexp
(mapc #'funcall (cdr a-l-element))))
;; Complain when the user uses obsolete files.
(when (save-match-data
(and (string-match "/obsolete/\\([^/]*\\)\\'" abs-file)
(not (equal "loaddefs.el" (match-string 1 abs-file)))))
(when (string-match-p "/obsolete/\\([^/]*\\)\\'" abs-file)
;; Maybe we should just use display-warning? This seems yucky...
(let* ((file (file-name-nondirectory abs-file))
(msg (format "Package %s is obsolete!"