diff options
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 70557d5e247..b8e63a4f5f8 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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)) |