diff options
| author | Richard M. Stallman | 1993-05-24 21:19:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-24 21:19:42 +0000 |
| commit | 0e2f4e59a54366563ae8a6824d0447297f0dcf7b (patch) | |
| tree | 15506be0a86233502cbb0bcded630d63f418ec16 | |
| parent | 39479f7efaa24bb3f2ffe9f4c3c3ac1da7dda45a (diff) | |
| download | emacs-0e2f4e59a54366563ae8a6824d0447297f0dcf7b.tar.gz emacs-0e2f4e59a54366563ae8a6824d0447297f0dcf7b.zip | |
(x-select-text): New arg PUSH.
| -rw-r--r-- | lisp/term/x-win.el | 4 |
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." | |||
| 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)) |