Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 84898:11d8147c948d
(byte-compile-resolve-functions): Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 26 Sep 2007 00:13:09 +0000 |
| parents | 92ccd83174e6 |
| children | 591c29778a30 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 84897:992e87082552 | 84898:11d8147c948d |
|---|---|
| 4419 ;; But it is OK to evaluate as long as byte-compiler has been loaded. | 4419 ;; But it is OK to evaluate as long as byte-compiler has been loaded. |
| 4420 (if (featurep 'byte-compile) (progn | 4420 (if (featurep 'byte-compile) (progn |
| 4421 | 4421 |
| 4422 (defun byte-compile-resolve-functions (funcs) | 4422 (defun byte-compile-resolve-functions (funcs) |
| 4423 "Say it is OK for the named functions to be unresolved." | 4423 "Say it is OK for the named functions to be unresolved." |
| 4424 (mapcar | 4424 (mapc |
| 4425 (function | 4425 (function |
| 4426 (lambda (func) | 4426 (lambda (func) |
| 4427 (setq byte-compile-unresolved-functions | 4427 (setq byte-compile-unresolved-functions |
| 4428 (delq (assq func byte-compile-unresolved-functions) | 4428 (delq (assq func byte-compile-unresolved-functions) |
| 4429 byte-compile-unresolved-functions)))) | 4429 byte-compile-unresolved-functions)))) |