# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809811188 0
# Node ID 9bad6a54e268638f76a0794bfb2f3c66c43b0253
# Parent  fd7b8d2ba9e901422df273a78fa37db977a717bd
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.

diff -r fd7b8d2ba9e9 -r 9bad6a54e268 lisp/simple.el
--- a/lisp/simple.el	Wed Aug 30 16:01:39 1995 +0000
+++ b/lisp/simple.el	Wed Aug 30 19:33:08 1995 +0000
@@ -1131,7 +1131,7 @@
 	(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.