diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-05-12 05:26:53 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-05-12 05:26:53 +0000 |
| commit | 67c86cfc518faa4c29b8c307a76d617267366bba (patch) | |
| tree | 714b4d63831d727d7d265a123b3acb54c761c71d | |
| parent | c047688cf20e884f3db98b58f74bc9655fbcca15 (diff) | |
| download | emacs-67c86cfc518faa4c29b8c307a76d617267366bba.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/term/x-win.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 36e160e694b..368e333d5cc 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -446,7 +446,16 @@ This returns ARGS with the arguments that have been processed removed." (setq suspend-hook '(lambda () (error "Suspending an emacs running under X makes no sense"))) -(setq interprogram-cut-function 'x-own-selection) +(setq interprogram-cut-function 'x-select-text) + +;; Make TEXT, a string, the primary and clipboard X selections. +;; If you are running xclipboard, this means you can effectively +;; have a window on a copy of the kill-ring. +(defun x-select-text (text) + (if (eq window-system 'x) + (progn + (x-own-selection text 'clipboard) + (x-own-selection text)))) ;;; Turn off window-splitting optimization; X is usually fast enough ;;; that this is only annoying. |