Fix pasting issue

init.el

@@ -6,12 +6,30 @@
 (setq calendar-longitude -5.83)
 (setq calendar-location-name "Belfast")
 
+;; do this now
+
+(defun islin ()
+  "Return true if on linux"
+  (string-equal system-type "gnu/linux")
+  )
+
+(defun iswin ()
+  "Return true if on windows"
+  (string-equal system-type "windows-nt")
+  )
+
+(defun ismac ()
+  "Return true if on macos"
+  (string-equal system-type "darwin")
+  )
+
 ;; it's not 1986
 
 (prefer-coding-system 'utf-8)
 (set-default-coding-systems 'utf-8)
 (set-language-environment 'utf-8)
-(set-selection-coding-system 'utf-8)
+(unless (iswin) (set-selection-coding-system 'utf-8))
+(when (iswin) (set-selection-coding-system 'utf-16-le))
 
 ;; sonic arts
 
@@ -38,21 +56,6 @@
 
 ;; Misc
 
-(defun islin ()
-  "Return true if on linux"
-  (string-equal system-type "gnu/linux")
-  )
-
-(defun iswin ()
-  "Return true if on windows"
-  (string-equal system-type "windows-nt")
-  )
-
-(defun ismac ()
-  "Return true if on macos"
-  (string-equal system-type "darwin")
-  )
-
 (setq completion-ignore-case t)
 (setq read-file-name-completion-ignore-case t)
 (setq read-buffer-completion-ignore-case t)