mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge changes from emacs-23 branch.

Browse source
This commit is contained in:
Juanma Barranquero 2010-09-28 01:25:27 +02:00
commit 95b6d681b1
9 changed files with 81 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/byte-opt.el
View file

@ -382,9 +382,11 @@
form))
((or (byte-code-function-p fn)
(eq 'lambda (car-safe fn)))
(byte-optimize-form-code-walker
(byte-compile-unfold-lambda form)
for-effect))
(let ((newform (byte-compile-unfold-lambda form)))
(if (eq newform form)
;; Some error occured, avoid infinite recursion
form
(byte-optimize-form-code-walker newform for-effect))))
((memq fn '(let let*))
;; recursively enter the optimizer for the bindings and body
;; of a let or let*. This for depth-firstness: forms that