Mercurial > emacs
changeset 3036:98f500ca5593
(x-select-text): New arg PUSH.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 May 1993 21:19:42 +0000 |
| parents | 5c758290ba6c |
| children | 3c7a86dba45b |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Mon May 24 21:19:26 1993 +0000 +++ b/lisp/term/x-win.el Mon May 24 21:19:42 1993 +0000 @@ -469,8 +469,8 @@ ;;; 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))