[Emacs-diffs] master 532f5fb: Do not call interprogram-paste-function repeatedly

[Noam Postavsky]

branch: master
commit 532f5fb3877ccd535a822f7c3c08d396621b4325
Author: Basil L. Contovounesios <address@hidden>
Commit: Noam Postavsky <address@hidden>

    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)
---
 lisp/simple.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 839a4dd..863547a 100644
--- 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))