From 4045ba4ca353c6e817e234a031c9254782a4de0a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 18 Jan 2017 15:22:49 -0700 Subject: [PATCH] x11-screen: Import os/interprogram-cut and os/interprogram-paste. --- src/x11-screen/make.scm | 10 +--------- src/x11-screen/x11-screen.pkg | 3 +++ 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/src/x11-screen/make.scm b/src/x11-screen/make.scm index 6a2767df4..e27451b44 100644 --- a/src/x11-screen/make.scm +++ b/src/x11-screen/make.scm @@ -7,12 +7,4 @@ Load the X11-Screen option. |# (with-loader-base-uri (system-library-uri "x11-screen/") (lambda () (load-package-set "x11-screen"))) -(add-subsystem-identification! "X11-Screen" '(0 1)) - -;; Reassign these (edwin) package bindings(!). -(let ((edwin (->environment '(edwin))) - (x11 (->environment '(edwin screen x11-screen)))) - (for-each (lambda (name) - (environment-assign! edwin name (environment-lookup x11 name))) - '(os/interprogram-cut - os/interprogram-paste))) \ No newline at end of file +(add-subsystem-identification! "X11-Screen" '(0 1)) \ No newline at end of file diff --git a/src/x11-screen/x11-screen.pkg b/src/x11-screen/x11-screen.pkg index 7bc00f794..064402534 100644 --- a/src/x11-screen/x11-screen.pkg +++ b/src/x11-screen/x11-screen.pkg @@ -53,6 +53,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. x-make-special-key) (import (edwin x11-commands) update-xterm-screen-names!) + (import (edwin) + os/interprogram-cut + os/interprogram-paste) (import (x11) x-change-property x-close-all-displays -- 2.25.1