* lisp/subr.el (insert-for-yank): Add nil to run-hook-wrapped to keep looping.

diff --git a/lisp/subr.el b/lisp/subr.el
index 0b415d8b2c5deba52130d2849e6416cab480058e..8afba2b341dc832731a40ab883924057e2586e00 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4084,7 +4084,7 @@ This function is like `insert', except it honors the variables
 It also runs the string through `yank-transform-functions'."
   ;; Allow altering the yank string.
   (run-hook-wrapped 'yank-transform-functions
-                    (lambda (f) (setq string (funcall f string))))
+                    (lambda (f) (setq string (funcall f string)) nil))
   (let (to)
     (while (setq to (next-single-property-change 0 'yank-handler string))
       (insert-for-yank-1 (substring string 0 to))