X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbyte-optimize.el;h=8ae9d2418659a4ec09ea3c1e8bd796688a6b3e61;hb=8ccf542c980645ba3c02074a8bc67cd4fc8e7a1f;hp=22e62cee504b659251f3282491d4f12fb4c6b7b6;hpb=d81014e89b5102527e5b50aac62edeed2955671d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/byte-optimize.el b/lisp/byte-optimize.el
index 22e62ce..8ae9d24 100644
--- a/lisp/byte-optimize.el
+++ b/lisp/byte-optimize.el
@@ -357,7 +357,9 @@
 		(byte-compile-warn
 		 "attempt to open-code %s with too many arguments" name))
 	    form)
-	(setq body (mapcar 'byte-optimize-form body))
+       ;; This line, introduced in v1.10, can cause an infinite
+       ;; recursion when inlining recursive defsubst's
+;      (setq body (mapcar 'byte-optimize-form body))
 	(let ((newform
 	       (if bindings
 		   (cons 'let (cons (nreverse bindings) body))