From 532f5fb3877ccd535a822f7c3c08d396621b4325 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Thu, 12 Apr 2018 17:46:37 +0100 Subject: [PATCH] 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 839a4dd2c6c..863547a76ba 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)) -- 2.39.5