Mercurial > emacs
changeset 99744:a972544240b9
Comment.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 20 Nov 2008 02:58:34 +0000 |
| parents | 510c89530d24 |
| children | b06d87fbe42d |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Thu Nov 20 02:51:58 2008 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Thu Nov 20 02:58:34 2008 +0000 @@ -1333,6 +1333,8 @@ (and (get (car x) 'byte-compile) (error "Byte-compiling a redefinition of `%s' \ will not work - use `labels' instead" (symbol-name (car x)))) + ;; FIXME This affects the rest of the file, when it + ;; should be restricted to the flet body. (and (boundp 'byte-compile-function-environment) (push (cons (car x) (eval func)) byte-compile-function-environment)))