Commit 0e2f4e59 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-select-text): New arg PUSH.

parent 39479f7e
......@@ -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)
(x-set-cut-buffer text)
(defun x-select-text (text &optional push)
(x-set-cut-buffer text push)
(x-set-selection 'CLIPBOARD text)
(x-set-selection 'PRIMARY text)
(setq x-last-selected-text text))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment