1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 674097fd057..6d534cbb790 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -469,8 +469,8 @@ This returns ARGS with the arguments that have been processed removed."
 ;;; have a window on a copy of the kill-ring.
 ;;; Also, set the value of X cut buffer 0, for backward compatibility
 ;;; with older X applications.
-(defun x-select-text (text)
+(defun x-select-text (text &optional push)
-  (x-set-cut-buffer text)
+  (x-set-cut-buffer text push)
  (x-set-selection 'CLIPBOARD text)
  (x-set-selection 'PRIMARY text)
  (setq x-last-selected-text text))

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 674097fd057..6d534cbb790 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el
@@ -469,8 +469,8 @@ This returns ARGS with the arguments that have been processed removed."
469	;;; have a window on a copy of the kill-ring.	469	;;; have a window on a copy of the kill-ring.
470	;;; Also, set the value of X cut buffer 0, for backward compatibility	470	;;; Also, set the value of X cut buffer 0, for backward compatibility
471	;;; with older X applications.	471	;;; with older X applications.
472	(defun x-select-text (text)	472	(defun x-select-text (text &optional push)
473	(x-set-cut-buffer text)	473	(x-set-cut-buffer text push)
474	(x-set-selection 'CLIPBOARD text)	474	(x-set-selection 'CLIPBOARD text)
475	(x-set-selection 'PRIMARY text)	475	(x-set-selection 'PRIMARY text)
476	(setq x-last-selected-text text))	476	(setq x-last-selected-text text))