* simple.el (kill-new): Call interprogram-cut-function with only one argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 868a8e303b463d3fec38767e0a8bd8a6726b3457..bee82633f39914b163671a4684b8352033c26d0f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/simple.el b/lisp/simple.el
index 9ad776cad08098584b14dcff18607f3dcf45f53d..60d82dd3a48aee1af0d92d6a9b2d5e984653127d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3047,7 +3047,7 @@ argument should still be a \"useful\" string for such uses."
          (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.