Do not call interprogram-paste-function repeatedly

* lisp/simple.el (current-kill): Disable interprogram-paste-function
so that kill-new doesn't call it repeatedly when
save-interprogram-paste-before-kill is enabled.  (bug#31209)

diff --git a/lisp/simple.el b/lisp/simple.el
index 839a4dd2c6c94813553a0d3c8d1afc112cba1427..863547a76baa07759e3e043e75668bf539abf3f8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4477,7 +4477,10 @@ move the yanking point; just return the Nth kill forward."
          ;; Disable the interprogram cut function when we add the new
          ;; text to the kill ring, so Emacs doesn't try to own the
          ;; selection, with identical text.
-         (let ((interprogram-cut-function nil))
+          ;; Also disable the interprogram paste function, so that
+          ;; `kill-new' doesn't call it repeatedly.
+          (let ((interprogram-cut-function nil)
+                (interprogram-paste-function nil))
            (if (listp interprogram-paste)
                 ;; Use `reverse' to avoid modifying external data.
                 (mapc #'kill-new (reverse interprogram-paste))