From: Stefan Monnier Date: Mon, 4 Dec 2017 18:43:23 +0000 (-0500) Subject: * lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~6477 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=f55293159f0a7d9fb08dafe7e0dcd8b4354dbd0d;p=emacs.git * lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack --- diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index 8d10a162b09..643d7160dbb 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)