From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 30 Aug 1995 19:33:08 +0000 (+0000)
Subject: (kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
X-Git-Tag: emacs-19.34~2885
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=657a33ab15e2d089e35a78dcc06c1238583740b5;p=emacs.git

(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
---

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.