diff options
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2048bd6212f..a11831f944e 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -2178,7 +2178,7 @@ list that represents a doc string reference. | |||
| 2178 | (let ((old-load-list current-load-list) | 2178 | (let ((old-load-list current-load-list) |
| 2179 | (args (mapcar 'eval (cdr form)))) | 2179 | (args (mapcar 'eval (cdr form)))) |
| 2180 | (apply 'require args) | 2180 | (apply 'require args) |
| 2181 | ;; Detech (require 'cl) in a way that works even if cl is already loaded. | 2181 | ;; Detect (require 'cl) in a way that works even if cl is already loaded. |
| 2182 | (if (member (car args) '("cl" cl)) | 2182 | (if (member (car args) '("cl" cl)) |
| 2183 | (setq byte-compile-warnings | 2183 | (setq byte-compile-warnings |
| 2184 | (remq 'cl-functions byte-compile-warnings)))) | 2184 | (remq 'cl-functions byte-compile-warnings)))) |