Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 59061:a7985894de81
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Dec 2004 11:50:52 +0000 |
| parents | 01886d0fea34 |
| children | aac0a33f5772 4ee39d9428b0 eac554634bfa |
comparison
equal
deleted
inserted
replaced
| 59060:6bc8da0583ab | 59061:a7985894de81 |
|---|---|
| 2176 (put 'require 'byte-hunk-handler 'byte-compile-file-form-require) | 2176 (put 'require 'byte-hunk-handler 'byte-compile-file-form-require) |
| 2177 (defun byte-compile-file-form-require (form) | 2177 (defun byte-compile-file-form-require (form) |
| 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)))) |
| 2185 (byte-compile-keep-pending form 'byte-compile-normal-call)) | 2185 (byte-compile-keep-pending form 'byte-compile-normal-call)) |
| 2186 | 2186 |