diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-27 01:17:03 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-27 01:17:03 +0000 |
| commit | 212df36327ce8aa60a94b118259183315f8900d3 (patch) | |
| tree | fcd6f95b5b2c0e8755c994c5470111d3b122d22f /lisp/emacs-lisp | |
| parent | a3efe8911ceddb9c51b386bb2e1ac36515b35390 (diff) | |
| download | emacs-212df36327ce8aa60a94b118259183315f8900d3.tar.gz emacs-212df36327ce8aa60a94b118259183315f8900d3.tar.bz2 emacs-212df36327ce8aa60a94b118259183315f8900d3.zip | |
Johan Bockg� <bojohan at gnu.org>
(byte-compile-find-cl-functions): Simplify. Collect `defun' and
`autoload' entries. Avoid modifying load-history.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index e54d1edf4d5..0249c0dc78c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1405,15 +1405,9 @@ extra args." (when (and (stringp (car elt)) (string-match "^cl\\>" (file-name-nondirectory (car elt)))) - (setq byte-compile-cl-functions - (append byte-compile-cl-functions - (cdr elt))))) - (let ((tail byte-compile-cl-functions)) - (while tail - (if (and (consp (car tail)) - (eq (car (car tail)) 'autoload)) - (setcar tail (cdr (car tail)))) - (setq tail (cdr tail)))))) + (dolist (e (cdr elt)) + (when (memq (car-safe e) '(autoload defun)) + (push (cdr e) byte-compile-cl-functions))))))) (defun byte-compile-cl-warn (form) "Warn if FORM is a call of a function from the CL package." |