From 03d6644970e6b9b505ef35ed96c379cc73f25486 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 25 May 2022 20:45:49 +0300 Subject: [PATCH] * lisp/subr.el (insert-for-yank): Add nil to run-hook-wrapped to keep looping. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5