mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-24 21:19:42 +00:00
parent 39479f7efa
commit 0e2f4e59a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/term/x-win.el
View File

@ -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))