HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
39479f7
)
(x-select-text): New arg PUSH.
author
Richard M. Stallman
<rms@gnu.org>
Mon, 24 May 1993 21:19:42 +0000
(21:19 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Mon, 24 May 1993 21:19:42 +0000
(21:19 +0000)
lisp/term/x-win.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/term/x-win.el
b/lisp/term/x-win.el
index
674097f
..
6d534cb
100644
(file)
--- 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)
- (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))