From 657a33ab15e2d089e35a78dcc06c1238583740b5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 30 Aug 1995 19:33:08 +0000 Subject: [PATCH] (kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index ea27a5bf460..68a5005e54a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1131,7 +1131,7 @@ the front of the kill ring, rather than being added to the list." (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) (setq kill-ring-yank-pointer kill-ring) (if interprogram-cut-function - (funcall interprogram-cut-function string t))) + (funcall interprogram-cut-function string (not replace)))) (defun kill-append (string before-p) "Append STRING to the end of the latest kill in the kill ring. -- 2.39.2