From: Juri Linkov <juri@linkov.net>
Date: Wed, 25 May 2022 17:45:49 +0000 (+0300)
Subject: * lisp/subr.el (insert-for-yank): Add nil to run-hook-wrapped to keep looping.
X-Git-Tag: emacs-29.0.90~1910^2~427^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03d6644970e6b9b505ef35ed96c379cc73f25486;p=emacs.git

* 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 0b415d8b2c5..8afba2b341d 100644
--- 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))