--- a/lisp/x11/x-init.el	Mon Aug 13 09:03:47 2007 +0200
+++ b/lisp/x11/x-init.el	Mon Aug 13 09:04:33 2007 +0200
@@ -153,10 +153,18 @@
     (if (featurep 'mule)
         (init-mule-x-win))
     ;; these are only ever called if zmacs-regions is true.
-    (add-hook 'zmacs-deactivate-region-hook 'x-disown-selection)
-    (add-hook 'zmacs-activate-region-hook   'x-activate-region-as-selection)
-    (add-hook 'zmacs-update-region-hook     'x-activate-region-as-selection)
-
+    (add-hook 'zmacs-deactivate-region-hook 
+	      (lambda () 
+		(if (console-on-window-system-p) 
+		    (x-disown-selection))))
+    (add-hook 'zmacs-activate-region-hook
+	      (lambda () 
+		(if (console-on-window-system-p) 
+		    (x-activate-region-as-selection))))
+    (add-hook 'zmacs-update-region-hook
+	      (lambda ()
+		(if (console-on-window-system-p)
+		    (x-activate-region-as-selection))))
     ;; Motif-ish bindings
     ;; The following two were generally unliked.
     ;;(define-key global-map '(shift delete)   'x-kill-primary-selection)