mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-file-form-require): Tweak previous change.

Browse source
This commit is contained in:
Glenn Morris 2009-08-25 07:36:49 +00:00
parent bac9c66cc7
commit d280e2c3f0
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -2324,9 +2324,9 @@ list that represents a doc string reference.
(let ((args (mapcar 'eval (cdr form))))
(apply 'require args)
;; Detect (require 'cl) in a way that works even if cl is already loaded.
(when (member (car args) '("cl" cl))
(if (byte-compile-warning-enabled-p 'cl-functions)
(byte-compile-warn "cl package required at runtime"))
(when (and (member (car args) '("cl" cl))
(byte-compile-warning-enabled-p 'cl-functions))
(byte-compile-warn "cl package required at runtime")
(byte-compile-disable-warning 'cl-functions)))
(byte-compile-keep-pending form 'byte-compile-normal-call))