Mercurial > emacs
changeset 643:9759addc5671
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 12 May 1992 05:26:53 +0000 |
| parents | b0ddc138b0b5 |
| children | 7286b5bbeee4 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Tue May 12 03:44:17 1992 +0000 +++ b/lisp/term/x-win.el Tue May 12 05:26:53 1992 +0000 @@ -446,7 +446,16 @@ (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.