mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 01:10:47 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/elint.el (elint-init-form): Remove outdated CL hack

Browse source
This commit is contained in:
Stefan Monnier 2017-12-04 13:43:23 -05:00
parent 42ba2a2e1f
commit f55293159f
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/elint.el
View file

@ -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)