diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-11-20 02:58:34 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-11-20 02:58:34 +0000 |
| commit | a54fdddbe5d8fd6e62e4f521abc188dac3a10a8a (patch) | |
| tree | 840fdcfece03323fe99403df0e6436379bdb5a02 /lisp/emacs-lisp | |
| parent | d8aef2e6b50fa467fa9c1e214378b105e1ccef7b (diff) | |
| download | emacs-a54fdddbe5d8fd6e62e4f521abc188dac3a10a8a.tar.gz | |
Comment.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 08864962f08..a2c6218d838 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1333,6 +1333,8 @@ go back to their previous definitions, or lack thereof). (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))) |