x11-screen: Import os/interprogram-cut and os/interprogram-paste.
authorMatt Birkholz <puck@birchwood-abbey.net>
Wed, 18 Jan 2017 22:22:49 +0000 (15:22 -0700)
committerMatt Birkholz <puck@birchwood-abbey.net>
Wed, 18 Jan 2017 22:22:49 +0000 (15:22 -0700)
src/x11-screen/make.scm
src/x11-screen/x11-screen.pkg

index 6a2767df449516c6215cdde68938919dbe7097fb..e27451b443b334b53942d82f20720d173ccdaca6 100644 (file)
@@ -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
index 7bc00f794d0dc0cb2363b5a5ec2444807dca0b19..064402534b8203f97a02853842c2b61b6d2c4a30 100644 (file)
@@ -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