[Emacs-diffs] master f552931: * lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack

[Stefan Monnier]

branch: master
commit f55293159f0a7d9fb08dafe7e0dcd8b4354dbd0d
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack
---
 lisp/emacs-lisp/elint.el | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 8d10a16..643d716 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -463,21 +463,9 @@ Return nil if there are no more forms, t otherwise."
    ;; Import variable definitions
    ((memq (car form) '(require cc-require cc-require-when-compile))
     (let ((name (eval (cadr form)))
-         (file (eval (nth 2 form)))
-         (elint-doing-cl (bound-and-true-p elint-doing-cl)))
+         (file (eval (nth 2 form))))
       (unless (memq name elint-features)
        (add-to-list 'elint-features name)
-       ;; cl loads cl-macs in an opaque manner.
-       ;; Since cl-macs requires cl, we can just process cl-macs.
-        ;; FIXME: AFAIK, `cl' now behaves properly and does not need any
-        ;; special treatment any more.  Can someone who understands this
-        ;; code confirm?  --Stef
-       (and (eq name 'cl) (not elint-doing-cl)
-            ;; We need cl if elint-form is to be able to expand cl macros.
-            (require 'cl)
-            (setq name 'cl-macs
-                  file nil
-                  elint-doing-cl t)) ; blech
        (setq elint-env (elint-add-required-env elint-env name file))))))
   elint-env)