# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834159964 0
# Node ID a8bd6f98638907ac908f61119a3f1a263c29eb74
# Parent  fdc10603ac356022c254fd51009ff16745da0042
(x-set-selection, x-get-selection): Define them to really use TYPE.

diff -r fdc10603ac35 -r a8bd6f986389 lisp/w32-fns.el
--- a/lisp/w32-fns.el	Fri Jun 07 14:57:45 1996 +0000
+++ b/lisp/w32-fns.el	Fri Jun 07 15:06:04 1996 +0000
@@ -181,8 +181,14 @@
     name))
 
 ;;; Fix interface to (X-specific) mouse.el
-(defalias 'x-set-selection 'ignore)
-(fset 'x-get-selection '(lambda (&rest rest) ""))
+(defun x-set-selection (type data)
+  (or type (setq type 'PRIMARY))
+  (put 'x-selections type data))
+
+(defun x-get-selection (&optional type data-type)
+  (or type (setq type 'PRIMARY))
+  (get 'x-selections type))
+
 (fmakunbound 'font-menu-add-default)
 (global-unset-key [C-down-mouse-1])
 (global-unset-key [C-down-mouse-2])