# HG changeset patch
# User Jan D <jan.h.d@swipnet.se>
# Date 1283424883 -7200
# Node ID f7b8afaa7eb02ce3cd8f7c37fa9632e5881819bf
# Parent  4ac2b883320e840f8380030cd5966b9232852e0b
* simple.el (kill-new): Call interprogram-cut-function with only one argument.

diff -r 4ac2b883320e -r f7b8afaa7eb0 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 02 12:20:20 2010 +0200
+++ b/lisp/ChangeLog	Thu Sep 02 12:54:43 2010 +0200
@@ -1,5 +1,8 @@
 2010-09-02  Jan Djärv  <jan.h.d@swipnet.se>
 
+	* simple.el (kill-new): Call interprogram-cut-function with only
+	one argument.
+
 	* term.el (term-mouse-paste): Don't call x-get-cutbuffer.
 	Remove cut buffer from error message.
 
diff -r 4ac2b883320e -r f7b8afaa7eb0 lisp/simple.el
--- a/lisp/simple.el	Thu Sep 02 12:20:20 2010 +0200
+++ b/lisp/simple.el	Thu Sep 02 12:54:43 2010 +0200
@@ -3047,7 +3047,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 (not replace))))
+      (funcall interprogram-cut-function string)))
 
 (defun kill-append (string before-p &optional yank-handler)
   "Append STRING to the end of the latest kill in the kill ring.