gate propagate to comp-speed > 1

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f9c0d62147e7400e26d10874ee7f73e938fdff23..5f0b61b734fe7bbb6b6112e3af3abdf5d6d11dd3 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1580,15 +1580,16 @@ Return t if something was changed."
            finally return modified))
 
 (defun comp-propagate (_)
-  (maphash (lambda (_ f)
-             (let ((comp-func f))
-               (comp-basic-const-propagate)
-               (cl-loop
-                for i from 1
-                while (comp-propagate*)
-                finally (comp-log (format "Propagation run %d times\n" i) 2))
-                        (comp-log-func comp-func 3)))
-           (comp-ctxt-funcs-h comp-ctxt)))
+  (when (>= comp-speed 2)
+    (maphash (lambda (_ f)
+               (let ((comp-func f))
+                 (comp-basic-const-propagate)
+                 (cl-loop
+                  for i from 1
+                  while (comp-propagate*)
+                  finally (comp-log (format "Propagation run %d times\n" i) 2))
+                 (comp-log-func comp-func 3)))
+             (comp-ctxt-funcs-h comp-ctxt))))
 
 \f
 ;;; Call optimizer pass specific code.